<% Session("strMsg") = "" if Len(request.form)>0 Then valid = false 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." elseif ( Request.Form("PracticeName") = "" or Request.Form("DealerGroup") = "" ) then FirstName = Request.Form("FirstName") Surname = Request.Form("Surname") ContactEmail = Request.Form("ContactEmail") ContactPhone = Request.Form("ContactPhone") DealerGroup = Request.Form("DealerGroup") PracticeName = Request.Form("PracticeName") Session("strMsg") = "Unfortunately your email was not sent this time.
Please check all required fields and try again." else valid = true end if if (valid) then Set objMailer = Server.CreateObject("JMail.SMTPMail") objMailer.Sender = Application("AdminEmail") objMailer.ContentType = "text/plain" objMailer.ContentTransferEncoding = "8bit" objMailer.ReplyTo = Request.Form("ContactEmail") objMailer.Subject = "Money Market website Demo Request: " objMailer.Body = "You have received an email from the Australian Money Market website, see below:" & vbCrLf & "---------------------------------------------------------------------------" & vbCrLf & "From: " & Request.Form("FirstName") & " " & Request.Form("Surname") & vbCrLf & "---------------------------------------------------------------------------" & vbCrLf & vbCrLf & "Email: " & Request.Form("ContactEmail") & vbCrLf & "Phone: " & Request.Form("ContactPhone") & vbCrLf & "Practice Name: " & Request.Form("PracticeName") & vbCrLf & "Dealer Group: " & Request.Form("DealerGroup") & vbCrLf objMailer.AddRecipient Application("AdminEmail") 'objMailer.AddRecipient "hamish.wadham@creativeintersection.com" objMailer.Execute objMailer.ClearRecipients Set objMailer = Nothing Session("strMsg") = "Thank you for your request to demo the AMM term deposit platform. One of our brokers will be in contact shortly to organise a demo at a time that suits." 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, "Demo Request") .Parameters.Append .CreateParameter("@colDealerGroup", 200, 1, -1, Request.Form("DealerGroup")) .Parameters.Append .CreateParameter("@colPracticeName", 200, 1, -1, Request.Form("PracticeName")) .Execute End With 'End Request Counter intigration Response.Redirect ("/forms-demorequest_thankyou.html") end if End If %>

Try it out for yourself!

VIEW ONLINE TUTORIALS

Financial advisers can request a demo over the phone or in-person. If you have colleagues in your office or other practices that would also like to experience AMM, just let us know.

* Denotes a required field

" 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")%>
<% End If %>