<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<%
ConnGuestBook_ConnectionString = "DBQ=" & Server.Mappath("..\..\_database\guestbook.mdb") & ";DefaultDir=" & Server.Mappath("..\..\_database") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
ConnGuestBook_ConnectionTimeout = 15
ConnGuestBook_CommandTimeout = 30
ConnGuestBook_RuntimeUserName = "admin"
ConnGuestBook_RuntimePassword = ""
STATUS = Request.FORM("STATUS")
PASSWORD = Request.FORM("PASSWORD")
If STATUS = "CHECKEM" Then
If PASSWORD = "Chicken" Then
Session("ACCESS") = "Yes"
End If
End If
%>
<% If Session("ACCESS") <> "Yes" Then %>
View GuestBook
GuestBook By www.CJWSoft.com
<% Response.End %>
<% End If %>
ASPGuest By CJWSoft
<% ACTION = Request.Querystring("ACTION") %>
<% PAGE = CInt(Request.Querystring("PAGE")) %>
<% RCOUNT = CInt(Request.Querystring("RCOUNT")) %>
<% If RCOUNT = "" Then %>
<% RCOUNT = "0" %>
<% End If %>
View GuestBook
<%
Dim CmdShowEntries
Dim MySQL
'** Get initial recordset
Set CmdShowEntries = Server.CreateObject("ADODB.Recordset")
MySQL = "SELECT BOOK1.* FROM BOOK1 WHERE (NOT (NAME IS NULL)) ORDER BY DATE_ENTERED DESC"
CmdShowEntries.Open MySQL,ConnGuestBook_ConnectionString, 3
%>
<% HOWMANY = 5 %>
<% '** Determine Page Size
CmdShowEntries.PageSize = HOWMANY
%>
<% If ACTION = "FORWARD" Then %>
<% PAGE = PAGE + 1 %>
<% RCOUNT = RCOUNT + HOWMANY %>
<% For DACOUNT = 1 To RCOUNT %>
<% CmdShowEntries.MoveNext %>
<% Next %>
<% End If %>
<% If ACTION = "BACK" Then %>
<% PAGE = PAGE - 1 %>
<% RCOUNT = RCOUNT - HOWMANY %>
<% If RCOUNT <> 0 Then %>
<% For DACOUNT = 1 To RCOUNT %>
<% CmdShowEntries.MoveNext %>
<% Next %>
<% End If %>
<% End If %>
<% If RCOUNT = "0" Then %>
<% PAGE = 1 %>
<% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %>
<% =CmdShowEntries.RecordCount %> Messages Found
<% Else %>
<% =CmdShowEntries.RecordCount %> Message Found
<% End If %>
<% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %>
Showing First <% = HOWMANY %>
<% End If %>
<% End If %>
<% If CmdShowEntries.RecordCount = 0 Then %>
<% Response.End %>
<% End If %>
| <% If RCOUNT > 0 Then %>
<% End If %>
|
<% If PAGE = CmdShowEntries.PageCount Then %>
<% Else %>
<% End If %>
|
GuestBook By www.CJWSoft.com