Contact Us
Reservation
 
<% If Request.Form="" Then %>

Get
Date & Requirement
Contact Information :
Name
*
Email
*
Mobile
Telephone
City/State :
Country
 
* Required fields

<% Else 'receive the form values Dim sName, sEmail, sType, sProduct, sMobile, sPhone, sCity, sCountry sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sType=Request.Form("txtType") sProduct=Request.Form("txtProduct") sMobile=Request.Form("txtMobile") sPhone=Request.Form("txtPhone") sCity=Request.Form("txtCity") sCountry=Request.Form("txtCountry") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Name: " & sName & "
" sEmailText = sEmailText & "Service :" & sType & "
" sEmailText = sEmailText & "Description :" & sProduct & "
" sEmailText = sEmailText & "Name :" & sName & "
" sEmailText = sEmailText & "Email :" & sEmail & "
" sEmailText = sEmailText & "Mobile :" & sMobile & "
" sEmailText = sEmailText & "Telephone :" & sPhone & "
" sEmailText = sEmailText & "City :" & sCity & "
" sEmailText = sEmailText & "Country :" & sCountry & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "
" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "mail@orionstays.com" 'change to your address NewMailObj.Subject = "Enqury" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you. Our tour executive will contact you soon.
" End If %>

  
@2009 | Orion Holidays | Websolution By
web29.com | we net it all!