China Travel Service

<% On error resume next DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer Dim ff28, ff1, ff2, ff3, ff4, ff13, ff14, ff15, ff16, ff17, ff18, ff19, ff20, ffemail, ffcountry ff28 = Request.Form("ff28") ff1 = Request.Form("ff1") ff2 = Request.Form("ff2") ff3 = Request.Form("ff3") ff4 = Request.Form("ff4") ff13 = Request.Form("ff13") ff14 = Request.Form("ff14") ff15 = Request.Form("ff15") ff16 = Request.Form("ff16") ff17 = Request.Form("ff17") ff18 = Request.Form("ff18") ff19 = Request.Form("ff19") ff20 = Request.Form("ff20") ffemail = Request.Form("ffemail") ffcountry = Request.Form("ffcountry") err.clear strSubject = "new customer has booked to tour " & Now strComments = " Tour Name: "& ff28 & vbcrlf &" Tour Code: "& ff1 & vbcrlf &" Travel Period from: "& ff2&" To: "& ff3 & vbcrlf &" Important Notice: "& ff4 & vbcrlf &" First Name: "& ff13 & vbcrlf &" Last Name: "& ff14 & vbcrlf &" Daytime Phone: "& ff15 & vbcrlf &" Home Phone: "& ff16 & vbcrlf &" Email "& ffemail & " Mailing Address: "& ff18 & vbcrlf &" Emergency Contact "& ff19 & vbcrlf &" His Phone Number: "& ff20 & vbcrlf & " " & ffcountry 'strComments = "test" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "127.0.0.1" JMail.AddRecipient "xuansoon@gmail.com" JMail.Sender = "alex@intertrips.com" JMail.Subject = strSubject JMail.Body = strComments JMail.Execute Set JMail= Nothing IF NOT JMail.Execute THEN Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "
" & vbcrlf ) Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "
" & vbcrlf ) Response.Write( "LOG:

" & JMail.Log & "

" & vbcrlf ) ELSE Response.Write "

Your :" & strSubject & " Newsletter has been successfully sent to " & intSubscribers & " subscribers.

" END IF %> China Travel Service

Home

We have recieved your booking request. Our agents will contact you shortly.

Thank you very much.


order a tour		\| sLinks \| About Us \| Info Center \| Privacy Policy \|

	© Copyright 2007 China Travel Int'l USA All Rights Reserved