%@LANGUAGE="VBSCRIPT"%>
<%
If request.form("SP_AspEmailSend") = "True" Then
Set SP_AspEMail = Server.CreateObject("Persits.MailSender")
SP_AspEMail.Host = "localhost"
SP_AspEMail.FromName = request("name")
SP_AspEMail.From = request("email")
SP_AspEMail.AddAddress "rain@hkwp.com" , request("name")
SP_AspEMail.Charset = "Big5"
SP_AspEMail.Priority = 3
SP_AspEMail.Subject = "This is an requirement from 聯發環保處貨運有限公司 website. Please follow up"
'SP_AspEMail.IsHTML = false
SP_AspEMail.Body ="公司名稱 / Company Name: "&" "& request("name") &_
vbcrlf&vbcrlf & "地址 / Address:" &" "&request("add") &_
vbcrlf &vbcrlf& "電話 / Tel Numbe: " & " "&request("tel") &_
vbcrlf &vbcrlf& "傳真 / Fax Number: " & " "&request("fax") &_
vbcrlf &vbcrlf& "電郵地址 / E-mail Address: " & " "&request("email") &_
vbcrlf &vbcrlf& "聯絡人 / Contact Person: " & " "&request("person") &_
vbcrlf &vbcrlf& "備註 / Remark: " & " "&request("remark")
On Error Resume Next
SP_AspEMail.Send
If Err.Description <> "" Then
Response.Write("error:
" & Err.Description & " ")
Response.End
End If
Set SP_AspEMail = Nothing
Response.Redirect("thank.htm")
End If
%>
聯發環保處貨運有限公司