<%
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("| Date: | ")
response.write("")
response.write(Records("sign_date"))
response.write(" | ")
response.write("| Name: | ")
response.write("")
response.write(Records("name"))
response.write(" | ")
response.write("| Location: | ")
response.write("")
response.write(Records("location"))
response.write(" | ")
response.write("| Email: | ")
response.write("")
response.write ("" & Records("email") & "")
response.write(" | | Message: | ")
response.write("")
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
%>
|