%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% If request.form("SP_AspEmailSend") = "True" Then Set SP_AspEMail = Server.CreateObject("Persits.MailSender") SP_AspEMail.Host = "127.0.0.1" SP_AspEMail.FromName = request("lastname") SP_AspEMail.From = request("email") SP_AspEMail.AddAddress "joe@magicclean.com.hk,cs@magicclean.com.hk" , "New Customer" SP_AspEMail.Charset = "Big5" SP_AspEMail.Priority = 3 SP_AspEMail.Subject = "This is an requirement from Magic Clean Environmental Services Limited website. Please follow up" SP_AspEMail.Body ="Company Name / 公司名稱"&" "& request("coname") &_ vbcrlf&vbcrlf & "Customer Number / 客戶編號" &" "&request("custno") &_ vbcrlf&vbcrlf & "Customer Name / 姓名" &" "&request("name") &_ vbcrlf&vbcrlf & "Sex/性別" &" "&request("m") &_ vbcrlf &vbcrlf& "Tel. No / 聯絡電話" & " "&request("tel") &_ vbcrlf&vbcrlf & "Mobile Phone 手提電話" & " "&request("mobile") &_ vbcrlf&vbcrlf & "Email Address / 電郵:" & " "&request("email") &_ vbcrlf&vbcrlf & "Flat / Room 室" & " "&request("flat") &_ vbcrlf &vbcrlf& "Floor 樓" &" "&request("floor") &_ vbcrlf &vbcrlf& "Block 座" &" "&request("Block") &_ vbcrlf&vbcrlf & "Building 大廈名稱" & " "&request("building") &_ vbcrlf&vbcrlf & "Street 街名:" & " "&request("street") &_ vbcrlf&vbcrlf & "District 地區:" & " "&request("district") &_ vbcrlf&vbcrlf & "District 地區:" & " "&request("dis") &_ vbcrlf&vbcrlf & "Invoice Address 發票地址" & " "&request("same") &_ vbcrlf&vbcrlf & "Flat / Room 室" & " "&request("flat2") &_ vbcrlf &vbcrlf& "Floor 樓" &" "&request("floor2") &_ vbcrlf &vbcrlf& "Block 座" &" "&request("block2") &_ vbcrlf&vbcrlf & "Building 大廈名稱" & " "&request("building2") &_ vbcrlf&vbcrlf & "Street 街名:" & " "&request("street2") &_ vbcrlf&vbcrlf & "District 地區:" & " "&request("district2") &_ vbcrlf&vbcrlf & "District 地區:" & " "&request("dis2") &_ vbcrlf&vbcrlf & "Area size 建築面積:" & " "&request("size") &_ vbcrlf&vbcrlf & "Manager Room 經理房:" & " "&request("managerroom") &_ vbcrlf&vbcrlf & "Meeting Room 浴室:" & " "&request("meetingroom") &_ vbcrlf&vbcrlf & "Toilet 洗手間:" & " "&request("toilet") &_ vbcrlf&vbcrlf & "Number of Staff 員工數目:" & " "&request("staffno") &_ vbcrlf&vbcrlf & "Service Plan 計劃服務:" & " "&request("plan") &_ vbcrlf&vbcrlf & "Service Plan 定期服務:" & " "&request("stable") &_ vbcrlf&vbcrlf & "Service Date 服務日期:" & " "&request("year") & "年" & " "&request("month") & "月" & " "&request("date") & "日" &_ vbcrlf&vbcrlf & "Starting Time 服務時間(開始):" & " "&request("from") & ":"&request("minite") &_ vbcrlf&vbcrlf & "Finsihed Time 服務時間(完成):" & " "&request("hours") & ":"&request("mi") 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 %>
|
|
| Copyright@2003-2011 Magic Clean Environmental Services Ltd.壹清潔環境服務有限公司. All rights reserved. web design by Magic Clean |