%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% If request.form("SP_AspEmailSend") = "True" Then Set SP_AspEMail = Server.CreateObject("Persits.MailSender") SP_AspEMail.Host = "mail.wiseproduction.com" SP_AspEMail.FromName = request("lastname") SP_AspEMail.From = request("email") SP_AspEMail.AddAddress "merry@wiseproduction.com" , "Kwong Fat Loong" SP_AspEMail.Charset = "Big5" SP_AspEMail.Priority = 3 SP_AspEMail.Subject = "This is an requrement from Kwong Fat Loong website. Please fellow up" SP_AspEMail.Body ="公司名稱 : "&" "& request("company") &_ vbcrlf&vbcrlf & "傳真 : " & " "&request("fax") &_ vbcrlf&vbcrlf & "聯絡人 :" &" "&request("person") &_ vbcrlf &vbcrlf& "電話 : " & " "&request("number") &_ vbcrlf&vbcrlf & "電郵: " & " "&request("email") &_ vbcrlf&vbcrlf & "公司地址: " & " "&request("address") &_ vbcrlf &vbcrlf& "備注 : " &" "&request("remark") If false Then SP_AspEMail.IsHTML = True End If On Error Resume Next SP_AspEMail.Send If Err <> 0 Then Response.Write "error:
" & Err.Description & "" Response.End End If If "thank.html" <> "" Then If false And Request.QueryString <> "" Then Response.Redirect "thank.html?" & Request.QueryString Else Response.Redirect "thank.html" End If Response.End End If End If %>
|