<%
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
'***************************************************************************************
%>
People often feel that when they get into debt there’s nowhere to turn, and nobody to talk to. At Beech Solutions we believe that a professional, tailor-made debt management service delivered by a team of personal advisers is by far the most effective way to repay your debts and help to put your financial worries behind you.
It may be that you’ve suffered a change in circumstances, such as a job loss, bereavement or divorce; or perhaps you’ve simply overestimated what you could afford to pay back each month. Beech Solutions is not here to judge you, simply to advise on a practical solution that’s best for you.
In fact, the importance we place on personal service is the key to our successful Financial Management Programme. And from making your first contact with Beech Solutions to making your final repayment to your creditors, we’re with you all the way.
From individual debt counselling to providing you with your own dedicated Client Liaison Officer on a day to day basis.
From calculating how much you need for everyday living expenses to working out how much you can afford to repay.
From negotiating with your creditors to handling all correspondence relating to your debts.
From carrying out regular reviews of your programme to helping you with alternative solutions as your circumstances change.
Our priority is to help you manage your finances more effectively.
Our Financial Management Programme is tailored to your individual needs, so whatever your current circumstances, you’ll find everything is set up and managed with your interests firmly in mind.
