% MYSQL = "SELECT ID, DATE, NAME, EMAIL, CITY, STATE, COUNTRY, SITE, COMMENTS FROM GUESTBOOK ORDER by ID DESC" 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 %>
| Guestbook Entries | ||
| Total entries: <% = Records %> |
| Name: <%= rs("NAME") %> E-mail: ><%= rs("EMAIL")%> City: <%= rs("CITY") %> State: <% rs("STATE") %> Country: <% rs("COUNTRY") %> How did you find this site? <% rs("SITE") %> Comments/Suggestions: <%= rs("COMMENTS") %> |
Date Posted: <%= rs("DATE") %> |
No records found, be the first to post a comment!
") & VBCRLF
End If
%>
<%
rs.Close
Set rs = Nothing
dc.Close
Set dc = Nothing
%>