% Response.Buffer = false 'Response.Write "asd" 'Loan/Finance Details sAction = "" & trim(request("Action")) sFirstname = "" & trim(request("FirstName")) sLastname = "" & trim(request("Surname")) sSuburb = "" & trim(request("Suburb")) sState = "" & trim(request("State")) sPostcode = "" & trim(request("Postcode")) sHomeTel = "" & trim(request("HomeTel")) sWorkTel = "" & trim(request("WorkTel")) sMobile = "" & trim(request("Mobile")) sEmail = "" & trim(request("Email")) sAmount = "" & trim(request("AmountReq")) 'Refinance Details sCurrentLender = trim(request("CurrentLender")) sCurrentIR = trim(request("CurrentIR")) sLoanType = trim(request("LoanType")) 'Asset and Income Details sPropVal1 = trim(request("PV1")) sPropVal2 = trim(request("PV2")) sPropVal3 = trim(request("PV3")) sGrossSalary = trim(request("Salary")) sPropRentIncome = trim(request("RentalIncome")) sOtherIncome = trim(request("OtherIncome")) sComments = trim(request("Comments")) sSupportName = "Australian Mortgage and Finance" sSupportEmail = "enquiries@mortgageandfinance.com.au" sRemoteHost = "mail.mortgageandfinance.com.au" bError = false bSendError = false if sAction="send" AND (sFirstname="" OR sEmail="") then bError = true sErrMsg = "
Please fill in all required fields!
" elseif sAction="send" then Dim objMailer set objMailer = Server.CreateObject("Jmail.Message") objMailer.FromName = sSupportName objMailer.From = sSupportEmail objMailer.Subject = "Australian Mortgage and Finance Enquiry" objMailer.AddRecipient sEmail, sFirstname objMailer.Body = "Dear " & sFirstname & ", " & vbCrLf & vbCrLf &_ "Thank you for your enquiry with Australian Mortgage and Finance. One of our " &_ "mortgage brokers will review your details and get back to you as soon as possible." & vbCrLf & vbCrLf &_ "Regards," & vbCrLf &_ "The Australian Mortgage and Finance Team" objMailer.send(sRemoteHost) objMailer.ClearRecipients objMailer.FromName = sFirstname & " " & sLastname objMailer.From = sEmail objMailer.Subject = "Australian Mortgage and Finance Enquiry" objMailer.AddRecipient sSupportEmail, sSupportName objMailer.Body = "" &_ "Dear AMF Team," & vbCrLf & vbCrLf &_ "A new enquiry has been submitted. Details are as follows:" & vbCrLf & vbCrLf &_ "LOAN/FINANCE DETAILS" & vbCrLf &_ "First Name: " & sFirstname & vbCrLf &_ "Surname: " & Surname & vbCrLf &_ "Suburb/City: " & sSuburb & vbCrLf &_ "State: " & sState & vbCrLf &_ "Postcode: " & sPostcode & vbCrLf &_ "Home Telephone: " & sHomeTel & vbCrLf &_ "Work Telephone: " & sWorkTel & vbCrLf &_ "Mobile: " & sMobile & vbCrLf &_ "Email Address: " & sEmail & vbCrLf &_ "Loan/Finance Amount Required: " & sAmount & vbCrLf & vbCrLf &_ "REFINANCE DETAILS" & vbCrLf &_ "Current Lender: " & sCurrentLender & vbCrLf &_ "Current Interest Rate: " & sCurrentIR & vbCrLf &_ "Loan Type: " & sLoanType & vbCrLf & vbCrLf &_ "ASSET AND INCOME DETAILS" & vbCrLf &_ "Value of Property 1: " & sPropVal1 & vbCrLf &_ "Value of Property 2: " & sPropVal2 & vbCrLf &_ "Value of Property 3: " & sPropVal3 & vbCrLf &_ "Single/Combined Gross Salary Wage: " & sGrossSalary & vbCrLf &_ "Single/Combined Property Rental Income: " & sPropRentIncome & vbCrLf &_ "Other Income: " & sOtherIncome & vbCrLf &_ "Comments: " & sComments & vbCrLf if objMailer.send(sRemoteHost) then Response.Redirect "enquirysent.htm" else bSendError = true sErrMsg = "Dear " & sFirstname & ",
" & vbCrLf &_ "Due to a technical issue, we are unfortunately unable to send your request at this time.
" & vbCrLf &_ "Please try again later, or call us on 9836 5300. We apologise for any incovenience.
" & vbCrLf &_ "Regards,
" & vbCrLf &_
"The Australian Mortgage and Finance Team
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|