<%
'<--- 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,sPage,sCatName,sTitle,sTitleHold,ShowAsSinglePage,DirectoryCols,SubCategoryCols
'You may modify the name of your directory folder to any name you choose. However, your directory
'folder must be at the root of your website (http://www.sitename.com/|folder|). By supplying this
'value you ensure that others do not spam your 404 page with unwanted URLs.
DirFolder = "Customer Service" ' This value ensures that only valid submissions are submitted via your 404 page
OnPage = Request.QueryString()
If InStr(1,Right(OnPage, 5), ".html") = 0 Then
'Invalid URL submission
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "/"
End If
OnPage = Replace(OnPage, "http://", "")
ArrInfo = Split(OnPage, "/")
If ArrInfo(1) <> lcase(DirFolder) Then
'Invalid Directory Folder Location
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "/"
End If
Select Case UBound(ArrInfo)
Case 2 'Top Category
sPage = ArrInfo(2)
sPage = Replace(sPage, ".html", "")
sTitle = Replace(sPage, "-n-", " & ")
sTitle = Replace(sTitle, "_", " ")
sTitle = PCase(sTitle)
Case 3 'Sub Category
sCatName = ArrInfo(2)
sPage = ArrInfo(3)
sPage = Replace(sPage, ".html", "")
sTitle = Replace(sCatName, "-n-", " & ")
sTitle = Replace(sTitle, "_", " ")
sHoldTitle = Replace(sPage, "-n-", " & ")
sHoldTitle = Replace(sHoldTitle, "_", " ")
sTitle = PCase(sTitle) & " » " & PCase(sHoldTitle)
Case Else 'SPAM URL Attempt
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "/"
End Select
Erase ArrInfo
If sTitle = "Links" Then
'This value is the title for your main directory page and can be modified
sTitle = "Copper Penny"
End If
'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/fetch.asp?id=CDF743A8-894B-4537-817C-74E71227FEA3&folder=" & DirFolder & "&topcat=" & sCatName & "&page=" & sPage & "&single=" & ShowAsSinglePage & "&dircols=" & DirectoryCols & "&subcols=" & SubCategoryCols & "&custom404=1"
Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
serverXMLHTTP.Open "GET", RequestPage, False
serverXMLHTTP.Send
htmlCode = serverXMLHTTP.ResponseText
GetLinks = htmlCode
If Instr(1,GetLinks, "
%>
<%=sTitle%>
<%=GetLinks%>
| | Friendly Links |
The COPPER PENNY... offers you a great opportunity to visit other stores, and to see their unique products. Some links go to web sites that feature special events in Estes Park, Colorado.
Estes Park - Gateway to The Rockies
For over ten thousand years people have visited this valley we call Estes Park to enjoy beautiful mountain scenery, moderate climate and abundant wildlife. Some things never change. Come and see for yourself!
Rocky Mountain National Park and Roosevelt National Forest surround the village of Estes Park, Colorado with spectacular mountain scenery, abundant wildlife habitat, miles of hiking trails and scenic drives.
Estes Park sits in a beautiful 21 square mile valley nestled in the Colorado Rockies, between two towering Mountain Ranges with the famous Long's Peak (elev: 14,245) to the South and the Mummy Range to the North. The famous Trail Ridge Road winds up and over these awesome mountains at an elevation of 12,454 ft.
Located just 67 miles North West of the mile high City of Denver, Colorado, Estes Park is right on the doorstep of Rocky Mountain National Park. You can find our store, The Copper Penny, right in the middle of town, on the South side of the main street, at 106 East Elkhorn Avenue. Just look for the big gold and green awning. Please visit us.
YMCA of The Rockies
This is the greatest Y camp in the USA. It is located just 5 miles from Estes Park and Rocky Mountain National Park. It's a MUST visit!
<
----------------------------------------------------------------------------------
To see more of our Friendly links, go to: More Links
----------------------------------------------------------------------------------
If you would like to have your site listed here,
please click here
to be taken to the addition screen.
Please note that we reserve the right to refuse link submissions
if we consider the site to be unsuitable for inclusion.
----------------------------------------------------------------------------------
Reciprocal Link
To Become A Link Partner, send us an
e-mail
with the web address of where you have placed
a link back to us.
To add our URL to your site, here is some suggested copy:
The Copper Penny - Unique Gifts
A large selection
of great gifts for men and unique presents for women.
Special Christmas, Birthday and Anniversary gifts
at affordable prices. And we gift wrap at The Penny.com/
You can cut and paste this and other codes by goiing to: The Penny Logo Page
If you have a website you want to promote,
you should check out
SelfPromotion.com.
It's a resource for do-it-yourselfers where you
can learn to prepare your pages for the
search engines,
then use a sophisticated
url submission
robot to submit your webpages to all the important search
engines and directories. You'll also find tutorials about
website promotion,
submitting to yahoo,
and much more.
Best of all, you can use the site for free -- if you like it,
pay what YOU think it's worth! The guy who runs it has reinvented
tipping!
Thank you for your interest.
To continue shopping on our site - Click Here
| |
|
