|
|
|
Site created by ThomasNet Web Solutions
|
|
|
<%
' ****************do not modify the variables below******************
Dim GLKey
Dim GLPage
Dim GLCatCol
Dim GLLPP
Dim GLNW
Dim GLPS
Dim GLPQ
Dim GLAS
Dim Err
Dim GLResult
Dim GLCategory
' ********************************************************************
' You may change the variables below to customize the look and feel of
' your links page
' ********************************************************************
' This option defines the number of columns used to display categories
GLCatCol = 2
' This option defines the number of links displayed per page
GLLPP = 25
' This option defines whether links are opened in a new web browser window
' (1 = Yes, 0 = No)
GLNW = 1
' TThis option determines whether the search function is enabled
' for your links page (1 = Yes, 0 = No)
GLAS = 1
' ********************************************************************
' *****Please DO NOT make any edits or changes to the code below******
' ********************************************************************
GLKey = "H1JW-36LA-NZ15"
GLPage = Request.ServerVariables("SCRIPT_NAME")
GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS
GLPQ = Request.QueryString
GLCategory = Request.QueryString("name")
Function GetGotLinksData(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."
GetGotLinksData = False
Else
HttpReqObj.open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, false
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetGotLinksData = False
Else
Resp = ComponentString & HttpReqObj.responseText
GetGotLinksData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, False
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetGotLinksData = False
Else
Resp = HttpReqObj.responseText
GetGotLinksData = True
End If
End If
End Function
%>
<%
If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then
Response.Write GLResult
Else
' here we are just dumping error info to the page. You can clean this up to
' fit your site
Response.Write Err
End If
%>