| |
 |
|
|
 |
|
|
|
|
|
| |
 |
<%
if(request.form("txtPostBack")="Yes") then
If (request.form("txtEmail")<>"") then
'E-mail Sending
contact=request.Form("contactperson")
Dim objMsg
set objMsg = Server.CreateObject("CDO.message")
objMsg.Bcc = "jacobpurackal@hotmail.com"
objMsg.To = "feedback@pocbible.com"
objMsg.Cc = request.form("txtEmail")
if request.form("txtSubject") <> "" Then
objMsg.Subject = request.form("txtSubject")
Else
objMsg.Subject = "FeedBack"
End if
objMsg.From = request.form("txtEmail")
objMsg.BodyFormat=0
objMsg.MailFormat=0
' we are sending a text email.. simply switch the comments around to send an html email instead
'objMsg.TextBody ="
Dear "&contact& " "& vbcrlf &_
'"
We would like to thank you for your enquiry."
'ObjSendMail.TextBody = "this is the body"
objMsg.TextBody =request.form("txtaBody")
objMsg.Send
Set objMsg = Nothing
response.write("Thanks for the positive feedback. We will get back to you soon.
")
Else
response.write("")
End if
Else
%>
<%End if%>
|
|
|
|
|
|
|
|
