<%
currentpage=Trim(Request.QueryString("currentpage"))
if currentpage="" then currentpage=1
Set con = server.createobject("adodb.connection")
con.Open "dsn=sahil"
set rs = server.createobject("adodb.recordset")
rs.cursortype=adopenstatic
rs.PageSize=10
rs.open "select * from message order by dat DESC",con
'a=request.querystring("flag")
rs.AbsolutePage=cINT(currentpage)%>
.........................Carsoft Guest Book Sign form..................................................
----------- Guest
Book ---------
<%if rs.recordcount>10 and currentpage > 1 then %>
Previous
<%end if%>
Total records:<%Response.Write rs.RecordCount%>
<% if Trim(currentpage) <> Trim(rs.PageCount) then %>
Next
<% end if %>
Name
Email
Date/Time
<%
rowcount=0
while not rs.eof and rowcount < rs.pagesize
rowcount=rowcount+1
%>
