<%@LANGUAGE=VBScript%> <% Response.ExpiresAbsolute = #2003-01-01# Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, must-revalidate" %> <% ' Define variables dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter ' DB connection dim Conn Set Conn = Server.CreateObject("ADODB.Connection") sConnection = "Driver={MySQL}; DATABASE=web92-cms-6;USER=web92-cms-6; PASSWORD=angelmg55; Server=127.0.0.1" Conn.Open(sConnection) ' records per page recordsonpage = 10 ' count all records allrecords = 0 set rs = conn.Execute("SELECT * FROM guestbook") do until rs.EOF allrecords = allrecords + 1 rs.movenext loop ' if offset is zero then the first page will be loaded offset = request.querystring("offset") if offset = 0 OR offset = "" then requestrecords = 0 else requestrecords = requestrecords + offset end if ' opens database set rs = conn.Execute("SELECT * FROM guestbook ORDER BY id DESC") 'counts records Const adOpenStatic = 3 Set rsCount = Server.CreateObject("ADODB.RecordSet") rsCount.Open "SELECT * FROM guestbook", Conn, adOpenStatic 'gets style info set rsStyle = Server.CreateObject("ADODB.RecordSet") rsStyle.Open "SELECT * FROM style", Conn ' reads first records (offset) without showing them (can't find another solution!) hiddenrecords = requestrecords do until hiddenrecords = 0 OR rs.EOF hiddenrecords = hiddenrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %> Guestbook " rel="stylesheet" type="text/css">
Guestbook
Total Posts: <%Response.Write(rsCount.recordcount)%> Sign the guestbook - Admin
<% ' prints records in the table showrecords = recordsonpage recordcounter = requestrecords do until showrecords = 0 OR rs.EOF recordcounter = recordcounter + 1 %> <% showrecords = showrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %>
Name Message
<%=rs("name")%>
"><%=rs("email")%>
" target="_blank"><%=rs("website")%>
<%= MessengerSmilies(rs("message"))%>

<% if requestrecords <> 0 then %> < Prev Page <% else %> Prev Page <% end if %>
<% if lastrecord <> 1 then %> Next Page > <% else %> Next Page <% end if %>
Go to page: <% pagelist = 0 pagelistcounter = 0 do until pagelist > allrecords pagelistcounter = pagelistcounter + 1 %> <% = pagelistcounter %> <% pagelist = pagelist + recordsonpage loop %>



Copyright © Simon McLaughlin - 2003. All Rights Reserved.
<% ' Closes connection rs.close Conn.close %>