<% IF Request.Form("action")=1 THEN mGroupID="2" mUserTitle=replace(request("fUserTitle"),"'","''") mUserMailPref="L" mUserFname=replace(request("fUserFname"),"'","''") mUserLname=replace(request("fUserLname"),"'","''") mUserEmailID=request("fUserEmailID") mUserDesignation=replace(request("fUserDesignation"),"'","''") mUserCompany=replace(request("fUserCompany"),"'","''") mUserAddress1=replace(request("fUserAddress1"),"'","''") mUserAddress2=replace(request("fUserAddress2"),"'","''") mUserCity=replace(request("fUserCity"),"'","''") mUserPIN=request("fUserPIN") mUserState=request("fUserState") mUserCountry=request("fCountry") mUserPhone=request("fUserPhone") mUserMobile=request("fUserMobile") mUserFax=request("fUserFax") mUserWebsite=request("fUserWebsite") mStatus="1" If request("fStatus") = "on" Then mStatus="1" ' Append Record in User Table if Does not Exist Set Con = server.CreateObject("ADODB.Connection") Con.Open Application("DbConnStr") mSQL = "SELECT * FROM tblSubscriber WHERE UserEmailID='"&mUserEmailID&"'" set RstUser = Server.CreateObject("ADODB.Recordset") RstUser.Open mSQL,con,1,3 mCount = RstUser.recordcount RstUser.close Set RstUser = Nothing set RstUser=Nothing If mcount < 1 Then mSQL = "INSERT INTO tblSubscriber (GroupID, UserTitle, UserMailPref, UserFname, UserLname, UserEmailID, UserDesignation, UserCompany, UserAddress1, UserAddress2, UserCity, UserPIN, UserState, UserCountry, UserPhone, UserMobile, UserFax, UserWebsite, Status) VALUES ("&mGroupID&", '"&mUserTitle&"', '"&mUserMailPref&"', '"&mUserFname&"', '"&mUserLname&"', '"&mUserEmailID&"', '"&mUserDesignation&"', '"&mUserCompany&"', '"&mUserAddress1&"', '"&mUserAddress2&"', '"&mUserCity&"', '"&mUserPIN&"', '"&mUserState&"', '"&mUserCountry&"', '"&mUserPhone&"', '"&mUserMobile&"', '"&mUserFax&"', '"&mUserWebsite&"', "&mStatus&")" End If ' response.write mSQL Con.Execute mSQL Con.Close Set Con = Nothing ' Prepare Mailer Body Text mMessage = Replace(Request("fMessage"),Chr(13),"
") & "

" mSignature = "" & mUserFname &" "& mUserLname & "" & "
" If mUserDesignation <> "" Then mSignature = mSignature & mUserDesignation & "
" If mUserMobile <> "" Then mSignature = mSignature &"Mobile:  "& mUserMobile & "
" If mUserEmailID <> "" Then mSignature = mSignature &"E-mail:  "& mUserEmailID & "

" If mUserCompany <> "" Then mSignature = mSignature & "" & mUserCompany & "" & "
" If mUserAddress1 <> "" Then mSignature = mSignature & mUserAddress1 If mUserAddress2 <> "" Then mSignature = mSignature & ", " & mUserAddress2 If mUserCity <> "" Then mSignature = mSignature & ", " & mUserCity If mUserPIN <> "" Then mSignature = mSignature &" "& mUserPIN If mUserState <> "" Then mSignature = mSignature &" "& mUserState If mUserCountry <> "" Then mSignature = mSignature &". "& mUserCountry & "
" Elseif mUserCity <> "" Then mSignature = mSignature & ".
" End If If mUserPhone <> "" Then mSignature = mSignature &"Tel:  "& mUserPhone If mUserFax <> "" Then mSignature = mSignature &"   Fax:  "& mUserFax & "
" mDate = Date() mDisplayDate = Day(mDate) &" "& MonthName(Month(mDate)) &" "& Year(mDate) mMailerStyle = "The Manor Delhi
" mMailerHeader = "" &_ "
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
www.themanordelhi.com"&mDisplayDate&"
" mMailerFooter ="
" ' Send Mail to The Manor mMailerText = "" &_ "

" & mMessage & mSignature & "

" mFromName = mUserFname& " " &mUserLname mFromUserEmailID = mUserEmailID mToName = "THE MANOR" mToEmail = "info@themanordelhi.com" mBCC = "reservation@themanordelhi.com" mError = "" mSubject = "Enquiry from " &mUserFname& " " &mUserLname mBodyText = mMailerStyle & mMailerText ' response.write mBodyText ' response.end SendEmail mFromName,mFromUserEmailID,mToName,mToEmail,mBCC,mSubject,mBodyText,mError ' Send Mail to User mReplyText = "Dear " &mUserFname& " " &mUserLname& ",

" &_ "Thank you for visiting us online and for your interest in our services.
" &_ "We will get back to you with our reply as soon as possible.

" &_ "Best regards

" &_ "The Manor
77 Friends Colony (West), New Delhi 110 065. INDIA
Tel +91 11 2692 5151 / 7510   Fax +91 11 2692 2299
E-mail info@themanordelhi.com" mMailerText = "" &_ "

" & mReplyText & "

" mFromName = "THE MANOR" mFromUserEmailID = "info@themanordelhi.com" mToName = mUserFname& " " &mUserLname mToEmail = mUserEmailID mBCC = "clientbcc@ntnindia.com" mError = "" mSubject = "Re: Enquiry from " &mUserFname& " " &mUserLname mBodyText = mMailerStyle & mMailerHeader & mMailerText & mMailerFooter &_ "

" &_ "
----- Original Message -----
" &_ "From: " &mUserFname& " " &mUserLname& "---
" &_ "To: THE MANOR
" &_ "Sent: " & Now() & "
" &_ "Subject: " & Replace(mSubject,"Re: ","") & "

" &_ mMessage & mSignature & "

" &_ "

" ' response.write mBodyText ' response.end SendEmail mFromName,mFromUserEmailID,mToName,mToEmail,mBCC,mSubject,mBodyText,mError If mError = "" Then mMsgConfirm = "" &_ "
" &_ "
" & mReplyText & "

" response.write mMsgConfirm Else Response.write mError End If ELSE %>
MANDATORY INFORMATION
First Name   Last Name
E-mail   Phone
Your Query
OPTIONAL INFORMATION
Designation   Company
Address
Postal Code   City
State   Country
Mobile
Fax
If you experience difficulty in submitting information, please email us at info@themanordelhi.com
<%End If%>
Book Manor hotels Indian Accent restaurant bars in South Delhi India
Click here for Location Map
77 Friends Colony (West), New Delhi 110065
Tel: +91 9871117968
+91-11-4323 5151, 2692 5151, 2692 7510
Fax: +91-11-2692 2299
E-mail: info@themanordelhi.com
         
Arrival Date:         Number Nights: Nights