<% 'SUB sendMail(toWho,tocc,tobcc,subject,body,varfrom,varatfile) ' DIM myMail ' SET myMail = Server.CreateObject("CDONTS.Newmail") ' myMail.MailFormat = 0 ' myMail.BodyFormat = 0 ' myMail.From = varfrom ' 'myMail.Cc="postmaster@xeons.dualserver.com" ' myMail.Cc=tocc ' myMail.Bcc=tobcc ' myMail.To =toWho ' myMail.Subject=subject ' myMail.body = body ' s=server.MapPath(".\Attachments") ' if trim(varatfile) <> "" then ' myMail.AttachFile s & "\" & trim(varatfile) ' end if ' myMail.Send ' SET myMail = Nothing 'END SUB %> <% dim mid varmemtype="I" if trim(request("Submit")) <> "" then varfrom=""'trim(request("from_email")) toWho=trim(request("Email")) subject=trim(request("Subject")) 'body= "Booking Details
" 'body=body & "

Name:" & trim(request("title"))&"."& trim(request("name"))&"

Country of Residence :"& trim(request("country")) &"

Phone No :"& trim(request("phone1"))&""& trim(request("phone2"))&""& trim(request("phone3"))&"

Hotel Category :"& trim(request("category")) &"

Hotel Required at :"& trim(request("Requiredat")) &"

Check in Date :"& ReturnStoreDate(fmfdfy) &"

Check Out Date :"& ReturnStoreDate(tdtmty) &"

Rooms Required (Single):"& trim(request("roomsreq1")) &"

Rooms Required (Double):"& trim(request("roomsreq2")) &"

Rooms Required (Triple):"& trim(request("roomsreq3")) &"

Booking Query/ Comments :"& trim(request("coments")) &"

" body=trim(request("Subject")) sendMail toWho,"","",subject,body,varfrom,"" '---------- session("supmsg") = "Mail Sent sucessfully." end if %>

<%if request("Submit")="" then%> <%session("supmsg")=""%> <%END IF%>

Friends Name :
Email Address :
Subject :
<%=session("supmsg")%>
<%if request("Submit")="" then%>    <%END IF%>