<% Dim rsentry,sql,totalpages,recpos,page,fldcounter,i Response.buffer=True Set rsentry = Server.CreateObject("ADODB.Recordset") SQL = "select * from comments order by datestamp desc" rsentry.Open SQL, adocon, 3,3 rsentry.pagesize = 5 'change this number to vary the entry/page shown page = Request.QueryString("page") If page = "" then page = 1 if rsentry.EOF or rsentry.bof then response.redirect("sign.asp") recpos= 0 id = rsentry("id") Else end if rsentry.AbsolutePage = page totalPages = rsentry.PageCount %>
    Christian Alexander Johnson - Read my guestbook
 

 

 

  

 

<% Do until rsentry.EOF or fldcounter = rsentry.pagesize fldcounter = fldcounter + 1 recpos = recpos + 1 %>
Posted on : <%=FormatDateTime(rsentry("datestamp"), 1)%> <%=FormatDateTime(rsentry("datestamp"), 3)%>
".....<%=rsentry("message")%>.."
From  <%=rsentry("name")%> of <%=Ucase(rsentry("country"))%>

" title="email <%=rsentry("name")%>">   alt="IP Logged" <% else %> alt="<%=rsentry("ipadd")%>"<% end if%>> " target="new">Visit <%=rsentry('s Homepage"> <% if session("authenticated")="OK" then %> ">delete | ">edit<% end if%>

<% rsentry.movenext loop %>
<% i = 0 For i = 1 to rsentry.PageCount If (Int(i)) = (Int(page)) then Response.write ""& i &"  " Else Response.write ""& i &"  " End If Next If page = 1 then Response.write "«" Response.write "  " Response.write "NEXT" ElseIf (Int(totalPages)) = (Int(page)) then Response.write "«" Response.write "  " Response.write "NEXT" Else Response.write "«" Response.write "  " Response.write "NEXT" End If %>

Back to Start
<% rsentry.close set rsentry=nothing adocon.close Set adocon = nothing %>