<%@ 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.

You could qualify for our Bankruptcy Help. Once you submit the form, an outcome will appear in seconds on whether you qualify . <% '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 %>