Guestbook

<%@ language ="VBscript" CodePage ="1254" %> <% Option Explicit %> Guestbook

<% Session.LCID = 1033 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 = 3'adUseClient sql = "SELECT * FROM guests where active Like '1' 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 if records("active") = 1 then 'Response.Write("Ended") 'Response.End 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("

") End if 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 %>