<% 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 %>
Thanks for spreading the word!
To make a referral, please enter the contact details for the person/s you would like to share AMM with.
Your Details
AMM Broker Code (if you have one)
First Name
Surname
Phone
Email
Referred Person/s Details
Contact Name / Contact Phone / Contact Email
Contact Name / Contact Phone / Contact Email
Contact Name / Contact Phone / Contact Email
Enter numeric code
" width="150" height="50" id="theImage" alt="CAPTCHA Image" />
Trouble reading the code?
Load a new one
<% If Session("strMsg") <> "" Then %>
0 Then %>success<% Else %>notification<% End If %>"> <%=Session("strMsg")%>
<% Session("strMsg") = "" End If %>