<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Capture Bug, LLC - Parks & Preserves

Parks / Preserves

<% Set dc = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dc.Open "DBQ=" & Server.Mappath("access_db/parks") & ";Driver={Microsoft Access Driver (*.mdb)};" %> <% MYSQL = "SELECT * FROM parks ORDER by name ASC" rs.Open MySQL, dc, 3, 1 %> <% currentPage = request.queryString ("id") If currentPage = "" then currentPage = "1" End If pageSize = 5 Records = rs.RecordCount if NOT (Records = 0) then rs.pageSize = pageSize rs.AbsolutePage = currentPage End If pageNext = currentPage + 1 pagePrev = currentPage - 1 Pages = Records \ pageSize if Records mod pageSize then Pages = Pages + 1 End If %>
Pages:  <% if NOT pagePrev < 1 then %>>Prev <% else %> Prev <% End If %> | <% While NOT pageNumber = Pages pageNumber = pageNumber + 1 %> <% if CInt (pageNumber) = CInt (currentPage) then %> <% = pageNumber %> | <% else %> > <% = pageNumber %> | <% End If %> <% Wend %> <% if NOT pages < pageNext then %> >Next <% else %> Next <% End If %> Total entries: <% = Records %>
<% if NOT (CInt(Records) = 0) then 'if there are no records in the database it doesn't go on dysplaying then and only sais that there are no records Do While (Not rs.EOF) and (currentRecords < pageSize) 'runs through the records and dysplays them currentRecords = currentRecords + 1 'counts currently dysplayed records %> <% rs.MoveNext Loop else response.write ("

No records found!

") & VBCRLF End If %> <% rs.Close Set rs = Nothing dc.Close Set dc = Nothing %>
<%= rs("NAME") %>
  <%= rs("Address1") %>
<% If rs("Address2") <> "" Then %>   <%= rs("Address2") %>
<% End If %>   <%= rs("city") %>, <%= rs("state") %> <%= rs("zip") %>
  Phone: <%= rs("phone") %>

  " target="_blank">Website
" height="140" />
Pages:  <% if NOT pagePrev < 1 then %>>Prev <% else %> Prev <% End If %> | <% While NOT pageNumber = Pages pageNumber = pageNumber + 1 %> <% if CInt (pageNumber) = CInt (currentPage) then %> <% = pageNumber %> | <% else %> > <% = pageNumber %> | <% End If %> <% Wend %> <% if NOT pages < pageNext then %> >Next <% else %> Next <% End If %> Total entries: <% = Records %>