阜拓科技

<% if request("send") <> empty then Set jmail = Server.CreateObject("JMail.Message") jmail.AddRecipient "sales@forter.com.tw","sales" 'jmail.AddRecipient "edmund@itri.org.tw", "Name" jmail.From = "STIR@mail.sirdp.org.tw" JMail.FromName = "Forter" jmail.Subject = "阜拓訪客意見" nn1=request("n1") nn2=request("n2") nn3=request("n3") nn4=request("n4") nn5=request("n5") s=request("suggest") allstr="姓名: " & nn1 & vbCrLf & "
" allstr=allstr & "英文姓名: " & nn2 & vbCrLf & "
" allstr=allstr & "電話: " & nn3 & vbCrLf & "
" allstr=allstr & "地址: " & nn4 & vbCrLf & "
" allstr=allstr & "E-Mail: " & nn5 & vbCrLf & "
" allstr=allstr & "建議: " & "
" & vbCrLf & s jmail.Body = allstr 'jmail.Body = "" jmail.Charset = "big5" jmail.ContentTransferEncoding = "base64" jmail.Encoding = "base64" jmail.ISOEncodeHeaders = false jmail.HTMLBody =allstr 'jmail.HTMLBody = "恭喜！JMail測試成功！
" 'jmail.appendHTML "

智邦生活館客服中心" jmail.appendText " 很遺憾您無法閱讀HTML內容" ' 在此鍵入SMTP伺服器IP，此處以HiNet為例 jmail.Send( "mail.sirdp.org.tw" ) 'jmail.Send( "168.95.4.211" )中華電信smtp ' mail.send response.redirect "qa_1.asp" 'response.write "groupa.asp" else end if %> 阜拓科技

First name:

Last name:

Telephone

Address:

E-Mail:

My comment