<% dim page dim DisplayNum Dim connect dim records dim dbconnect dim sql dim ipage dim i dim pages dim l dim strLine page = trim(request.querystring("page")) If page = "" Then page = 1 else page = cint(page) End If DisplayNum = 0 Session.LCID = 1030 dbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("guestbook.mdb") Set connect = Server.CreateObject ("ADODB.Connection") Set Records = Server.CreateObject ("ADODB.Recordset") connect.Open dbconnect Records.PageSize = 10 'displays 7 records per page Records.CursorLocation = adUseClient sql = "SELECT * FROM guests ORDER BY id DESC" Records.Open sql, connect if Records.EOF OR Records.BOF Then response.write "

" response.write "

There are no entries

" else ipage = Records.PageCount if page = 0 or page > ipage Then Records.AbsolutePage = ipage else Records.AbsolutePage = page end if do while not Records.Eof AND i < 10 response.write("") response.write("

") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write(" Date: ") response.write(Records("sign_date")) response.write(" Name: ") response.write(Records("name")) response.write(" Location: ") response.write(Records("location")) response.write(" Email: ") response.write ("" & Records("email") & "") response.write(" Message: ") response.write(Records("comments")) response.write(" ") i = i + 1 Records.Movenext loop response.write "" If ipage > 1 Then pages = "Pages :    " For l = 1 to ipage If l = page then pages = pages & "  [" & page & "]    " Else pages = pages & " " & l & "" & "    " End If Next response.write pages & "  " End If response.write "" response.write "total entries : " & Records.RecordCount & " " Records.Close connect.Close set Records = nothing set connect = nothing End if %>