<%@Language="VBScript"%> <%Option Explicit%> <% '****************** VERY IMPORTANT ******************* ' DO NOT CHANGE FIELD NAMES ON THIS PAGE, AS THEY ARE ' RELATED TO THE DATABASE, AND MAY CAUSE ERRORS !!!!! '****************** VERY IMPORTANT ******************* dim formvalue,sql,objRS,EnquiryId,inputnamesplit,EnquiryQuestionId,Encrypted, formvaluetext, displayorder, question, CategoryId, CategoryName, QuestionId dim strerrors,counter, getArrayPos, arrayName, FirstEmailArrayNo, SecondEmailArrayNo dim values(500) dim mailer dim custEmailAddr,CustEmailName,MDEmailAddr,MDEmailName,secondapprequire dim EmailHTML dim qsDisplay : qsDisplay = request.QueryString("display") function getArrayNameValue(arrayName) formvalue = "" inputnamesplit = "" getArrayPos = PositionInArray(values,arrayName & "::" & request.Form(arrayName),"") 'response.Write(getArrayPos & " - " & arrayName & " - " & request.Form(arrayName) & "
") if getArrayPos <> -1 then inputnamesplit = split(values(getArrayPos),"::") if ubound(inputnamesplit) > 0 then 'Cleanstring formvalue = cleanstring(inputnamesplit(1)) end if end if end function strErrors = "" counter = 0 'SUBMIT D8A TO THE D8ABASE if request.Form("submit1") <> "" then for each formvalue in request.form inputnamesplit = split(formvalue,"-") if ubound(inputnamesplit) > 0 then 'Put ALL FORM VALUES into an array called 'VALUES' counter = counter + 1 values(counter) = formvalue & "::" & request.Form(formvalue) '#1 VALIDATION 'Check that all fields have been field out in the first applicant '**** CHECK THAT THERE IS A VALUE IN THE INPUT TEXT **** ' if inputnamesplit(0) = "1" and instr(strErrors,"firstapp,") = false then 'if request.Form(formvalue) = "" then 'strErrors = strErrors & "firstapp," 'end if ' 'end if '#2 VALIDATION 'If any of the second applicant fields are filled in, they all need to be filled in. 'if inputnamesplit(0) = "2" and instr(strErrors,"secondapp,") = false then 'if request.Form(formvalue) <> "" then ' secondapprequire = true 'end if 'if secondapprequire = true AND instr(strErrors,"secondapp,") = false AND request.Form(formvalue) = "" AND formvalue <> "2-PropertyAddr" AND formvalue <> "2-PriceProperty" AND formvalue <> "2-PurposeMort" AND formvalue<>"2-PurposeProp" AND formvalue<> "2-TypeProp" AND formvalue <> "2-TotalCash" AND formvalue <> "2-TotalAmount" AND formvalue <> "2-TypeMortgage" AND formvalue <> "2-LengthTerm" AND formvalue <> "2-LoanAmount" then ' strErrors = strErrors & "secondapp," 'end if '#3 VALIDATION 'Check that DOB for second applicant is valid. 'if secondapprequire = true AND not isdate(request.Form("2-DOB")) then ' strErrors = strErrors & "seconddob," 'end if 'end if end if next '#4 VALIDATION - CHECK E-MAIL ADDRESS 'FIND ARRAY NUMBER TO FIRST APPLICANT E-MAIL ADDRESS IN VALUES if isEmail(request.Form("1-email")) = false then strErrors = strErrors & "firstemail," end if if request.Form("1-Fullname") = "" then strErrors = strErrors & "fullname," if request.Form("1-Telno") = "" then strErrors = strErrors & "telno," CustEmailName = cleanstring(request.form("1-Fullname")) CustEmailAddr = request.Form("1-Email") '#5 VALIDATION - VALIDATE DATE OF BIRTH SO THEY CANT INPUT AN INCORRECT ONE 'if inStr(strErrors,"firstapp,") = false AND not isDate(request.Form("1-DOB")) then 'strErrors = strErrors & "firstdob," 'end if if strErrors = "" then '******* BUILD SQL TABLE ******** '******* ADD RECORD TO ENQUIRY TABLE ******* application.Lock() EnquiryId = IDinsertRS("INSERT INTO enquiry (affiliate,SessionId,submitdate) VALUES ('" & session("affiliate") & "','" & session("session_id") & "',{fn NOW()})") Session("Session_id") = "" application.UnLock() 'Clear Affiliate Section from Session session("affiliate") = "" '******* ADD ALL THE ANSWERS TO THE ENQUIRY ANSWER TABLE ******* for each formvalue in request.Form 'Each has two numbers seperated by a '-'. The first number is application number & second is Question ID 'if request.Form(formvalue) <> "" then inputnamesplit = split(formvalue,"-") if ubound(inputnamesplit) > 0 then call makeRS(objRS,"SELECT * FROM enquiryquestion WHERE RelatedFieldName='" & inputnamesplit(1) & "'") 'Grab data from Question Table to input into answer table EnquiryQuestionId = objRS("ID") Encrypted = objRS("encrypted") displayorder = objRS("displayorder") question = objRS("question") CategoryId = objRS("EnquiryCategoryId") call closeRS(objRS) call makeRS(objRS,"SELECT * FROM enquirycategory WHERE ID=" & CategoryId) CategoryName = objRS("CategoryName") call closeRS(objRS) '******* ENCRYPTION ******** if encrypted = 1 then 'Encrypted text if requested formvaluetext = request.Form(formvalue) Dim encCM : Set encCM = Server.CreateObject("Persits.CryptoManager") Dim encConText : Set encConText = encCM.OpenContext("", True) ' we must use containerless mode Dim encExp1Key : Set encExp1Key = encConText.CreateExponentOneKey Dim encBlob : Set encBlob = encCM.CreateBlob Dim encKey : Set encKey = encConText.GenerateKeyFromPassword(EncKeyCode, calgSHA, calg3DES) Dim EncryptedBlob : Set EncryptedBlob = encKey.EncryptText(formvaluetext) formvaluetext = EncryptedBlob.Base64 else formvaluetext = cleanstring(request.Form(formvalue)) end if 'INPUT ANSWER INTO TABLE sql = "INSERT INTO enquiryanswer (EnquiryId,EnquiryQuestionId,Question,Encrypted,DisplayOrder,CategoryName,ApplicantNo,Answer) " sql = sql & " VALUES (" sql = sql & EnquiryId & "," sql = sql & EnquiryQuestionId & "," sql = sql & "'" & replace(question,"'","''") & "'," sql = sql & encrypted & "," sql = sql & displayorder & "," sql = sql & "'" & CategoryName & "'," sql = sql & inputnamesplit(0) & "," sql = sql & "'" & formvaluetext & "')" call executeRS(sql) end if 'end if next '******** SEND CONFIRMATION E-MAIL TO CUSTOMER ********** ' -------- if isEmail(custEmailAddr) then CustEmailName = request.Form("1-FullName") custEmailAddr = request.Form("1-Email") MDEmailName = "MortgageDirectSL" MDEmailAddr = "info@mortgagedirectsl.com" EmailHTML = EmailHTML & "Thank you for your enquiry.

" EmailHTML = EmailHTML & "We have recieved your enquiry and and will get back to you by return.

" EmailHTML = EmailHTML & "Regards,
MortgageDirectSL" set Mailer = nothing Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = MDEmailName Mailer.FromAddress = MDEmailAddr Mailer.RemoteHost = "mail.freshegg.net" Mailer.ContentType = "text/html" Mailer.AddRecipient CustEmailName, CustEmailAddr 'Mailer.AddBCC "lee", "lee@freshegg.com" Mailer.Subject = "New Enquiry" 'Mailer.Encoding = 1 mailer.bodyText = EmailHTML if not Mailer.SendMail then response.write "An error occured sending your confirmation email." set Mailer = nothing end if EmailHTML = "" '******** SEND CONFIRMATION E-MAIL TO ADMINISTRATOR ********** ' ------------- EmailHTML = EmailHTML & "You have recieved a new enquiry from a customer.

" EmailHTML = EmailHTML & "To view it, please log in to the admin area." set Mailer = nothing Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = CustEmailName Mailer.FromAddress = CustEmailAddr Mailer.RemoteHost = "mail.freshegg.net" Mailer.ContentType = "text/html" Mailer.AddRecipient "Mortgage Direct SL", "info@mortgagedirectsl.com" 'Mailer.AddRecipient "David Grace", "david.grace@freshegg.com" 'Mailer.AddBCC "lee", "lee@freshegg.com" Mailer.Subject = "A NEW Enquiry" 'Mailer.Encoding = 1 mailer.bodyText = EmailHTML if not Mailer.SendMail then response.write "An error occured sending your confirmation email." response.Write(Mailer.Response) response.End() end if response.Redirect("enquiry.asp?display=thankyou") end if end if %> enquiry
logo
home why us process information enquire now contact us
 
<% if qsDisplay = "thankyou" then %>

Thanks for your enquiry - we will get back to you very shortly with our feedback.
<% end if %> <% if qsDisplay = "" then %> <% '********** IF THERE ARE ERRORS, PRINT ERROR BAR ********** if strErrors <> "" then %> <% if inStr(strErrors,"firstapp,") then %> <% end if %> <% if inStr(strErrors,"firstemail,") then %> <% end if %> <% if inStr(strErrors,"fullname,") then %> <% end if %> <% if inStr(strErrors,"telno,") then %> <% end if %> <% if inStr(strErrors,"firstdob,") then %> <% end if %> <% if inStr(strErrors,"secondapp,") then %> <% end if %> <% if inStr(strErrors,"seconddob,") then %> <% end if %>
There are errors: -
All first applicant fields are mandatory.
The first applicant e-mail address is invalid.
Please enter a name.
Please enter a telephone number.
All first applicant Date of Birth has an invalid date.
Because you are filling out a second application, all fields need to be filled in.
All second applicant Date of Birth has an invalid date.
  <% end if %>
Personal Details First Applicant Second Applicant
<% arrayName = "1-Fullname" getArrayNameValue(arrayName) %> <% arrayName = "2-Fullname" getArrayNameValue(arrayName) %> <% arrayName = "1-DOB" getArrayNameValue(arrayName) %> <% arrayName = "2-DOB" getArrayNameValue(arrayName) %> <% arrayName = "1-Nationality" getArrayNameValue(arrayName) %> <% arrayName = "2-Nationality" getArrayNameValue(arrayName) %>
Full name
Date of birth
Nationality
<% arrayName = "1-Residential" getArrayNameValue(arrayName) %> <% arrayName = "2-Residential" getArrayNameValue(arrayName) %>
Residential status
<% arrayName = "1-MaritalStatus" getArrayNameValue(arrayName) %> <% arrayName = "2-MaritalStatus" getArrayNameValue(arrayName) %>
Marital status
<% arrayName = "1-Address" getArrayNameValue(arrayName) %> <% arrayName = "2-Address" getArrayNameValue(arrayName) %>
Contact address
<% arrayName = "1-Pcode" getArrayNameValue(arrayName) %> <% arrayName = "2-Pcode" getArrayNameValue(arrayName) %>
Postcode
<% arrayName = "1-Email" getArrayNameValue(arrayName) %> <% arrayName = "2-Email" getArrayNameValue(arrayName) %>
Email address
<% arrayName = "1-Telno" getArrayNameValue(arrayName) %> <% arrayName = "2-Telno" getArrayNameValue(arrayName) %>
Telephone no./s
Employment Details First Applicant Second Applicant
<% arrayName = "1-Employmentstatus" getArrayNameValue(arrayName) %> <% arrayName = "2-Employmentstatus" getArrayNameValue(arrayName) %>
Employment status
<% arrayName = "1-EmploymentStatOther" getArrayNameValue(arrayName) %> <% arrayName = "2-EmploymentStatOther" getArrayNameValue(arrayName) %>
<% arrayName = "1-Occupation" getArrayNameValue(arrayName) %> <% arrayName = "2-Occupation" getArrayNameValue(arrayName) %>
Occupation
<% arrayName = "1-TimeCurrentOcc" getArrayNameValue(arrayName) %> <% arrayName = "2-TimeCurrentOcc" getArrayNameValue(arrayName) %>
Time in current occupation
Income/Expenditure Details (please state currency used) First Applicant Second Applicant
<% arrayName = "1-GrossEarnings" getArrayNameValue(arrayName) %> <% arrayName = "2-GrossEarnings" getArrayNameValue(arrayName) %>
Gross earnings in last tax year
<% arrayName = "1-Netincome" getArrayNameValue(arrayName) %> <% arrayName = "2-Netincome" getArrayNameValue(arrayName) %>
Current net monthly income (After tax)
<% arrayName = "1-Addincome" getArrayNameValue(arrayName) %> <% arrayName = "2-Addincome" getArrayNameValue(arrayName) %>
Any additional income (please specify, e.g. dividends, rental income, pensions, investment income etc.)
<% arrayName = "1-TotalMonthly" getArrayNameValue(arrayName) %> <% arrayName = "2-TotalMonthly" getArrayNameValue(arrayName) %>
Total monthly debt payments (e.g. loans, credit cards & mortgages)
<% arrayName = "1-CreditHistory" getArrayNameValue(arrayName) %> <% arrayName = "2-CreditHistory" getArrayNameValue(arrayName) %>
Credit history
Can you provide the following:
<% arrayName = "1-P60" getArrayNameValue(arrayName) %> <% arrayName = "2-P60" getArrayNameValue(arrayName) %>
Last year's P60
<% arrayName = "1-3mPaySlip" getArrayNameValue(arrayName) %> <% arrayName = "2-3mPaySlip" getArrayNameValue(arrayName) %>
Last 3 Month's pay slips
<% arrayName = "1-Audited" getArrayNameValue(arrayName) %> <% arrayName = "2-Audited" getArrayNameValue(arrayName) %>
Audited accounts & Tax returns
<% arrayName = "1-3mBankSlip" getArrayNameValue(arrayName) %> <% arrayName = "2-3mBankSlip" getArrayNameValue(arrayName) %>
3 Month's bank slips
Assets/Investments (please state currency used) First Applicant Second Applicant
<% arrayName = "1-Cashbanks" getArrayNameValue(arrayName) %> <% arrayName = "2-Cashbanks" getArrayNameValue(arrayName) %>
Cash in banks
<% arrayName = "1-Property" getArrayNameValue(arrayName) %> <% arrayName = "2-Property" getArrayNameValue(arrayName) %>
Any properties you own already (market value(s) less outstanding mortgage(s))
<% arrayName = "1-Investments" getArrayNameValue(arrayName) %> <% arrayName = "2-Investments" getArrayNameValue(arrayName) %>
Investments (e.g., bonds, stocks &
Property Details
<% arrayName = "1-PropertyAddr" getArrayNameValue(arrayName) %> <% arrayName = "2-PropertyAddr" getArrayNameValue(arrayName) %>
Property address
<% arrayName = "1-PriceProperty" getArrayNameValue(arrayName) %> <% arrayName = "2-PriceProperty" getArrayNameValue(arrayName) %>
Price of property (euros)
<% arrayName = "2-PurposeMort" getArrayNameValue(arrayName) %>
Purpose of the mortgage <% arrayName = "1-PurposeMort" getArrayNameValue(arrayName) %>
Purpose of the property <% arrayName = "1-PurposeProp" getArrayNameValue(arrayName) %> <% arrayName = "2-PurposeProp" getArrayNameValue(arrayName) %>
<% arrayName = "2-TypeProp" getArrayNameValue(arrayName) %>
Type of property <% arrayName = "1-TypeProp" getArrayNameValue(arrayName) %>
  Type of land <% arrayName = "1-TypeProp" getArrayNameValue(arrayName) %>  
Mortgage Requirements (please state currency used)
<% arrayName = "1-TotalCash" getArrayNameValue(arrayName) %> <% arrayName = "2-TotalCash" getArrayNameValue(arrayName) %>
Total cash available to purchase property (includes money for deposit, fees, tax, etc.)
<% arrayName = "1-LoanAmount" getArrayNameValue(arrayName) %> <% arrayName = "2-LoanAmount" getArrayNameValue(arrayName) %>
Loan amount required
<% arrayName = "1-TypeMortgage" getArrayNameValue(arrayName) %> <% arrayName = "2-TypeMortgage" getArrayNameValue(arrayName) %>
Type of mortgage required (if known)
<% arrayName = "1-LengthTerm" getArrayNameValue(arrayName) %> <% arrayName = "2-LengthTerm" getArrayNameValue(arrayName) %>
Preferred length of term
Other First Applicant Second Applicant
<% arrayName = "1-OtherProperty" getArrayNameValue(arrayName) %> <% arrayName = "2-OtherProperty" getArrayNameValue(arrayName) %>
Other property, mortgage or financial arrangements in Spain (please give details)
<% arrayName = "1-FindProperty" getArrayNameValue(arrayName) %> <% arrayName = "2-FindProperty" getArrayNameValue(arrayName) %>
If you have not found a property, when are you hoping to find one?
Would you like us to recommend a Solicitor?
<% arrayName = "1-Solicitor" getArrayNameValue(arrayName) %> <% arrayName = "2-Solicitor" getArrayNameValue(arrayName) %>
Do you require a foreign exchange service (to save money on your foreign transfers)?
<% arrayName = "1-FES" getArrayNameValue(arrayName) %> <% arrayName = "2-FES" getArrayNameValue(arrayName) %>
Do yor require independent financial advice (e.g. investments, life assurance & tax planning)?
<% arrayName = "1-FinAdvice" getArrayNameValue(arrayName) %> <% arrayName = "2-FinAdvice" getArrayNameValue(arrayName) %>
<% arrayName = "1-Comments" getArrayNameValue(arrayName) %> <% arrayName = "2-Comments" getArrayNameValue(arrayName) %>
Comments
<% Dim nRet nRet = request("ret") Select Case nRet Case "1" ' success Response.Write "" '************ SUBMIT FORM TO DATABASE ********** response.Write("SUBMITTED") Case "2" ' some sort of error Response.Write "" Case "3" Response.Write "" Case "4" Response.Write "" End Select end if %>