%
Session("CFEmail") = Request.Form("Email")
Session("CFMessage") = Request.Form("Message")
Session("CFName") = Request.Form("Name")
Session("strMsg") = ""
if Len(request.form)>0 Then
if (LCase(Request.Form("ImageValue")) <> LCase(Session("yarimagematey"))) then
Session("strMsg") = "Unfortunately your email was not sent this time.
Please check the image verification field and try again."
else
Set objMailer = Server.CreateObject("JMail.SMTPMail")
objMailer.Sender = Request.Form("Email")
objMailer.ContentType = "text/plain"
objMailer.ContentTransferEncoding = "8bit"
objMailer.ReplyTo = Request.Form("Email")
objMailer.Subject = "Money Market website contact: " & Request.Form("Subject")
objMailer.Body = "You have received an email from the Australian Money Market website, see below:" &vbCrLf & "---------------------------------------------------------------------------" & vbCrLf & Request.Form("Message") & vbCrLf & "---------------------------------------------------------------------------" & vbCrLf & vbCrLf & "From: " & Request.Form("Name")
objMailer.AddRecipient Application("AdminEmail")
objMailer.Execute
objMailer.ClearRecipients
Set objMailer = Nothing
Session("CFEmail") = ""
Session("CFMessage") = ""
Session("CFName") = ""
Session("strMsg") = ""
Session("strMsg") = "Thank you for contacting AMM. One of our term deposit brokers will be in touch with you shortly."
FullName = Request.Form("Name")
Dim cn
'DB Connection and Counter Intigration
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set objCommand = Server.CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = cn
.CommandText = "uspAMMInsertRequestCounter"
.CommandType = 4
.CommandTimeout = 240
.Parameters.Append .CreateParameter("@colRequestName", 200, 1, -1, FullName)
.Parameters.Append .CreateParameter("@colRequestEmail", 200, 1, -1, Request.Form("Email"))
.Parameters.Append .CreateParameter("@colRequestType", 200, 1, -1, "Contact Us")
.Execute
End With
'End Request Counter intigration
Response.Redirect ("/contact_thankyou.html")
end if
End If
%>