|
Please click the links below to view information on tours and things to do in Pemberton and the surrounding areas.
<%
If ( Request.QueryString.Item("page") = "" ) Then
CurrentPage = 1
Else
CurrentPage = CInt( Request.QueryString.Item("page") )
End If
PageSize = 10
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenStatic
Rs.LockType = adLockPessimistic
Rs.PageSize = PageSize
Sql = "SELECT LinkID, LinkName, Hyperlink, LinkDescription FROM Links ORDER BY LinkName ASC"
Rs.Open Sql , Db
If Not Rs.BOF And Not Rs.EOF Then
PageCount = Rs.PageCount
If CurrentPage > PageCount Then
CurrentPage = PageCount
End If
If CurrentPage < 1 Then
CurrentPage = 1
End If
Rs.AbsolutePage = CurrentPage
RecordCount = 0
Response.Write ""
Response.Write " "
Response.Write "| Attraction | | Description:
| "
Response.Write " "
Do While Not Rs.EOF And RecordCount < PageSize
Response.Write "" & vbCrLf
Response.Write "| " & Rs("LinkName") & " | | " & Rs("LinkDescription") & "
| "
Response.Write " "
RecordCount = RecordCount + 1
Rs.MoveNext
Loop
Response.Write " "
Response.Write "
" & vbCrLf
Response.Write "Page " & CurrentPage & " of " & PageCount & "
"
If ( PageCount > 1 ) Then
Response.Write vbCrLf & "" & vbCrLf & ""
If ( CurrentPage > 1 ) Then
Response.Write( "| " )
Response.Write( "Previous | ")
Else
Response.Write " | "
End If
If ( PageCount > 1 ) Then
For n=1 To PageCount
If CurrentPage = n Then
Response.Write("[" & n & "] | ")
Else
Response.Write("[" & n & "] | ")
End If
Next
End If
If ( CurrentPage < PageCount ) Then
Response.Write( "" )
Response.Write( "Next | ")
End If
Response.Write vbCrLf & " " & vbCrLf & " "
End If
Else
Response.Write "There are currently no attractions listed
"
End If
Rs.Close
Set Rs = Nothing
Db.Close
Set Db = Nothing
%>
|
