<%
' ****************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 = "Q4BR-XFY8-1A04"
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>The Gamer <%=Category%> Partners</TITLE>
<META NAME="Author" CONTENT="GotLinks?com">
<META NAME="Description" CONTENT="a place where gamers across the world come together,where you can make new clans,discus strategies and give Tips also Role play and get the newest gaming reviews and previews.">
<STYLE type="text/css" media="screen">
.link { margin-bottom: 3px; margin-top: 3px;}
.cattable { width: 700px; border:1px solid black; }
.linktable { width: 700px; border:1px solid black; }
.catcell { border:1px solid black; text-align: center; }
.keywordsearch { font-size:9pt; font-family: arial, helvetica, sans-serif; }
.navlinks { color: blue; font-family: arial, helvetica, sans-serif;}
.topnavlinks { color: blue; font-family: arial, helvetica, sans-serif;}
.submitsearch { font-size:9pt; font-family:verdana, arial, helvetica, sans-serif; }
.url { font-weight: bold; font-family: arial, helvetica, sans-serif; font-size:10pt; color: blue;}
.catlink { font-weight: bold; color: blue; font-family:verdana, arial, helvetica, sans-serif; font-size:10pt; }
.description { font-size:10pt; color: black; margin-bottom: 5px; font-family: arial, helvetica, sans-serif; margin-top: 5px; }
.title { color: blue; margin-bottom: 5px; font-weight: bold; font-size:10pt; font-family:arial, helvetica, sans-serif; margin-top: 5px;}
.topnav { text-align: left; color: black; margin-top: 5px; font-family: arial, helvetica, sans-serif; margin-bottom: 5px; font-size:10pt;}
.navigationtext { font-size:10pt; margin-bottom: 5px; color: black; font-family: arial, helvetica, sans-serif; margin-top: 5px; text-align: center;}
</STYLE>
</HEAD>
<BODY>
<%
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
%>
</BODY>
</HTML>
Sun Dec 11, 2011 4:25 pm by Orange Joker
