<% strFromName = request.form("name") strEmail = request.form("email") strphone1 = request.form("phone1") strphone2 = request.form("phone2") strphone3 = request.form("phone3") strcountry = request.form("country") stroccupancy = request.form("occupancy") strpax = request.form("nop") stradate = request.form("adate") strddate = request.form("ddate") strPreference = request.form("Preference") strrequirment = request.form("coments") strairport = request.form("airport") strtaxi = request.form("taxi") strsight = request.form("sight") sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.hotelsunsetinn.com" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = Request.Form("email") cdoMessage.To = "mail@hotelsunsetinn.com" cdoMessage.Subject = "reservation" cdoMessage.HTMLBody = "Mail Received From : " & strFromName & "

" & "E-mail: " & strEmail & "

" & "Country: " & strCountry & "

" & "Phone No. :" & strphone1 &"-"&strphone2&"-"&strphone3 & "

" & "Occupancy: " & stroccupancy & "

" & "No of person: " & strpax & "

" & "Arrival: " & stradate & "

" & "Departure : " & strddate & "

" & "Preference: " & strpreference & "

" &"Special Requirement: " & strrequirment & " , " & strairport & " , " & strtaxi & " , " & strsight & vbcrlf cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing %>
logo
Home   |    Accommodation |   Recreation   |     Facility  |   Tariff   |   Gallery   |   Location   |   Contact Us

 

Thanks For Your Query !

You will receive a mail within 24 Hour...


 


Hotel Sunset Inn
Sunset Road ,Mount Abu-307501(Rajasthan)
Ph.: 02974-235194,237094,237095