<% if request("B1")="送出您的留言" then call send() Sub send() name=request("T1") sex=request("T2") email=request("T3") tel=request("T4") addr=request("T5") suggest=request("T6") mail="姓名：" & name & chr(13) mail=mail & "性別：" & sex & chr(13) mail=mail & "E-Mail：" & email & chr(13) mail=mail & "電話：" & tel & chr(13) mail=mail & "住址：" & addr & chr(13) mail=mail & "留言：" & suggest & chr(13) 'response.write mail 'response.end '建立一個發送mail的物件 response.write "" set mail1=Server.CreateObject("CDONTS.NewMail") mail1.From=email mail1.To="csc@symphox.net" 'mail1.To="john@symphox.net" mail1.Subject="我是" & name & "以下是我的留言"' mail1.Body =mail mail1.Send set mail1=Nothing response.write "
" response.write "
" response.write "
" response.write "
您的留言或建議已發送出去！
" response.write "
回意見信箱
" response.end End sub %>
※您的姓名：
您的性別：
男
女
※E-Mail：
您的電話：
您的住址：
※您的留言：
版權所有 神坊資訊股份有限公司 Copyright(C)2005 Symphox Information Co.,Ltd. All rights reserved.
諮詢電話：02-2502-9666 台北總公司地址：台北市104民生東路三段51號15樓
本公司所使用之註冊商標係由國泰金融控股股份有限公司授權使用
The registered trademark is licensed by Cathay Financial Holding Co., Ltd..
