|
copyright 2009 - TackleTimes - all rights reserved
Free Reciprocal Link Directory Trade Reciprocal Links for Free Instantly
SubmitLinksFree.com - the high quality Links Directory for webmasters.
SubmitLinksFree.com - the high quality Links Directory for webmasters.
<%
' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION.
' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED.
' # Dimensioning variables - DO NOT MODIFY!
Dim UserKey
Dim ThisPage
Dim CategoryColumns
Dim LinksPerPage
Dim OpenInNewWindow
Dim PostingString
Dim PassedQuery
Dim AllowSearch
Dim ErrorString
Dim ResultString
' # // Finished dimensioning variables.
' # MODIFY THE VARIABLES BELOW:
' # Enter your user key below (provided to you by linksmaster.com):
UserKey = "418030472009-3GKEQVPC6W"
' # The following variable defines how many columns are used to display categories
CategoryColumns = 2
' # The following variable defines how many links to display per page
LinksPerPage = 25
' # The following variable defines whether links are opened in a new window
' # (1 = Yes, 0 = No)
OpenInNewWindow = 1
' # The following variable determines whether the search function is enabled
' # for your links page (1 = Yes, 0 = No)
AllowSearch = 1
' # DO NOT MODIFY ANYTHING IN THIS BLOCK!!
' ---------------------------------------------------------------------------------
' # The following variable is sent to the linksmaster server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the linksmaster.com server
PostingString = "UserKey=" & UserKey
PostingString = PostingString & "&ScriptName=" & ThisPage
PostingString = PostingString & "&CatCols=" & CategoryColumns
PostingString = PostingString & "&LinksPerPage=" & LinksPerPage
PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow
PostingString = PostingString & "&AllowSearch=" & AllowSearch
' # pass through any querystring data to linksmaster to allow paging
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
If GetLinkData(PassedQuery, PostingString, ResultString, ErrorString) Then
Response.Write ResultString
Else
' here we are just dumping error info to the page. You can clean this up to
' fit your site
Response.Write ErrorString
End If
Function GetLinkData(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Dim ComponentString
Set hObj = Nothing
On Error Resume Next
Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
If TryMSXML(strQuery, strPost, strResponse, strError) Then
' the MSXML function will return the data
GetLinkData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetLinkData = False
End If
Else
hObj.Open "POST", "http://www.linksmaster.com/bin/dumplinks.asp?" & strQuery, False
hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
If hObj.Status <> 200 Then
strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText
GetLinkData = False
Else
strResponse = ComponentString & hObj.responseText
GetLinkData = True
End If
End If
End Function
Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Set hObj = Nothing
' let's see if the server supports the XMLHTTP component, various versions
On Error Resume Next
Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("Microsoft.XMLHTTP")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
strError = "No support for HTTP requests found."
TryMSXML = False
Else
' # Open connection to linksmaster.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "POST", "http://www.linksmaster.com/bin/dumplinks.asp?" & strQuery, false
hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
If hObj.status <> 200 Then
' # error!
strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'"
TryMSXML = False
Else
' # We should have received the links information from the server,
' # the following line will return the data by reference:
strResponse = ComponentString & hObj.responseText
TryMSXML = True
End If
Set hObj = Nothing
End If
End Function
' # //FINSIHED linksmaster.COM SCRIPT BLOCK
%>
<%
Bait and Tackle
Bass Shops
Discount and wholesale
Other Fishing Retailers
Saltwater
FISH SPECIES
Freshwater Fish Species
Bass
Carp
Catfish
Crappie
Pike and Muskie
Trout
Walleye
Saltwater Fish Species
Salmon
Seafood
FISHING CHARTERS AND GUIDES
FRESHWATER FISHING GUIDES
Canadian Freshwater Guides
Canada FW Fishing Guides - AB
Canada FW Fishing Guides - BC
Canada FW Fishing Quides - QC
Freshwater Guides by SPECIES
Bass Guides
California Bass
Florida Bass
Texas Bass
Catfish Guides
Crappie Guides
Pike and Muskie Guides
Salmon - Steelhead Guides
Striper Guides
Sturgeon Guides
Walleye Guides
Freshwater Guides by STATE
Freshwater Guides - AK
Kenai River Guides
Freshwater Guides - AL
Freshwater Guides - AR
Freshwater Guides - AZ
Freshwater Guides - CA
Freshwater Guides - CT
Freshwater Guides - FL
Freshwater Guides - GA
Freshwater Guides - ID
Freshwater Guides - IL
Freshwater Guides - IN
Freshwater Guides - KS
Freshwater Guides - KY
Freshwater Guides - MI
Freshwater Guides - MN
Freshwater Guides - MO
Freshwater Guides - NC
Freshwater Guides - NM
Freshwater Guides - NV
Freshwater Guides - NY
Freshwater Guides - OK
Freshwater Guides - OR
Freshwater Guides - PA
Freshwater Guides - SC
Freshwater Guides - SD
Freshwater Guides - TN
Freshwater Guides - TX
Freshwater Guides - VA
Freshwater Guides - VT
Freshwater Guides - WA
Freshwater Guides - WI
Freshwater Guides - WV
Great Lakes Charters
Lake Erie Charters
Lake Erie Charters - MI
Lake Erie Charters - OH
Lake Erie Charters - PA
Lake Huron Charters
Lake Michigan Charters
Lake Michigan - IL
Lake Michigan - IN
Lake Michigan - MI
Lake Michigan - WI
Lake Ontario Charters
Lake Superior Charters
SALTWATER FISHING CHARTERS
Alaska Fishing Charters
Alaska Halibut Charters
Alaska Salmon Charters
Atlantic Coast Charters
CT Saltwater Charters
DE Saltwater Charters
FL East Central Charters
FL North East Charters
FL South East Charters
GA Saltwater Charters
MA Saltwater Charters
MD Saltwater Charters
ME Saltwater Charters
NC Saltwater Charters
NH Saltwater Charters
NJ Saltwater Charters
NY Saltwater Charters
RI Saltwater Charters
SC Saltwater Charters
VA Saltwater Charters
Canada SW Fishing Charters - BC
Caribbean Islands Charters
Florida Saltwater Charters
FL East Coast Charters
Florida Keys Charters
FL Key West Charters
Gulf Coast Charters
AL Saltwater Charters
FL North West Charters
FL Panhandle Charters
FL South West Charters
FL West Central Charters
LA Saltwater Charters
MS Saltwater Charters
TX Saltwater Charters
Hawaii Charters
Pacific Coast Charters
CA Saltwater Charters
OR Saltwater Charters
WA Saltwater Charters
FISHING CLUBS AND ORGANIZATIONS
Bass Clubs
B A S S and Bassmasters
Clubs and Organizations
Muskie and Pike Clubs
Trout Clubs
Walleye Clubs
FISHING FORUMS AND MEDIA
Fishing Forums
Fishing Media
Fishing Shows
Magazines and e-zines
FISHING PRODUCTS
Accessories
Electronics
Fishing Antiques
Fishing Gifts
Lures and Tackle
Name Brands
Other Fishing Products
Rods and Reels
FISHING RESORTS AND LODGES
Alaskan Resorts
Campgrounds - RV Parks
Canadian Fishing Resorts
Canada Fly In Fishing
Fly In Fishing Ontario
Eastern Resorts
Midwest Resorts
Other Resorts and Lodges
Southwest Resorts
Western Resorts
FISHING RETAILERS
Bait and Tackle
Bass Shops
Discount and wholesale
Other Fishing Retailers
Saltwater Stores
FISHING TOURNAMENTS
Bass Tournaments
Other Tournaments
Saltwater Tournaments
Walleye Tournaments
FLY FISHING RESOURCES
Fly Fishing
Fly Fishing Clubs
Fly Fishers
Fly Fishing Guides
Fly Fishing Consultants
Flyfish Alaska
Flyfish Canada
Flyfish Eastern States
Flyfish International
Flyfish Midwestern States
Flyfish Saltwater
Flyfish Trout
Flyfish Western States
Fly Rods and Reels
Fly Shops
GENERAL FISHING SITES
Fishing Directories
Government Sites
Other Fishing Sites
State Fishing Info
Alaska Fishing
INTERNATIONAL FISHING SITES
Africa
Australia
Canada
Europe
Ireland
United Kingdom
England
Scotland
Wales
Mexico
New Zealand
Other International
Pacific Islands
South and Central America
SPECIALIZED FISHING SITES
Boats and Marine
Christian Fishing Sites
Ice Fishing
Kid Sites
Saltwater
Taxidermy
%>
This Site Also links to The following fishing releated Sites
Hoosier Walleye Club ...
Kinzua Allegheny Walleye Association ...
Southtowns Walleye Association of WNY, Inc
Walleyes Unlimited U.S.A ...
West Michigan Walleye Club...
Other important links.
Hoosier Walleye Club ...
Kinzua Allegheny Walleye Association ...
Walleyes Unlimited U.S.A ...
West Michigan Walleye Club ...
West Michigan Walleye Club...
Alabama B.A.S.S. Chapter Federation... |