<% Dim SiteURL SiteURL = "http://www.linkshighway.net" Dim LinkID Dim SelfScript LinkID = "949" SelfScript = Request.ServerVariables("SCRIPT_NAME") PostingString = "&LinkID=" & LinkID & "&ScriptName=" & SelfScript PassedQuery = Request.QueryString Category = Request.QueryString("cn") Function GetMyLinks(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf If hObj Is Nothing Then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If If hObj Is Nothing Then If fnXMLRequest(strQuery, strPost, strResponse, strError) Then GetMyLinks = True Else GetMyLinks = False End If Else hObj.Open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetMyLinks = False Else strResponse = ComponentString & hObj.responseText GetMyLinks = True End If End If End Function Function fnXMLRequest(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." fnXMLRequest = False Else hObj.open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, false hObj.Send If hObj.status <> 200 Then strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" fnXMLRequest = False Else strResponse = ComponentString & hObj.responseText fnXMLRequest = True End If Set hObj = Nothing End If End Function %> Save Money With Cash Craze <%=Category%> Link Partners
 

Home
Print
Add to Favs
Mail Us
 

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
 
The Best Money Making & Saving Links
-:-
    Important Links
  •  Ebay.co.uk - The ultimate place to find a bargain
  •  Google.co.uk - The fastest search site around
  •  Kelkoo.co.uk - Compare prices
  •  FiverFinder.co.uk - Currency Tracking just for fun..
  •  Paypal.co.uk - Online payment made safe
  •  Monster.co.uk - The biggest and best jobs web site

    <% If GetMyLinks(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString 'Response.Write("") Else Response.Write ErrorString 'Response.Write("") End If %>
Tried Online Poker?...
Why not have a look at some of the introductory offers from the leading poker companies.

home -:- advertisers -:- contact us