線上聯絡
| <% If Request.Form("send")="ok" Then name=trim(request.Form("company")) name3=trim(request.Form("address")) name2=trim(request.Form("Myname")) phone=trim(request.Form("phone")) fax=trim(request.Form("fax")) email=trim(request.Form("email")) checkbox=trim(request.Form("Check1")) contents=trim(request.Form("contents")) Set mail = CreateObject("CDO.Message") mail.Subject = "從網站來的諮詢客戶" '信件標題 mail.From = "WEBMessage@mail.com" '發信人的EMAIL mail.To = "ufotc21@gmail.com" '客戶的GMAIL帳號 mail.TextBody = "公司名稱："&name&"。聯絡人："&name2&"。電話："&phone&"。傳真："&fax&"。電子信箱："&email&"。希望回覆方式："&checkbox&"。內容："&contents mail.Send %> <% End If %> |