%
Session("CFEmail") = Request.Form("Email")
Session("CFMessage") = Request.Form("Message")
Session("CFName") = Request.Form("Name")
if Session("ID") <> "" and Session("UserTypeID") = Application("Planner") Then
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rss = cn.Execute("EXEC uspGetPlanner '" & Session("ID") & "'")
f_name_val = rss.Fields("colPlannerFirstName").Value
l_name_val = rss.Fields("colPlannerSurname").Value
bcode_name_val = rss.Fields("colPlannerBrokerCode").Value
email_val = rss.Fields("colPlannerEmail").Value
phone_val = rss.Fields("colPlannerPhone").Value
Else
f_name_val = ""
l_name_val = ""
bcode_name_val = ""
phone_val = ""
email_val = ""
End If
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") = "Thank you for your referral. We appreciate you spreading the word to others who will benefit from knowing about the AMM term deposit platform."
FullName = Request.Form("FirstName") & " " & Request.Form("Surname")
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("ContactEmail"))
.Parameters.Append .CreateParameter("@colRequestType", 200, 1, -1, "make a Referral")
.Execute
End With
'End Request Counter intigration
Response.Redirect ("/forms-makereferral_thankyou.html")
end if
End If
%>