<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> BOON'S ARK
 
 
 
 
 

<% on error resume next rs=getRS("guestbook") %>
<% dim l i= UBound(rs,2) m = i mod 3 if m<>0 then i=-(Int(-i/3)) else i=-(Int(-i/3)) + 1 end if l=cint(Request.QueryString ("Scroll")) if l=0 then l=i end if %>

<% if err>0 then Response.write "Currently there are no comments present." else %>
 
Please read through our guestbook and feel free to pass your criticism, comments or suggestions.

<% if lPrevious" end if %>
<% For k=i to 1 step-1 Response.Write ""&i-k+1&" " next %>
<% if l>1 then Response.Write "Next" end if %>
<% For j=3*(l)-1 to 3*(l-1) step -1 If UBound(rs,2)>=j then %>
Posted By : <%=rs(1,j)%>
Posted On: <%=rs(4,j)%>
Email : <%=rs(2,j)%>
Comment :
<%=rs(3,j)%>

 

<% end if next end if %>

Please pass your comments here

 
 

 
 
Site Designed By SpiderWeb Designerz