<% IF Request("SVA") > "" Or Request("AdID") > "" Then Session("va") = Request("SVA") Session("AddID") = Request("AdID") End If If Session("Site_Version") = "" Then 'goes in less_than_3 on application. Session("Site_Version") = "MD_V1" End if '******************************************************************************************************************************** 'Work out what pagename we are on (ie store last part of url minus the '.whatever'); and store correct ../'s '******************************************************************************************************************************** Dim page_Name, Suba, pathArray Suba = "" 'below you will see what this is used for. page_Name = Request.ServerVariables("PATH_INFO") 'full path from root folder. pathArray = split(page_Name, "/", -1) 'store every piece between each '/' page_Name = pathArray(UBound(pathArray)) 'this should be PAGENAME.whatever. page_Name = Left(page_Name, instr(page_Name, ".")-1) 'should give everything to left of the '.' Page_Namea = Replace(Page_Name,"_"," ") Page_Namea = Replace(Page_Namea,".asp","") STAGEA = Right(Page_Namea,1) 'now count through pathArray. If there are other sections than UBound we are in a subfolder and Suba must be changed. Dim i For i=1 to UBound(pathArray)-2 'I'm not sure why 2 exactly but it gives the right result. Suba = Suba&"../" 'this should lead back to the root directory now. Next 'now all relative links to top level can look like =SubaFILENAME.WHATEVER '******************************************************************************************************************************** KWa = Request.Querystring("KW") qaa = Request.Querystring("qa") If KWa > "" Then qa = KWa ElseIf qaa > "" Then qa = qaa End If '************************************************* 'If this is a dynamic page If qa = "" Then urla = Request.ServerVariables("QUERY_STRING") urla = replace(urla,"404;","") urla = replace(urla,"beechfinance.co.uk","") urla = replace(urla,"beechfinance.com","") urla = replace(urla,"www.","") urla = replace(urla,"http://","") urla = replace(urla,"https://","") urla = replace(urla,"_"," ") urla = replace(urla,"+"," ") urla = replace(urla,":80","") urla = replace(urla,".html","") urla = replace(urla,".htm","") urla = replace(urla,".asp","") If instr(urla,"/") then PathArray=Split(urla,"/",-1,1) Page_Name = PathArray(Ubound(PathArray)) urla = replace(urla,"/"," ") qa = urla Else urla = replace(urla,"/"," ") qa = urla End IF End IF '************************************************* Titla = UCase(qa) IF Titla = "" Then Titla = "Secured Loans, Mortgages, Remortgages" End If domaina = Request.ServerVariables ("HTTP_HOST") Securea = Request.ServerVariables ("HTTPS") If Securea = "on" Then domaina = "https://"&domaina Else domaina = "http://"&domaina End If %> <% If qa = "" Then If Session("App_Type") = "Secured" Then qa = "Secured Loans" End If If Session("App_Type") = "Mortgage" Then qa = "Mortgages" End If If Session("App_Type") = "Remortgage" Then qa = "Remortgages" End If If Session("App_Type") = "Tenant" Then qa = "Tenants" End If End If If qa < " " Then qa = "Finance" End If Set conn = Server.CreateObject("ADODB.Connection") conn.open "beechdsn","beech","Wh055gP" Set Rs = Server.CreateObject("ADODB.Recordset") '******************************************************************************************************** If Session("va") = "" Then If Session("AddID")="" Then Session("AddID") = Request("AddID") End if dim ipa ipa = LEFT(Request.ServerVariables("REMOTE_ADDR") , 50) Dim pipa pipa = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '********************************************************** 'IPCONVERTER- START '********************************************************** ipaddress = Request.ServerVariables("REMOTE_ADDR") Set ipObj = Server.CreateObject("IP2Location.Country") If ipObj.Initialize("webmaster@beechfinance.co.uk-2007-10-ySyzN6fXCm9C") <> "OK" Then End If CountryName = ipObj.LookUpShortName(ipaddress) CountryNameL = ipObj.LookUpFullName(ipaddress) Set ipObj = nothing '********************************************************** 'IPCONVERTER- END '********************************************************** '********************************************************** 'PROXY-IPCONVERTER- START '********************************************************** pipaddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") Set ipObj = Server.CreateObject("IP2Location.Country") If ipObj.Initialize("webmaster@beechfinance.co.uk-2007-10-ySyzN6fXCm9C") <> "OK" Then End If pCountryName = ipObj.LookUpShortName(pipaddress) pCountryNameL = ipObj.LookUpFullName(pipaddress) Set ipObj = nothing '********************************************************** 'PROXY-IPCONVERTER- END '********************************************************** dim AddIDA AddIDA = LEFT(Request.QueryString("AddID"), 50) dim referera referera = LEFT(Request.ServerVariables("HTTP_REFERER"), 255) dim scripta scripta = Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO") Dim KWa KWa = Request.QueryString("KW") If KWa = "" Then KWa = Request.QueryString("keyword") End If Session("Affiliate") = "False" If AddIDA > "" Then If Request("WF") = "True" Then Rs.Open "SELECT * FROM Campaign_Info_thompson where AddID = "&AddIDA&"", Conn, 1,1 Else Rs.Open "SELECT * FROM Campaign_Info where AddID = "&AddIDA&"", Conn, 1,1 End If Dim theDate,iDay,iMonth,iYear,newDate,newDateArr theDate="" theDate=Date() newDateArr=Split(theDate,"/") iDay=newDateArr(0) iMonth=newDateArr(1) iYear=newDateArr(2) newDate=iMonth & "/" &iDay & "/" & iYear If Rs.BOF Or Rs.EOF Then Session("key-lock") = "Unlocked" Else Session("key-lock") = Rs("Fee") sitea = Rs("site") worda = Rs("word") If Rs("Description") = "Affiliate" Then Session("Affiliate") = "True" End If If KWa > "" Then bannera = KWa ElseIF Request.QueryString("keyword") > "" Then bannera = Request.QueryString("keyword") ElseIf Rs("banner") > "" Then bannera = Rs("banner") End If pagea = Rs("URL") End If Rs.Close End If If bannera = "" Then bannera = "Not_Tracked" End If If sitea = "" Then sitea = "Not_Tracked" End If strSQL = "Set Nocount on " strSQL = strSQL + " Insert Campaign_logging (lastpage,site,Tracker_ID,word,script,referer,remote_addr,http_x_forwarded_for,language,screen,whatcookie,banner,prev_site,prev_word,prev_Banner,prev_ip,prev_app,prev_referer,prev_aff,prev_script,affiliate,time,country_short,country_long,proxy_country_short,proxy_country_long,prev_country_short,prev_country_long,prev_proxy_country_short,prev_proxy_country_long,company,prev_time) VALUES ('Home','"&sitea&"','"&AddIDA&"','"&worda&"','"&scripta&"','"&referera&"','"&ipa&"','"&pipa&"','"&Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")&"','"&pagea&"','"&Request.Cookies("previous")&"','"&bannera&"','"&LEFT(Request.Cookies("site"),50)&"','"&LEFT(Request.Cookies("word"),50)&"','"&LEFT(Request.Cookies("banner"),50)&"','"&LEFT(Request.Cookies("ip"),20)&"','"&LEFT(Request.Cookies("application"),20)&"','"&LEFT(Request.Cookies("referer"),255)&"','"&LEFT(Request.Cookies("affiliate"),20)&"','"&LEFT(Request.Cookies("script"),255)&"','"&adida&"','"&newDate&"','"&CountryName&"','"&CountryNameL&"','"&pCountryName&"','"&pCountryNameL&"','"&Request.Cookies("country_short")&"','"&Request.Cookies("country_long")&"','"&Request.Cookies("pcountry_short")&"','"&Request.Cookies("pcountry_long")&"','D','"&LEFT(Request.Cookies("time"),255)&"') " strSQL = strSQL + " select IdentityInsert=@@identity" strSQL = strSQL + " set nocount off" Set objRS = Conn.Execute(strSQL) va = objRS("IdentityInsert") Session("va")=va If sitea = "" Then sitea = "NA" End If Session("site")=sitea If worda = "" Then worda = "NA" End If Session("worda")=worda If bannera = "" Then bannera = "NA" End If Session("banner")=bannera Response.Cookies("previous") = visitora Response.Cookies("previous").Expires = now + 365 Response.Cookies("site") = sitea Response.Cookies("site").Expires = now + 365 Response.Cookies("word") = worda Response.Cookies("word").Expires = now + 365 Response.Cookies("Banner") = bannera Response.Cookies("Banner").Expires = now + 365 Response.Cookies("ip") = ipa Response.Cookies("ip").Expires = now + 365 Response.Cookies("referer") = referera Response.Cookies("referer").Expires = now + 365 Response.Cookies("script") = scripta Response.Cookies("script").Expires = now + 365 Response.Cookies("country_short") = CountryName Response.Cookies("country_short").Expires = now + 365 Response.Cookies("country_long") = CountryNameL Response.Cookies("country_long").Expires = now + 365 Response.Cookies("pcountry_short") = pCountryName Response.Cookies("pcountry_short").Expires = now + 365 Response.Cookies("pcountry_long") = pCountryNameL Response.Cookies("pcountry_long").Expires = now + 365 Response.Cookies("Time") = Now() Response.Cookies("Time").Expires = now + 365 End If If session("va") > "" Then Rs.Open "SELECT ID, Site, Lastpage, Domain_Name, affiliate, mother FROM Campaign_logging Where ID = "&session("va")&"", Conn, 1,3 if Rs.bof or Rs.eof then sitea = "Unknown" else sitea = Rs("site") Rs("lastpage") = "Home-Revisited" If Request("Site") > "" Then Rs("Domain_Name") = Request("Site") End If If Request("Aff") > "" Then Rs("affiliate") = Request("aff") End If If Request("M") > "" Then Rs("mother") = Request("M") End If Rs.Update end if Rs.Close End If '******************************************************************************************************** Rs.Open "SELECT source, NTS FROM DDI Where source = '"&Session("site")&"'", Conn, 1,1 If Rs.BOF Or Rs.EOF Then Numbera = "0800 634 5370" Else Numbera = Rs("NTS") End If Rs.Close Session("qa") = qa Session("Numbera") = Numbera Session("domaina_img") = domaina_img Session("domaina") = domaina If (Request.Querystring("N") = "C" And Session("va") > "" And Session("IDA") > "" And Session("ID2") > "" And Session("REF2") > "") Then Rs.Open "SELECT ID, type_other FROM Loan_Enquiry_Sheet Where ID = '"&Session("IDA")&"'", Conn, 1,3 Oldapptypea = Rs("type_other") Rs("type_other") = Session("App_Type") Rs.Update Rs.Close End If dim txt,pos txt=Request.ServerVariables("PATH_INFO") pos=InStr(1,txt,"Application_Form",1) URLStringa = pos dim pos1 pos1=InStr(1,Session("App_Type"),"mortgage",1) IDDa = pos1 %> <% '*************************************************************************************** '* CreateDropdown - populates a select tag '* '* NB select tag is put in page manually, need to set multiple attribute if needed. '* '* Parameters: '* list: list of options to use, format as string - value1#:text1#_value2#:text2... '* selopt: option(s) to set as selected (multiple list in form 'v1, v2, v3' [with spaces]) '* ps: adds a default/initial option (as in Please Select) (list in form 'value, text' [with space]) '* (ps of "##NOPLEASESELECT##" means no "Please Select" is added) '* '* Examples: (list = "1#:One#_2#:Two#_3#:Three#_4#:Four") '* '* 1) In page use: '* '* get: '* '* '* '* '* 2) In page use: '* '* get: '* '* '* '* '* '* Author: James Hunter. Created: 02/03/07. Modified: 15/03/07 '* Last Modified: Definable value/text pair for 'default' option (ps variable) '* Version: 1.0 '*************************************************************************************** Sub CreateDropdown(list, selopt, ps) Dim arrOptions, arrVT, arrSelected, opt, st arrSelected = Split(selopt, ", ") 'deal with multiple-enabled select boxes If ps <> "##NOPLEASESELECT##" Then arrVT = Split(ps, ", ") st = "" 'selected text For Each chksel In arrSelected 'check Please Select value against every selected option If arrVT(0) = chksel Then st = " selected=""selected""" End if Next 'chksel Response.Write("" & VbCrLf) End if arrOptions = Split(list, "#_") For Each opt In arrOptions arrVT = Split(opt, "#:") '(0)=value of option, (1)=text seen in list st = "" 'selected text For Each chksel In arrSelected 'compare each option value to each selected option If arrVT(0) = chksel Then 'add selected string to this option st = " selected=""selected""" End if Next 'chksel Response.Write("" & VbCrLf) Next 'opt End Sub '*************************************************************************************** '* End CreateDropdown '*************************************************************************************** '*************************************************************************************** '* Set up lists that the various dropdowns use on this page '*************************************************************************************** Dim arrTitle, arrOwed arrTitle = "Mr#:Mr#_Mrs#:Mrs#_Ms#:Ms#_Miss#:Miss#_Dr#:Dr" arrOwed = "0#:None#_2000#:Up to £2000#_5000#:£2000 - £5000#_10000#:£5000 - £10000#_15000#:£10000 - £15000#_20000#:£15000 - £20000#_30000#:£20000 - £30000#_40000#:£30000 - £40000#_50000#:£40000 - £50000#_99999#:More than £50000" '*************************************************************************************** '* End list setup '*************************************************************************************** %>
Beech Solutions - Debt Management
Call us free
0800 195 6710
HOME
ABOUT US
DEBT MANAGEMENT
IVAs
BANKRUPTCY
CONTACT US

Make a fresh start. Reduce your monthly bills by up to 70%. One single lower monthly payment. Stop creditors contacting you. Let us deal with your creditors. Start living your life again.

Debt Management.

If you are in debt difficulties and finding it hard to manage, it is not always the answer, or even possible to borrow more money. At Beech Financial Solutions we aim to provide you with the best debt management in the UK to solve your debt problems. With our debt management and consolidation programs, we can reduce your monthly bills by up to 70% and clear all your existing credit cards, loans and other debts by replacing them all with one single lower monthly payment. Imagine the peace of mind that will bring and the feeling of being back in control. We have been helping customers with financial products for many years and have 18 years experience in the Financial Services Industry. The people who you speak to will know how to help you and will not judge you, just offer practical advice.

No more hiding from the phone or worrying about the post.

Our specialists will negotiate with your creditors to lower your repayments on your behalf, leaving you stress free and able to enjoy your life again.

  • You will not be charged for an enquiry.
  • You are under no obligation whatsoever.
  • All your details will be strictly confidential.

There are numerous organisations currently offering free debt management and Consolidation Programs across the UK. The question that naturally presents itself is "Why choose us?”

For your debt management, unlike many of our competitors we endorse an ETHICAL approach to debt management, we are owned by a company that is directly authorised by the FSA and have many high level principles of business to follow. We take great pride in our approach for the best option for all our clients.

We will only recommend debt management to you if this is the right solution for you, we will show you all the options available to you if you are a homeowner or a tenant and offer the best advice for you in a clear, fair and non misleading manner.

We will review your circumstances regularly to assess whether you should be on a debt management program or not and offer advice accordingly.

All you need to do is tell us who you owe money to, how much you owe and how much you can afford to pay each month. Then we take over. We negotiate with your creditors to agree affordable monthly repayments and we make the payments on your behalf. We will ask them to stop calling you and charging you fees and interest. Your debts will steadily reduce until you have repaid what you owe. We will help you make a budget, we will take time to go through what you really spend on so you can manage the new payments, we will look at where your money is going and start to make you savings straight away.

If you are currently on a debt management program and are unsure whether you should be or not, please contact us for free advice. If there are other options available to you apart from the debt management program, we can have a look at it for you.

.
Enquiry Form
.
.   .

SECURED LOANS
MORTGAGES
RE-MORTGAGES
TENANT LOANS
BE FREE FROM DEBT ... AND ENJOY LIFE AGAIN.