<% 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")%>
<% 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%> <%for i=1 to pages%> <%next%>
Pages: > <%=i%>
<%cn.close() %>

Copyright ©2004.All Rights Reserved