<%@ LANGUAGE="VBSCRIPT" %> Cool Kids: Planet Earth
Cool People: Planet Earth

Cool People Menu

Submit a Cool Person!

Cool Kids

<% 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 %>

<% if session("pg") > 1 then %>

<%end if%> <% if session("pg") < rs.PageCount then %> <%end if%>

<%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 %>
<%if rs("cpURL")<>"" then%> Web Site:
<%end if %><%if rs("cpSub")="" then curSub="Anonymous" else curSub=rs("cpSub") end if%> Submitted by: <%=curSub%>

<% rs.MoveNext '------------------------------------- if rs.EOF then exit for end if next %>

<% if session("pg") > 1 then %>

<%end if%> <% if session("pg") < rs.PageCount then %> <%end if%>

  [Home] [Cool Adults] [Cool Kids] [Legends Past & Present] [Search] [Lookup ID] [About] [Submit]

Cool People: Planet Earth is Designed and Built by OceanTek, http://www.oceantek.com/
Comments to
webmaster@coolpeople.com 1997:OceanTek, Inc.