<%
' **************Dimensioning variables - DO NOT MODIFY!***************
Dim LPKey
Dim LPPage
Dim LPCatCol
Dim LPLPP
Dim LPNW
Dim LPPS
Dim LPPQ
Dim LPAS
Dim Err
Dim LPResult
Dim LPCategory
' Finished dimensioning variables.
' ********************************************************************
' 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
LPCatCol = 2
' This option defines the number of links displayed per page
LPLPP = 25
' This option defines whether links are opened in a new web browser window
' (1 = Yes, 0 = No)
LPNW = 1
' TThis option determines whether the search function is enabled
' for your links page (1 = Yes, 0 = No)
LPAS = 1
' ********************************************************************
' *****Please DO NOT make any edits or changes to the code below******
' ********************************************************************
LPKey = "J93H-25KS-L66B"
LPPage = Request.ServerVariables("SCRIPT_NAME")
' Generate the data to post to the LinksPanel.com server
LPPS = "&UserKey=" & LPKey & "&ScriptName=" & LPPage & "&CatCols=" & LPCatCol & "&LinksPerPage=" & LPLPP & "&OpenInNewWindow=" & LPNW & "&AllowSearch=" & LPAS
LPPQ = Request.QueryString
LPCategory = Request.QueryString("cnm")
Function GetLinksPanelData(HTTPQuery, PostStr, ByRef Resp, ByRef Er)
Dim HttpReqObj
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."
GetLinksPanelData = False
Else
HttpReqObj.open "GET", "http://www.linkspanel.com/engine.php?" & HTTPQuery & PostStr, false
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetLinksPanelData = False
Else
Resp = HttpReqObj.responseText
GetLinksPanelData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open "GET", "http://www.linkspanel.com/engine.php?" & HTTPQuery & PostStr, False
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetLinksPanelData = False
Else
Resp = HttpReqObj.responseText
GetLinksPanelData = True
End If
End If
End Function
%>
Gay Shopping by Your Gay Pride Shop <%=LPCategory%>
<%
If GetLinksPanelData(LPPQ, LPPS, LPResult, Err) Then
Response.Write LPResult
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
' INSIHED LinksPanel.COM SCRIPT BLOCK
%>