<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_glasgowmoneyquest2_STRING MM_editTable = "glasgowmoneyquest.copy2autodates" MM_editRedirectUrl = "http://www.librafinance.co.uk/thanksmq.php" MM_fieldsStr = "FirstName|value|Surname|value|HomeTel|value|WorkTel|value|Mobile|value|email|value|StatusType|value|DateofBirth|value|FoundProperty|value|EstCompDate|value|ApplicationType|value|MortgageTerm|value|PPriceVal|value|LoanRequired|value|Notes|value|email_recip|value|url|value|Valuation|value|searchengine|value|searchengine_sitemanager|value|Source|value|TakenBy|value|Outcome|value|LeadType|value|Consultant|value|MortgageAdvisor|value|CaseManager|value|SourceType|value|Spare5|value|App2NameFirst|value|App2SecondName|value|App2Salary|value|App2JobTitle|value|IncomeBasic|value|Occupation|value|App2HouseNo|value|App2CellPhone|value|App2OfficeNo|value|App2EAddress|value|App2DOB|value|Answer1|value|Answer2|value|Answer3|value|Answer4|value|Answer5_1|value|Answer5_2|value|Answer5_3|value|Answer5_4|value|Answer5_5|value|Answer5_6|value|Answer5_7|value|Answer5_8|value|Answer5_9|value|Answer6|value|NetMonthlyPayApp1|value|NetMonthlyPayApp2|value|ExistingMortgageRent|value|CouncilTax|value|Groceries|value|Clothing|value|Travel|value|EntertainmentLeisure|value|SavingsInvestment|value|Miscellaneous|value|SelfEmployed|value|ExistingLoan|value|MaritalStatus|value|LengthOfService|value" MM_columnsStr = "FirstName|',none,''|Surname|',none,''|HomeTel|',none,''|WorkTel|',none,''|Mobile|',none,''|email|',none,''|StatusType|',none,''|DateofBirth|',none,''|FoundProperty|',none,''|EstCompDate|',none,''|ApplicationType|',none,''|MortgageTerm|none,none,NULL|PPriceVal|none,none,NULL|LoanRequired|none,none,NULL|Notes|',none,''|Spare10|',none,''|Spare9|',none,''|Valuation|none,none,NULL|Spare7|',none,''|SiteManager|',none,''|Source|',none,''|TakenBy|',none,''|Outcome|',none,''|LeadType|',none,''|Consultant|none,none,NULL|MortgageAdvisor|',none,''|CaseManager|',none,''|SourceType|',none,''|Spare5|',none,''|App2NameFirst|',none,''|App2SecondName|',none,''|App2Salary|',none,''|App2JobTitle|',none,''|IncomeBasic|',none,''|Occupation|',none,''|App2HouseNo|',none,''|App2CellPhone|',none,''|App2OfficeNo|',none,''|App2EAddress|',none,''|App2DOB|',none,''|Answer1|',none,''|Answer2|',none,''|Answer3|',none,''|Answer4|',none,''|Answer5_1|',none,''|Answer5_2|',none,''|Answer5_3|',none,''|Answer5_4|',none,''|Answer5_5|',none,''|Answer5_6|',none,''|Answer5_7|',none,''|Answer5_8|',none,''|Answer5_9|',none,''|Answer6|',none,''|NetMonthlyPayApp1|',none,''|NetMonthlyPayApp2|',none,''|ExistingMortgageRent|',none,''|CouncilTax|',none,''|Groceries|',none,''|Clothing|',none,''|Travel|',none,''|EntertainmentLeisure|',none,''|SavingsInvestment|',none,''|Miscellaneous|',none,''|SelfEmployed|',none,''|ExistingLoan|',none,''|MaritalStatus|',none,''|LengthOfService|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <%session("SE")=Request.QueryString("SE")%> <%session("searchengine")=Request.QueryString("SE")%> <%session("Keywords")=Request.QueryString("Keywords")%> <%session("Keywords")=Request.QueryString("Keywords")%> Best Secured Personal Loans - UK Personal Loans

Start Here
 Free Secured Loans Enquiry
"Completing This Form Can Save You Time & Money"
Your Details: *denotes a required field

First Name:

*

Surname:

 * 
Residential Status:

Date of Birth:

Employment Status:

Occupation:

Gross Annual Income:

   £

How long have you been with your current employer?

years

Best Contact Tel No:

 *

Work Tel:

 if contactable

Mobile:

 if contactable

Email: (Your quotes will be emailed)
Quotes in Joint Names?
Quotation Details:

Loan Amount Required:

   £   * 

Preferred Term:

years *

Purpose of Loan:

Existing Mortgage Lender:

  

Outstanding Mortgage:

  £

Monthly Mortgage Payment:

  £ * 

Approximate Property Value:

   £ *   
Mortgage Arrears:

Defaults/CCJ's :

Notes :

Time Saving Tip: Save time by completing some additional questions now and benefit from our fastest quote service ever!  These extra questions only take a few minutes to answer but enable us to pinpoint the best deals for you very quickly reducing the time it normally takes on the telephone when we give you the quotes.
"> "> size="30">

Please Note: We do not pass your details to any third party.
THINK CAREFULLY BEFORE SECURING OTHER DEBTS AGAINST YOUR HOME. YOUR HOME MAY BE REPOSSESSED IF YOU DO NOT KEEP UP REPAYMENTS ON A MORTGAGE OR ANY OTHER DEBT SECURED ON IT.