นามสกุล

Email Address

ชื่อบริษัท

โทรศัพท์

โทรสาร

ที่อยู่ไปรษณีย์

แขวง/ตำบล

เขต/อำเภอ

จังหวัด

รหัสไปรษณีย์

สมัครรับจดหมาย E-newsletter

<% pcode = Request.QueryString("pcode") fname = Request.Form ("fname") lname = Request.Form ("lname") email = Request.Form ("email") company = Request.Form ("company") phone = Request.Form ("phone") register = Request.Form ("register") fax= Request.Form ("fax") address1= Request.Form ("address1") address2 = Request.Form ("address2") city = Request.Form ("city") province= Request.Form ("province") zip= Request.Form ("zip") If fname <>"" And company <>"" And phone <>"" And lname <>"" And email<>"" Then Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With 'The main body of the e-amil strBody="" strBody= strBody & "
Name: " & fname strBody= strBody & "
Last Name: " & lname strBody= strBody & "
Email: " & email strBody= strBody & "
Company: " & company strBody= strBody & "
Telephone: " & phone strBody= strBody & "
Fax: " & fax strBody= strBody & "
Address: " & address1 strBody= strBody & "
Address :" & address2 strBody= strBody & "
City :" & city strBody= strBody & "
Province: " & province strBody= strBody & "
Zip code: " & zip if register = "on" Then strBody= strBody & "
ลงทะเบียน e-newsletter" End if 'Who the e-mail is sent to With objMail Set .Configuration = objConf .From = "snong@aerocommthailand.com" .To = "snong@aerocommthailand.com,taradol@aerocommthailand.com,monton@aerocommthailand.com,trin@aerocommthailand.com" .Subject = "Symmetricom Inquiry " + pcode .HTMLBody = strBody & vbcrlf End With Err.Clear on error resume next objMail.Send 'You must always do this with CDOSYS. Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing Response.Redirect "download.asp?pcode=submitted" End If %>