Would you like to link to us?
' # 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 = "402923582007-8MTKYRNCY0" ' # 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 GetLinksMasterData(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 GetLinksMasterData(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 GetLinksMasterData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinksMasterData = 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 GetLinksMasterData = False Else strResponse = ComponentString & hObj.responseText GetLinksMasterData = 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 %>
Many thanks for visiting our web site 'hiking-in-Switzerland' - Your personal tour guide to Hiking in Switzerland -- superb vacations, incomparable sites, best tours and accommodations, all from the friendly perspective of a Swiss native citizen.
We are always looking to exchange links with other professional travel web sites that have similar content to ours, so we can help our customers in their search for quality hotel and vacation information.
If you own a web site that fits into this category, then please contact us for consideration for a reciprocal quality link (Web sites without relevance with either travel, hotels or vacations, can not be considered).
Vieques Travel Guide.com Explore Vieques Island, Puerto Rico. Virtual Tour of the island with colorful pictures. Guide includes lodging, reviews, easy hotel reservations, need to know facts, special discounts and a free Vieques E-Zine
Great ideas and tips about camping
The Lightweight Backpacker Welcomes You !
Welcome to a whole new way to experience The Mountaineers
An Outdoor Guide for Camping, Hiking, Rving and More!
Hiking Vacations, Walking Tours, and Backpacking Adventures in the Canadian Rockies
 Peak to Peak Trail and Wilderness Links
Welcome to the Walking Connection
Eye on Alaska
Friendly site with usefull tips about health.
Copyright © 2004 Al Bracher. All Rights Reserved.
|
