聯絡飛鷹

<% inname = Request.Form("name") intel = Request.Form("tel") inmail = Request.Form("mail") inmatter = Request.Form("matter") if inname=empty or intel=empty or inmail=empty or inmatter=empty then response.write("請確實填寫每一欄位，請回上一頁") response.write("

") response.write("") response.write("") else bady = "歡迎您選擇飛鷹人，我們已收到您的留言

" bady = bady & "您的聯絡人為：" & inname & "

" bady = bady & "您的電話為：" & intel & "

" bady = bady & "您的信箱為：" & inmail & "

" bady = bady & "您的聯絡事項為：" & inmatter & "

" bady = bady & "再次謝謝您選擇飛鷹人

" bady = bady & "

" bady = bady & "=================
" bady = bady & "飛鷹人網路資訊
" bady = bady & "o2h@ms62.hinet.net
" bady = bady & "=================
" bady = bady & "" '寄出E-Mail Set Jmail = Server.CreateObject("JMail.SMTPMail") '設定為html格式 JMail.ContentType = "text/html" '本文 JMail.Body = bady '標題 JMail.Subject = "歡迎您選擇飛鷹人efly.org.tw" '寄件信箱 JMail.Sender = "o2h@ms62.hinet.net" '寄件人 JMail.Sendername = "飛鷹人" '收件人信箱 JMail.AddRecipient(inmail) JMail.AddRecipientcc("o2h@ms62.hinet.net") '外部伺服器 JMail.ServerAddress = "ms62.hinet.net" '設定為Big碼 JMail.Charset = "Big5" '郵件傳送 JMail.Execute set JMail = Nothing response.write("

留言已送出，謝謝您!!

") end if %> 　　