|
| Comprehensive Boat Maintenance Services Provided
When & Where You Need Them |
| Boating Links |
| Click on the banners or links to visit the websites of specific vendors or those of general boating interest. Please let us know what you think of these sites and let us know if you have a site you wish to be considered for inclusion here. |
 
 |
<%
' **************Dimensioning variables - DO NOT MODIFY!***************
Dim LPKey
Dim LPPage
Dim LPCatCol
Dim LPLPP
Dim LPNW
Dim LPPS
Dim LPPQ
Dim LPAS
Dim Err
Dim LPResult
Dim LPCategory
' Finished dimensioning variables.
' ********************************************************************
' 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
LPCatCol = 2
' This option defines the number of links displayed per page
LPLPP = 25
' This option defines whether links are opened in a new web browser window
' (1 = Yes, 0 = No)
LPNW = 1
' TThis option determines whether the search function is enabled
' for your links page (1 = Yes, 0 = No)
LPAS = 1
' ********************************************************************
' *****Please DO NOT make any edits or changes to the code below******
' ********************************************************************
LPKey = "NWV5-I23L-Q0L7"
LPPage = Request.ServerVariables("SCRIPT_NAME")
' Generate the data to post to the LinksPanel.com server
LPPS = "&UserKey=" & LPKey & "&ScriptName=" & LPPage & "&CatCols=" & LPCatCol & "&LinksPerPage=" & LPLPP & "&OpenInNewWindow=" & LPNW & "&AllowSearch=" & LPAS
LPPQ = Request.QueryString
LPCategory = Request.QueryString("titile")
Function GetLinksPanelData(HTTPQuery, PostStr, ByRef Resp, ByRef Er)
Dim HttpReqObj
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."
GetLinksPanelData = False
Else
HttpReqObj.open "GET", "http://www.linkspanel.com/engine.php?" & HTTPQuery & PostStr, false
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetLinksPanelData = False
Else
Resp = HttpReqObj.responseText
GetLinksPanelData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open "GET", "http://www.linkspanel.com/engine.php?" & HTTPQuery & PostStr, False
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetLinksPanelData = False
Else
Resp = HttpReqObj.responseText
GetLinksPanelData = True
End If
End If
End Function
%>
Boating Direct Marine Services <%=LPCategory%>
<%
If GetLinksPanelData(LPPQ, LPPS, LPResult, Err) Then
Response.Write LPResult
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
' FINSIHED LinksPanel.COM SCRIPT BLOCK
%>
|
|
Boating Direct Marine Services <?=$_GET['titile']?>
Search Engine Placement
Copyright © 2004 [Boating Direct Marine Services, LLC]. All rights reserved.
