<% Set objMessage = CreateObject("CDO.Message") if Trim(Request.Form("name")) <> "" then dim strMailBody dim strRet strMailBody = "" strMailBody = strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "
Package Tour Booking
Name"& Trim(Request.Form("name")) & "
Mobile No."& Trim(Request.Form("mobile")) & "
Phone"& Trim(Request.Form("phone")) & "
E-mail"& Trim(Request.Form("email")) & "
Package Tour No."& Trim(Request.Form("pkgno")) & "
Place Names"& Trim(Request.Form("placename")) & "
No. of Seats"& Trim(Request.Form("noseats")) & "
Date of Journey"& Trim(Request.Form("SelectedDate")) & "
" strRet = SendMail("vtstravels2012@gmail.com", "Package Tour Booking", strMailBody) If(strRet = "") then 'Response.Redirect("payment.asp") Else Response.Write(strRet) End if end if function SendMail(toAddr, subjectText, bodyText) dim mailer dim cdoMessage, cdoConfig 'Assume all will go well. SendMail = "" 'Configure the message. set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "vtstravels2012@gmail.com" cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig 'Create the email. 'cdoMessage.From = ADMIN_USERNAME & " <" & ADMIN_EMAIL & ">" cdoMessage.From = "info@venkateshwaratravels.in" cdoMessage.To = toAddr cdoMessage.Subject = subjectText cdoMessage.HTMLBody = bodyText 'Send it. on error resume next cdoMessage.Send 'If an error occurred, return the error description. if Err.Number <> 0 then SendMail = Err.Description end if 'Clean up. set cdoMessage = Nothing set cdoConfig = Nothing end function %>

Dear Customer Accept For Credit Card, Debit Card, Net Banking, Cash Deposit More Information Please Call: 9880821926

Mysore Package

 
V-A I-C R-H S-S

One Day Mysore Sight Seeing (Daily)

 

Dep. 7.30 a.m. from Bangalore
Pick up from our office BTM Layout at 6.30 a.m

Visiting Places : Srirangapatna, Ranganatha Swamy Temple, Tippu's Fort, Gumbaz , Tippu's Summer Palace, Mysore St.Philomina's Church, Chamundi Hill, Big Bull, Maharaja's Palace, Art Gallery, and Beautiful Brindavan Garden (Colour Full Musical Fountains). 

Arrival at 11:30 PM in the night

PACKAGE INCLUDES :Transportation and Sight seeing
NOTE : All Entrance Fee & Guides Charges Extra
Note : Same Place Pickup & Drop

Fare : Rs. 380 per person.

 
Please fill in the below feilds to book Package Tours.
Thanks for submitting the details. Will get back to you shortly

Enquriy No. 90199 95524, 98868 43719

 
Name
 *
Mobile No.
 *
Phone No.
 
E-mail ID
 *
Package Tour No.
 *
Places Name
 *
No. of Seats
 *
Date of journey
Pick A Date
* Indicates Mandatory Fields