|
<%
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 = ""
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 = "" &_
"
"
response.write mMsgConfirm
Else
Response.write mError
End If
ELSE
%>
<%End If%> |
 |
| 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: |
|
|
|
|
|
