<%@ Language=VBScript %> Debt UK Online - Your life without Debt. Free Debt Help Advice, Debt Management Plans, Flexible IVA Help, Bankruptcy Avoidance, and Trust Deeds for Scotland.

Common Questions
How much will I have to pay?
What do you do?
How do I know Im getting good advice ?
Will this affect my credit rating?
What is the charge for this Debt Help?

Debt UK Online will not pass on your application details to any third party marketeers without your prior consent.

Once you have completed the Application form, one of our advisors will contact you to discuss your situation.

You can contact us about your Application at: support@debtadviceonline.com

Once we have a clear picture of your financial circumstances, we can set out to help you reduce your monthly payments into a substantially lower, affordable monthly payment. Simply fill out the online form for a free no obligation quotation. <% 'response.Write ("***************************
") 'response.Write ("XX = "& trim(Request("SUBMIT"))&"
") if trim(Request("SUBMIT")) <> "" Then Dim sPostResponse Dim bSendMail dim sSendTo dim sWebSite ' Uncomment the relevant lines below ' DEBT UK ONLINE sSendTo = "Synergy.Notifier.DebtUKOnline@debtreleasedirect.co.uk" sWebSite = "Debt UK Online" ' FRESH FINANCE 'sSendTo = "Synergy.Notifier.FreshFinance@debtreleasedirect.co.uk" 'sWebSite = "Fresh Finance" 'BANKRUPTCY CLINIC 'sSendTo = "Synergy.Notifier.BankruptcyClinic@debtreleasedirect.co.uk" 'sWebSite = "Bankruptcy Clinic" ' Change the following to true or false to send e-mail bSendMail = true 'response.write("Executing function"&"
") sPostResponse = postWebForm(Request("Lead_Type"),Request("Lead_Source"),Request("Lead_SourceRef"),Request("Client_Firstname"),Request("Client_Surname"),Request("Client_Fullname"),Request("Client_AddRoad"),Request("Client_AddLocality"),Request("Client_AddCity"),Request("Client_AddCounty"),Request("Client_AddPostcode"),Request("Client_AddCountry"),Request("Client_Email"),Request("Client_HomeNumber"),Request("Client_MobileNumber"),Request("Client_ResStatus"),Request("Debt_TotalDebt"),Request("Debt_MonthlyPayments"),Request("Debt_Creditors"),Request("Contact_Time"),Request("SEO_Keywords"),Request("Other_Info"), bSendMail,sSendTo, sWebsite) 'response.write(sPostReponse&"
") response.Redirect("\thankyou.htm?PostResponse=" & sPostResponse) end if Function postWebForm(LeadType,LeadSource, LeadRef, Forename, Surname, Fullname, Road, Locality, City, County, Postcode, Country, EMail, HomeNo, MobileNo, ResStatus, TotalDebt, MthPayment, Creditors, ContactTime, SEOKeywords, OtherInfo,bSendEMail,sSendTo,sWebSite) 'response.write("** Function executing
") 'on error resume next Dim wsSynergy Dim sPostString Dim objXML Dim objXMLResponse Dim objXMLDoc if LeadType = "" then LeadType = "TND" end if if LeadSource = "" then LeadSource = "UNK" end if if TotalDebt = "" then TotalDebt = 0 end if if MthPaymnet = "" then MthPayment = 0 end if if Creditors = "" then Creditors = 0 end if wsSynergy = "http://rosetta.synergy.release-inter.net:60080/WS/Lead_Manager.asmx/Load_Lead" sPostString = "?Lead_Type="& LeadType &"&Lead_Source=" & LeadSource & "&Lead_SourceRef=" & LeadRef & "&Client_FirstName=" & Forename &"&Client_Surname=" & Surname &"&Client_Fullname=" & Fullname &"&Client_AddRoad=" & Road &"&Client_AddLocality=" & Locality &"&Client_AddCity=" & City & "&Client_AddCounty=" & County &"&Client_AddPostcode=" & Postcode &"&Client_AddCountry=" & Country & "&Client_EMail=" & EMail &"&Client_HomeNumber=" & HomeNo &"&Client_MobileNumber=" & MobileNo &"&Client_ResStatus=" & ResStatus &"&Debt_TotalDebt=" & TotalDebt &"&Debt_MonthlyPayments=" & MthPayment &"&Debt_Creditors=" & Creditors &"&Contact_Time=" & ContactTime &"&SEO_Keywords=" & SEOKeywords &"&Other_Info=" & OtherInfo 'response.write(wsSynergy&"
") 'response.write(sPostString&"
") set objXML = Server.CreateObject("MSXML2.XMLHTTP") objXML.open "GET", wsSynergy & sPostString, False objXML.send set objXMLDoc = Server.CreateObject("MSXML.DOMDocument") objXMLDoc.load(objXML.responseBody) objXMLResponse = objXMLDoc.getElementsByTagName("string").item(0).text 'response.write(objXMLResponse&"
") set objXML = Nothing if bSendEmail = True then dim sMessageBody sMessageBody = "

New Lead Generated

" sMessageBody = sMessageBody & "

" & objXMLResponse & "

" sMessageBody = sMessageBody & "

Lead Details

" sMessageBody = sMessageBody & "Lead Type : " & LeadType sMessageBody = sMessageBody & "
Lead Source : " & LeadSource sMessageBody = sMessageBody & "
Lead Ref. : " & LeadRef sMessageBody = sMessageBody & "
" sMessageBody = sMessageBody & "
Client Forename : " & Forename sMessageBody = sMessageBody & "
Client Surname : " & Surname sMessageBody = sMessageBody & "
Client Fullname : " & Fullname sMessageBody = sMessageBody & "
" sMessageBody = sMessageBody & "

Address

" sMessageBody = sMessageBody & "Res Status : " & ResStatus sMessageBody = sMessageBody & "
Road : " & Road sMessageBody = sMessageBody & "
Locality : " & Locality sMessageBody = sMessageBody & "
Town/City : " & City sMessageBody = sMessageBody & "
County : " & County sMessageBody = sMessageBody & "
PostCode : " & PostCode sMessageBody = sMessageBody & "
" sMessageBody = sMessageBody & "

Contact Details

" sMessageBody = sMessageBody & "E-Mail : " & EMail sMessageBody = sMessageBody & "
Home No : " & HomeNo sMessageBody = sMessageBody & "
Mobile No : " & MobileNo sMessageBody = sMessageBody & "
Contact Time : " & ContactTime sMessageBody = sMessageBody & "
" sMessageBody = sMessageBody & "

Debt Levels

" sMessageBody = sMessageBody & "Debt Level : " & TotalDebt sMessageBody = sMessageBody & "
Monthly Payment : " & MthPayment sMessageBody = sMessageBody & "
No of Creditors : " & Creditors sMessageBody = sMessageBody & "
" sMessageBody = sMessageBody & "

Other Information

" sMessageBody = sMessageBody & OtherInfo set objMailMessage = CreateObject("cdo.message") objMailMessage.From = "SynergyWebform@debtreleasedirect.co.uk" objMailMessage.To = sSendTo objMailMessage.Subject = "New Lead Generated from " & sWebsite & " - RESPONSE: " & objXMLResponse objMailMessage.HTMLBody = sMessageBody objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "212.159.121.243" 'objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailUsername 'objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword 'objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMailMessage.Configuration.Fields.Update objMailMessage.Send set objMailMessage = Nothing end if postWebForm = objXMLResponse End Function %>

Full Name

Full Address

Postcode

Home Phone

Work/Mobile Number

Approximate Debt Level

<% ErrorMessage = Request("ErrorMessage") If ErrorMessage <> "" Then %>

<% = ErrorMessage %>

<% End If %> <% strResponseStatus = Request("strResponseStatus") If strResponseStatus <> "" Then %>

<% = strResponseStatus %>

<% End If %>