<% Dim FName,Email,Phone,Address,State,Country,Persons,Rooms,RoomType,PickUp_Day,PickUp_Month,PickUp_Year Dim PickUp_Time,Drop_Day,Drop_Month,Drop_Year,Drop_Time,Msg Dim mailbody FName= Request("FName") Email= Request("Email") PickUp_Day= Request("PickUp_Day") PickUp_Month= Request("PickUp_Month") PickUp_Year= Request("PickUp_Year") PickUp_Time= Request("PickUp_Time") Drop_Day= Request("Drop_Day") Drop_Month= Request("Drop_Month") Drop_Year= Request("Drop_Year") Drop_Time= Request("Drop_Time") Persons= Request("Persons") Rooms= Request("Rooms") RoomType= Request("RoomType") mailbody = "" mailbody = mailbody & "" mailbody = mailbody & "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" mailbody = mailbody & "
Below is the Reservation details from " & FName & "
Name : " & FName & "
Email :" & Email & "
Check-in Date: " & PickUP_Day & "/" & PickUp_Month & "/" & PickUp_Year & "-" & PickUp_Time & "
Check-out Date: " & Drop_Day & "/" & Drop_Month & "/" & Drop_Year & "-" & Drop_Time & "
Persons : " & Persons & "
Rooms :" & Rooms & "
Room Type: " & RoomType & "
" Dim NameError Dim EmailError Dim MsgError Dim Summary NameError = "" EmailError = "" MsgError = "" Summary = "" Sub Main() if Not Trim( Request.Form("Submit") ) = "" then Dim valid valid = true if Trim(Request.Form("FName")) = "" then valid = false NameError = "Enter Name " End if if Trim(Request.Form("Email")) = "" then valid = false EmailError ="Enter email " else Dim re Set re = new RegExp re.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$" if not re.Test(Trim(Request.Form("Email"))) then valid = false EmailError ="Enter valid email " end if end if if valid then Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component. Mail.FromName = "Eco Exotica" Mail.FromAddress = Request.Form("Email") Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail Mail.AddRecipient "Eco Exotica", "eeholidays@gmail.com" Mail.Subject = "Eco Exotica - Book a Room" Mail.ContentType = "text/html" Mail.BodyText = mailbody if Mail.SendMail then Summary = "Your mail has already been sent..." else Summary = "Mail send failure. Error Please try again " & Mail.Response end if else Summary = "Some error occured please check" end if end if end sub call Main %>
<%=Summary%> Reservation Information :
Name :

Email :

Check in :



Check Out :



Persons :
" />
Rooms :
" />
Room Type :



Ayurvedic Spa

Eco Exotica Holidays Resorts advocates healthy living. In keeping with Indian tradition we offer Ayurveda, which means ‘the science of living’. Ayu means ‘life’ and Veda meaning ‘knowledge’.

This ancient form of medicine has been used down through the ages as a vital tool in improving the overall being of an individual. Through its many forms, it harnesses natural elements in order to find remedies to various ailments. After any one of these sessions you can walk out confidently as you will be a new person.






back

tree house stay
Copyright 2008. All rights reserved. Website Designed And Developed by Glad Solutions.