%
Set cn=Server.CreateObject("ADODB.Connection")
'cs="Provider=microsoft.jet.oledb.4.0;data source=D:\inetpub\wwwroot\lspj.ca\database\gb.mdb"
cs="DSN=guestbook"
cn.open(cs)
Set rs=cn.execute("Select count(*) as recordcount from guestbook_table where approved=yes")
'response.write rs("recordcount")
if rs.eof=false then
rcount=rs("recordcount")
else
rcount=0
end if
Set rs=cn.execute("Select name,datetime_entered,country,email,comment from guestbook_table where approved=yes order by reference_num desc")
%>
|
|
La
Salle PJ does us all proud. La Salle won the Rafida
Aziz Challenge Shield for the South East Asian Forensics
Tournament.
Read More..
|
|
|
LSPJ
- Class Of 1977
Guest
Book - Entries
|
<%frompage=request("currentpage")
currentrecord=0
const pgcount=5
fromrecord=((frompage-1)*pgcount)+1
torecord=fromrecord + (pgcount-1)
if rcount <= torecord then
torecord=rcount
end if
do while rs.eof=false
currentrecord=currentrecord+1
if ((currentrecord >= fromrecord) and (currentrecord <= torecord)) then
'do while rs.eof=false%>
Posted By:<%=rs("name")%>
|
Date/Time:<%=rs("datetime_entered")%>
|
Country:<%=rs("country")%>
|
Email:"><%=rs("email")%>
|
Comments:<%=rs("comment")%> |
<%
end if
'loop
if (currentrecord > torecord) then
exit do
end if
'rs.movenext
rs.movenext
loop
if ((rcount mod pgcount)=0) then
pages=rcount/pgcount
else pages=(rcount/pgcount)+1
end if%>
Pages: |
<%for i=1 to pages%>
> <%=i%> |
<%next%>
<%cn.close()
%>
|
Copyright
©2004.All Rights Reserved
|
|