<%
Dim SiteURL
SiteURL = "http://www.linkshighway.net"
Dim LinkID
Dim SelfScript
LinkID = "1806"
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
%>
Links<%
If GetMyLinks(PassedQuery, PostingString, ResultString, ErrorString) Then
Response.Write ResultString
Else
Response.Write ErrorString
End If
%>