<%
if Request("Submit")="Submit" then
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Book Order From " &replace (request("name"),"'","''")
myMail.From=replace (request("email"),"'","''")
myMail.Bcc="mail@infokerala.in"
'myMail.Bcc="mail@infokerala.in"
myMail.To="mail@infokerala.in"
myMail.HTMLBody = "
Dear Sir, Please find below order for your book Pilgrimage to Temple Heritage. |
Name : | " & Replace(Request("name"),"'","''") & " |
Email : | " & Replace (Request("email"),"'","''") &" |
Address : | "& Replace (Request("address"),"'","''") & " |
City : | "& Replace (Request("city"),"'","''") & " |
Mobile : | "& Replace (Request("phone"),"'","''") & " |
Book Order : | "& Replace ( Request("comments"),"'","''") & " |
Regards, |
" & Replace (Request("name"),"'","''")&" |
"
on error resume next
myMail.Send
if err.number=0 then
Response.write("
Thank You " & Request("name") & "! , your order has been sent successfully..")
'To the enquiry member
'-----------------------------------------------------------
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Thanks Much for Your Order " & replace (request("name"),"'","''")
myMail.From="mail@infokerala.in"
myMail.To=replace (request("email"),"'","''")
'myMail.HTMLBody = "
Dear " & Replace (Request("name"),"'","''")&" |
| Thank you for your interest in our projects. Your mail is forwarded to our sales & marketing section. We will soon contact you soon. |
Regards, | |
info kerala Regd. Off: First Floor, C.L.S. Building, M. G. Road, Cochin - 682 011. Phone : 91-484-2383866 |
"
on error resume next
myMail.Send
'----------------------------------------------------------
else
Response.write("Error:" & err.description & " ")
end if
set Mymail=nothing
End if
%>