|
None Mortgage Related <% Dim GUID Dim strPage Dim strForm Dim strQuery Dim ErrorString Dim strResult GUID = "8d135b94-5089-45a6-aa2d-b8de22653d8c" strPage = Request.ServerVariables("SCRIPT_NAME") strForm = "GUID=" & GUID strForm = strForm & "&ScriptName=" & strPage strQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetrData(strQuery, strForm, strResult, ErrorString) Then Response.Write strResult Else Response.Write ErrorString End If Function GetrData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim xmlHTTP Dim strComp Set xmlHTTP = Nothing On Error Resume Next Set xmlHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5.1") strComp = "" & vbCrLf On Error Resume Next If xmlHTTP Is Nothing Then Set xmlHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5") strComp = "" & vbCrLf End If On Error Resume Next If xmlHTTP Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetrData = True Else GetrData = False End If Else xmlHTTP.Open "POST", "http://www.articles-exchange.com/media/function/render.aspx?" & strQuery, False xmlHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" xmlHTTP.Send strPost If xmlHTTP.Status <> 200 Then strError = "Error: Status=" & xmlHTTP.Status & " Text=" & xmlHTTP.ResponseText GetrData = False Else strResponse = strComp & xmlHTTP.responseText GetrData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim xmlHTTP Set xmlHTTP = Nothing On Error Resume Next Set xmlHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") strComp = "" & vbCrLf On Error Resume Next If xmlHTTP Is Nothing Then Set xmlHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0") strComp = "" & vbCrLf End If On Error Resume Next If xmlHTTP Is Nothing Then Set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP") strComp = "" & vbCrLf End If On Error Resume Next If xmlHTTP Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else xmlHTTP.open "POST", "http://www.articles-exchange.com/media/function/render.aspx?" & strQuery, false xmlHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded" xmlHTTP.Send strPost If xmlHTTP.status <> 200 Then ' error! strError = "Error: Status=" & xmlHTTP.status & " Text='" & xmlHTTP.responseText & "'" TryMSXML = False Else strResponse = strComp & xmlHTTP.responseText TryMSXML = True End If Set xmlHTTP = Nothing End If End Function %> Link Exchange Management - Webmasters helping webmasters develop high value relevant links. Promoting ethical web-marketing using the time trusted pillars of relevance and popularity.Page (1) (2) |
|
|
||||||||||
|
The overall cost for comparison is 7.6%APR.The actual rate will depend on your circumstances. Ask for a peronalised illustration. YOUR HOME MAY BE REPOSSESSED IF YOU DO NOT KEEP UP REPAYMENTS ON YOUR MORTGAGE All advisors are authorised by The Financial Services Authority Telephone calls may be monitored |