%@ LANGUAGE="VBSCRIPT" %>
<% if request.form("pageCmd")="" then Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open Session("cppeConnStr") Set rs=server.createobject("ADODB.recordset") sqlStr="SELECT * FROM cpTbl WHERE (cpCat='kids') and (cpApproved=1) ORDER BY cpDate DESC" rs.open sqlStr,conn,adOpenStatic,adLockReadOnly,adCmdText rs.PageSize=5 rs.AbsolutePage=1 Set Session("rs")=rs Session("pg")=1 else set rs=Session("rs") Select Case request.form("pageCmd") Case "Previous Page" if session("pg") > 1 then session("pg") = session("pg")-1 rs.AbsolutePage=session("pg") else session("pg")=1 rs.AbsolutePage=session("pg") end if Case "Next Page" if rs.AbsolutePage < rs.PageCount then session("pg")=session("pg")+1 rs.AbsolutePage=session("pg") else sesion("pg")=rs.PageCount rs.AbsolutePage=session("pg") end if Case Else session("pg")=1 rs.AbsolutePage=session("pg") end select end if %> <% if session("pg") > 1 then %> <%else %>Welcome to the Cool People: Planet Earth Adult page. Cool People are listed in the order that they were submitted. Click on the page navigation buttons on the bottom of thepage to see older submissions, or search the Cool People database. <%end if%><% for j=1 to rs.PageSize '-------------record layout------------ %> <%=rs("cpName")%> <% curDesc=rs("cpDesc")%>:
<%=curDesc%><% if rs("cpPicture")=1 then %>.gif" align="right"
hspace="0"> <% end if %> <% rs.MoveNext '------------------------------------- if rs.EOF then exit for end if next %> |
|
[Home] [Cool Adults] [Cool Kids] [Legends Past &
Present] [Search] [Lookup ID] [About] [Submit] Cool People:
Planet Earth is Designed and Built by , http://www.oceantek.com/ |