<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Las Vegas Escorts VIP Links, Blonde, Brunette, Asian, Ebony
<%
'<--- BEGIN MY LINK HELPER CODE --->
'Making modifications to this code can cause your links page to stop working. Please only make
'modifications where modifications are allowed. Being that this is a free service, we do not have
'the resources to help you debug any changes you may have made. If you do run into problems with
'this code, log into your account and download the original again.
Dim GetLinks,OnPage,HoldOnPage,ShowAsSinglePage,DirectoryCols,SubCategoryCols,PageName
OnCat = Request.QueryString("cid")
If OnCat = "" Then OnCat = "0" 'Set to Main Directory Page
'You may name your links page anything you want. But for your links page to work correctly
'you must provide us with the name of your links page (without the '.asp' extension).
PageName = "links" ' change this value to match your [PageName].asp links page
'You may modify the following variable to change how many columns your main directory displays.
'By default this value is set to show 2 columns, but you may show as few as 1 column or
'as many as 4. Valid values (1,2,3,4)
DirectoryCols = 2 ' change this value to adjust how many columns your main directory page displays
'You may modify the following variable to change how many columns your sub category directory pages display.
'By default this value is set to show 2 columns, but you may show as few as 1 column or
'as many as 4. Valid values (1,2,3,4)
SubCategoryCols = 2 ' change this value to adjust how many columns your sub category pages display
'You may modify the following variable to display your links on a single page instead of
'directory style. This is a convenient way to display your links if you have fewer than 40.
ShowAsSinglePage = 0 ' change this value to 1 if you want a single page, or 0 for directory
Dim htmlCode,serverXMLHTTP,RequestPage
RequestPage = "http://www.mylinkhelper.com/bin/dynfetch.asp?id=4659BF66-6378-4E3B-898A-D32B966D7A2E&pagename=" & PageName & "&cid=" & OnCat & "&dircols=" & DirectoryCols & "&subcols=" & SubCategoryCols & "&single=" & ShowAsSinglePage
Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
serverXMLHTTP.Open "GET", RequestPage, False
serverXMLHTTP.Send
htmlCode = serverXMLHTTP.ResponseText
GetLinks = htmlCode
If Instr(1,GetLinks, "
%>
Las Vegas Escorts Links
<%=sTitle%>
<%=GetLinks%>
>> Link Exchange << |
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z