Make your own free website on Tripod.com

Klubworld:

.

Home
Our Purpose
Becoming a Member
Contact Us
.
.
.

Visit Our Discussion Forum

<% ' ****************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 = "PQ59-3X0D-Z277" GLPage = Request.ServerVariables("SCRIPT_NAME") GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS GLPQ = Request.QueryString GLCategory = Request.QueryString("cnm") 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 %> Klubworld for Home Based Business Opportunity <%=Category%> Link Partners <% 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 %>