<%
if Request("Submit")="Submit" then
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Opinion 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, I saw your website and please find my opinion about the same. |
Name : | " & Replace(Request("name"),"'","''") & " |
E-mail : | " & Replace (Request("email"),"'","''") &" |
Address : | "& Replace (Request("address"),"'","''") & " |
City : | "& Replace (Request("city"),"'","''") & " |
Telephone : | "& Replace (Request("phone"),"'","''") & " |
Comments : | "& 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 request has been sent successfully..")
'To the enquiry member
'-----------------------------------------------------------
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Thank You " & 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
%>