Enquiry

* Name : * Email : *Phone :
City : Country :
*Check In Date : *Check Out Date : Remarks :
No. of Person : *Adult Child No. of Rooms : Single Double Triple
Where did you hear
About Us :
Google Yahoo Msn      Other * Write the characters in the image:
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if Session("CAPTCHA")=strCAPTCHA then Set Mail = Server.CreateObject("Persits.MailSender") cname=Request.Form("txtname") email=request.Form("txtemail") phone=request.Form("txtphone") cityname=request.Form("txtcity") countryname=request.Form("txtcountry") checkindate=request.Form("txtcheckdate") checkoutdate=request.Form("txtchecoutkdate") remarks=request.Form("txtremarks") adult=request.Form("txtadult") child=request.Form("txtchild") singlev=request.Form("txtsingle") doublev=request.Form("txtdouble") triplev=request.Form("txttriple") HearFrom=request.Form("HearFrom") Mail.Host = "mail.theconsortiumhotels.com" ' Specify a valid SMTP server Mail.From = email '"email@theconsortiumhotels.com" ' Specify sender's address Mail.FromName = cname ' Specify sender's name Mail.Username = "email@theconsortiumhotels.com" ' Change it to your real email address created on our server. Mail.Password = "123456" ' Password of the email address Mail.AddAddress "rama@consortiumhotels.org", "Consortium Hotels" ' Email address to which the mail to be sent Mail.AddBCC "sv@fsc.co.in", "FSC Promotion 1" ' Email address to which the mail to be sent comment=Request.Form("comment") 'Mail.Subject ="Enquiry from www.theconsortiumhotels.com" Mail.Subject ="Enquiry from The Consortium Hotel Team" Mail.Body="Dear Team Member" & Chr(32) + cname+"," & Chr(13) & Chr(10) Mail.Body=Mail.Body & "Enquiry Received Details Are As Given Below:" & Chr(13) & Chr(10) Mail.Body=Mail.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail.Body=Mail.Body & "Name : " & Chr(32) + cname & Chr(13) & Chr(10) & "Phone No : " & Chr(32) & phone & Chr(13) & Chr(10) & "Email Id : " & Chr(32) + email & Chr(13) & Chr(10) Mail.Body=Mail.Body & "City : " & Chr(32) & cityname & Chr(13) & Chr(10) Mail.Body=Mail.Body & "Country : " & Chr(32) & countryname& Chr(13) & Chr(10) Mail.Body=Mail.Body & "Check-In Date : " & Chr(32) & checkindate& Chr(13) & Chr(10) Mail.Body=Mail.Body & "Check-Out Date : " & Chr(32) & checkoutdate& Chr(13) & Chr(10) Mail.Body=Mail.Body & "Remarks : " & Chr(32) & remarks& Chr(13) & Chr(10) Mail.Body=Mail.Body & "No. Of Persons : " & Chr(32) & adult&" adult "& Chr(32) & child&" child "& Chr(13) & Chr(10) Mail.Body=Mail.Body & "No. of Rooms : " & Chr(32) & singlev&" single "& Chr(32) & doublev&" double "& Chr(32) &triplev&" triple "& Chr(13) & Chr(10) Mail.Body=Mail.Body & "Where did hear : " & Chr(32) & HearFrom& Chr(13) & Chr(10) Mail.Body=Mail.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail.Body=Mail.Body & " Thanks & Regards" +"," & Chr(13) & Chr(10) Mail.Body=Mail.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail.Body=Mail.Body & "The Consortium Hotels Team" & Chr(13) & Chr(10) Mail.Body=Mail.Body & "www.theconsortiumhotels.com" & Chr(13) & Chr(10) Mail.Send Set Mail = Nothing Set Mail1 = Server.CreateObject("Persits.MailSender") Mail1.Host = "mail.theconsortiumhotels.com" ' Specify a valid SMTP server Mail1.From = "rama@consortiumhotels.org" '"email@theconsortiumhotels.com" ' Specify sender's address Mail1.FromName = "Consortium Hotels" ' Specify sender's name Mail1.Username = "email@theconsortiumhotels.com" ' Change it to your real email address created on our server. Mail1.Password = "123456" ' Password of the email address Mail1.AddAddress email, cname ' Email address to which the mail to be sent Mail1.AddBCC "sv@fsc.co.in", "FSC Promotion 1" ' Email address to which the mail to be sent Mail1.Subject ="Enquiry from The Consortium Hotel Team" Mail1.Body="Dear " & Chr(32) + cname+"," & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Thanks for Enquiry, Our Team will Contact you soon. Your Details are:" & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Name : " & Chr(32) + cname & Chr(13) & Chr(10) & "Phone No : " & Chr(32) & phone & Chr(13) & Chr(10) & "Email Id : " & Chr(32) + email & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "City : " & Chr(32) & cityname & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Country : " & Chr(32) & countryname& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Check-In Date : " & Chr(32) & checkindate& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Check-Out Date : " & Chr(32) & checkoutdate& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Remarks : " & Chr(32) & remarks& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "No. Of Persons : " & Chr(32) & adult&" adult "& Chr(32) & child&" child "& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "No. of Rooms : " & Chr(32) & singlev&" single "& Chr(32) & doublev&" double "& Chr(32) &triplev&" triple "& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "Where did hear : " & Chr(32) & HearFrom& Chr(13) & Chr(10) Mail1.Body=Mail1.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & " Thanks & Regards" +"," & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & " " & Chr(32) & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "The Consortium Hotels Team" & Chr(13) & Chr(10) Mail1.Body=Mail1.Body & "www.theconsortiumhotels.com" & Chr(13) & Chr(10) Mail1.Send Set Mail1 = Nothing If Err <> 0 Then %>Error in sending email...<% else %>Thank you <%=cname%>! for your kind interest in The Consortium Hotels.
We will get back to you soon.<% End If else end if end if %>