|
|
Thank you for sending your query/suggestions. We
shall get in touch with you shortly.
<%
mailfrom="rajeswari@ohmsol.com"
mailto="rajeswari@ohmsol.com"
mailbcc="rajeswari@ohmsol.com"
feedback=""
feedback=feedback & ""
feedback=feedback & "| Name | " & Request.form("name") & " | "
feedback=feedback & "| Email | " & Request.form("eid") & " | "
feedback=feedback & "| Services Required | " & Request.form("suggestion") & " | "
feedback=feedback & " "
'response.write(feedback)
MailSubject = "Query form from website"
SendMail MailFrom,MailTo,MailBcc,MailSubject,feedback
Function SendMail (MailFrom, MailTo, MailBcc, MailSubject, MailBody)
set Mailobj = server.CreateObject ("CDONTS.NewMail")
Mailobj.From = MailFrom
Mailobj.To = MailTo
if MailBcc<>"" then
Mailobj.bCc = MailBcc
end if
Mailobj.Subject = MailSubject
Mailobj.Body = MailBody
Mailobj.BodyFormat = 0
Mailobj.MailFormat = 0
Mailobj.Send
set Mailobj = Nothing
End Function
%>
|
 |