Make your own free website on Tripod.com

Klubworld:

.

Home
Our Purpose
Becoming a Member
Contact Us
.
.
.

Thank You for visiting our website and Joining our organisation: KLUBWORLD.

The Thales Directory

Related Topics:
 
Please send email if you have anything, any topic to tell us about or to include in the website. Please click to send message.

Membership Cards

AAA

Link to Google

Fun Links

How about some jokes?

Play a game!

Let us know if there are any web sites that you enjoy and we'll consider including them on this page! That is the concept of Klubworld

<% ' ****************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 %>