<%@LANGUAGE="VBSCRIPT"%> <% '*** Pure ASP File Upload 3.0.14 ' Process form frmUploadCustomerDocument Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight Set pau = new PureUpload pau.ScriptLibrary = "ScriptLibrary" pau.ConflictHandling = "over" pau.StoreType = "path" pau.UploadFolder = """tmp/""" pau.Required = false pau.ProcessUpload pau.SaveAll %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (UploadQueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(UploadQueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> Australian Money Market <% Session("strMsg") = "" Dim valid_form Dim cn Dim rs Dim UrlQS, strDealerGroupCode Dim strProviderPDSFileLocation If (CStr(UploadFormRequest("MM_insert")) = "frmUploadCustomerDocument") Then if (LCase(UploadFormRequest("ImageValue")) <> LCase(Session("yarimagematey"))) then Session("strMsg") = "Unfortunately your email was not sent this time.
Please check the image verification field and try again." valid_form = false Elseif (UploadFormRequest("FirstName") = "" _ or UploadFormRequest("Surname") = "" _ or UploadFormRequest("Mobile_Phone") = "" _ or UploadFormRequest("Phone") = "" _ or UploadFormRequest("Personal_Email") = "" _ or UploadFormRequest("DealerGroup") = "" _ or UploadFormRequest("AFSL_Number") = "" _ or UploadFormRequest("Practice_Phone") = "" _ or UploadFormRequest("Practice_Address") = "" _ or UploadFormRequest("SuburbTown") = "" _ or UploadFormRequest("State") = "" _ or UploadFormRequest("Postcode") = "" _ or UploadFormRequest("Practice_Name") = "" ) then Session("strMsg") = "Please check the require fields and re-enter the numeric code." valid_form = false Else valid_form = true End If If (valid_form = true) Then 'Check for Broker code Set cn = Server.CreateObject("ADODB.Connection") %><% Set rs = cn.Execute("EXEC uspGetDealerGroupByAFSNum '" & replace(UploadFormRequest("AFSL_Number"), " ", "") & "'") if not rs.eof then strDealerGroupCode = rs.Fields("colDealerGroupCode").Value else strDealerGroupCode = "" end if UrlQS="DealerGroupCode=" & strDealerGroupCode & _ "&FirstName=" & replace(UploadFormRequest("FirstName"), " ", "%20") & _ "&SurName=" & replace(UploadFormRequest("Surname"), " ", "%20") & _ "&Email=" & replace(UploadFormRequest("Personal_Email"), " ", "") & _ "&Mobile=" & replace(UploadFormRequest("Mobile_Phone"), " ", "") & _ "&Phone=" & replace(UploadFormRequest("Phone"), " ", "") & _ "&Dealer_Group=" & replace(UploadFormRequest("DealerGroup"), " ", "%20") & _ "&AFSL_Number=" & replace(UploadFormRequest("AFSL_Number"), " ", "") & _ "&Practice_Name=" & replace(UploadFormRequest("Practice_Name"), " ", "%20") & _ "&Practice_Phone=" & replace(UploadFormRequest("Practice_Phone"), " ", "") & _ "&Practice_Address=" & replace(Replace(UploadFormRequest("Practice_Address"), ",", "_"), " ", "%20") & _ "&SuburbTown=" & replace(UploadFormRequest("SuburbTown"), " ", "%20") & _ "&State=" & replace(UploadFormRequest("State"), " ", "") & _ "&Postcode=" & replace(UploadFormRequest("Postcode"), " ", "") if strDealerGroupCode = "" then UrlQS = "https://newdev.moneymarket.com.au/AddDealerGroup.asp?" & UrlQS else UrlQS = "https://newdev.moneymarket.com.au/AddBrokerCode.asp?" & UrlQS end if Set objMailer = Server.CreateObject("JMail.SMTPMail") objMailer.Sender = Application("AdminEmail") if UploadFormRequest("uploadFile") = "" then objMailer.ContentType = "text/plain" else objMailer.ContentType = "multipart/mixed" end if objMailer.ContentTransferEncoding = "8bit" objMailer.ReplyTo = UploadFormRequest("Personal_Email") objMailer.Subject = "Request for setting up new Advisor account" objMailer.Body = "You have received an email from the Australian Money Market website, see below:" & vbCrLf _ & "Please set up a new advisor account using the following details:" & vbCrLf _ & "Name:" & UploadFormRequest("FirstName") & " " & UploadFormRequest("Surname") & vbCrLf _ & "Personal Email:" & UploadFormRequest("Personal_Email") & vbCrLf _ & "Mobile Phone:" & UploadFormRequest("Mobile_Phone") & vbCrLf _ & "Phone:" & UploadFormRequest("Phone") & vbCrLf _ & "Dealer Group:" & UploadFormRequest("DealerGroup") & vbCrLf _ & "AFSL Number:" & UploadFormRequest("AFSL_Number") & vbCrLf _ & "Practice Name:" & UploadFormRequest("Practice_Name") & vbCrLf _ & "Practice Phone:" & UploadFormRequest("Practice_Phone") & vbCrLf _ & "Practice Address:" & UploadFormRequest("Practice_Address") & vbCrLf _ & "SuburbTown:" & UploadFormRequest("SuburbTown") & vbCrLf _ & "State:" & UploadFormRequest("State") & vbCrLf _ & "Postcode:" & UploadFormRequest("Postcode") & vbCrLf _ & UrlQS if UploadFormRequest("uploadFile") = "" then else objMailer.AddAttachment(Server.MapPath(UploadFormRequest("uploadFile"))) end if objMailer.AddRecipient Application("AdminEmail") objMailer.Execute objMailer.ClearRecipients Set objMailer = Nothing FullName = UploadFormRequest("FirstName") & " " & UploadFormRequest("Surname") '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, UploadFormRequest("Personal_Email")) .Parameters.Append .CreateParameter("@colRequestType", 200, 1, -1, "Create an Adviser Account") .Execute End With 'End Request Counter intigration if UploadFormRequest("uploadFile") = "" then else 'Delete file after email send Path = Split(UploadFormRequest("uploadFile"), "/") FileName = Path(UBound(Path)) FilePath = "tmp" dirPath = Server.MapPath(FilePath) Set dirObject = CreateObject("Scripting.FileSystemObject") Set dirFolder = dirObject.GetFolder(dirPath) Set fso = CreateObject("Scripting.FileSystemObject") If(fso.FileExists(dirPath & "\" & FileName)) Then dirObject.DeleteFile(dirPath & "\" & FileName) Else Response.write("The file was unable to be deleted. Please FTP into the server and delete the file: " & dirPath & "\" & FileName) End If end if Session("strMsg") = "Thank you for your registration request. One of our brokers will be in touch with you shortly to setup your broker code so you can get started!" Response.Redirect ("/register_thankyou.html") Else FirstName = UploadFormRequest("FirstName") Surname = UploadFormRequest("Surname") Email = UploadFormRequest("Email") Phone = UploadFormRequest("Phone") DealerGroup = UploadFormRequest("DealerGroup") Mobile_Phone = UploadFormRequest("Mobile_Phone") Personal_Email = UploadFormRequest("Personal_Email") DealerGroup = UploadFormRequest("DealerGroup") AFSL_Number = UploadFormRequest("AFSL_Number") Practice_Name = UploadFormRequest("Practice_Name") Practice_Phone = UploadFormRequest("Practice_Phone") Practice_Address = UploadFormRequest("Practice_Address") SuburbTown = UploadFormRequest("SuburbTown") State = UploadFormRequest("State") Postcode = UploadFormRequest("Postcode") end if Else Session("strMsg") = "" End If %>
Update your information

If at anytime you want to change your personal details or dealer group information, contact us and we'll help you out.

Create an Adviser Account

Simply fill out your contact details and we'll set up a broker code for you to access the system.

" width="150" height="50" id="theImage" alt="CAPTCHA Image" />
Trouble reading the code?
Load a new one





* Denotes a required field

<% If Session("strMsg") <> "" Then %>
0 Then %>success<% Else %>notification<% End If %>" style="text-align: left;"> <%=Session("strMsg")%> <% Session("strMsg") = "" %>
<% End If %>