<%
' BEGIN LINKSLISTER CODE BLOCK
' # DO NOT MODIFY ANYTHING IN THIS BLOCK!!
' # Dimensioning variables
Dim PostingString
Dim PassedQuery
' ---------------------------------------------------------------------------------
' # The following variable is sent to the LinksLister.com in order to
' # generate directory links on your page:
PostingString = "&K=" & "37437:TV7K3GRAY0"
PostingString = PostingString & "&S=" & Request.ServerVariables("SCRIPT_NAME")
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
Function GetRemoteData(HTTPQuery, PostStr, ByRef Resp, ByRef Er)
Dim HttpReqObj
Dim ComponentString
Set HttpReqObj = Nothing
On Error Resume Next
Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If
On Error Resume Next
If HttpReqObj Is Nothing Then
On Error Resume Next
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Er = "HTTP requests not supported."
GetRemoteData = False
Else
HttpReqObj.open "GET", "http://dir.linkslister.com/dir.php?" & HTTPQuery & PostStr, false
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetRemoteData = False
Else
Resp = ComponentString & HttpReqObj.responseText
GetRemoteData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open "GET", "http://dir.linkslister.com/dir.php?" & HTTPQuery & PostStr, False
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetRemoteData = False
Else
Resp = HttpReqObj.responseText
GetRemoteData = True
End If
End If
End Function
%>
<%=Request.ServerVariables("SERVER_NAME")%> Link Partners
link partners sites.">
<%
If GetRemoteData(PassedQuery, PostingString, ResultString, ErrorString) Then
Response.Write ResultString
Else
' Display error message
Response.Write ErrorString
End If
' # //FINSIHED LINKSLISTER.COM SCRIPT BLOCK
%>