<% dim thisPage, rowcount, i thisPage = Trim(Request("thisPage")) if thisPage = "0" then thisPage = 1 if thisPage = "" then thisPage = 1 set cnn = server.CreateObject("ADODB.Connection") cnn.Open "Data Source=//nawinfs04/home/users/web/b2681/rh.minnetonkacamera/database/links.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" set rst = Server.CreateObject("ADODB.Recordset") with rst .CursorType = adOpenStatic .PageSize = 100 .Open "SELECT Entry,Date,Title,Url,Submitter,Description FROM Entries ORDER BY Title ASC", cnn .AbsolutePage = cINT(thisPage) end with rowCount = 0 Response.Write "" while not rst.EOF and rowCount < rst.PageSize Response.Write "" rowCount = rowCount + 1 rst.MoveNext wend %> <% Response.Write "

" Response.Write "" & rst("Title") & "

" Response.Write rst("Description") & "

" rst.Close Set rst=Nothing cnn.Close Set cnn=Nothing %>