<%
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("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" />
|
<%
rs.MoveNext
Loop
else
response.write ("No records found!
") & VBCRLF
End If
%>
<%
rs.Close
Set rs = Nothing
dc.Close
Set dc = Nothing
%>
| 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 %> |