<% Response.Buffer = True Response.Expires = -1440 %>
Attractions - A guide to Beedelup

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 "" Response.Write "" Do While Not Rs.EOF And RecordCount < PageSize Response.Write "" & vbCrLf Response.Write "" Response.Write "" RecordCount = RecordCount + 1 Rs.MoveNext Loop Response.Write "
AttractionDescription:
" & Rs("LinkName") & "" & Rs("LinkDescription") & "

" Response.Write "
" & vbCrLf Response.Write "Page " & CurrentPage & " of " & PageCount & "

" If ( PageCount > 1 ) Then Response.Write vbCrLf & "" & vbCrLf & "" If ( CurrentPage > 1 ) Then Response.Write( "") Else Response.Write "" End If If ( PageCount > 1 ) Then For n=1 To PageCount If CurrentPage = n Then Response.Write("") Else Response.Write("") End If Next End If If ( CurrentPage < PageCount ) Then Response.Write( "") End If Response.Write vbCrLf & "" & vbCrLf & "
" ) Response.Write( "Previous  [" & n & "]  [" & n & "]  " ) Response.Write( "Next
" End If Else Response.Write "There are currently no attractions listed

" End If Rs.Close Set Rs = Nothing Db.Close Set Db = Nothing %>