<% 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 :



Tribal Visit

The resort lies in close proximity to the tribal hamlet at Pothamedu. If you want to experience the tribal customs and way-of-life, you can easily do so by taking a stroll through the village, which lies nestled amidst the green carpets of emerald tea plants.











back


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