<%
dim currentpage,rowcount,i,sort,sqltext,forward,backward,pgcount
dim page,pagesize,search,pagecount
Response.Expires=0
forward=""
backward=""
pgcount=trim(Request.Form("pgcount"))
pagesize=15
currentpage=trim(request("page"))
if currentpage="" then
currentpage="1"
end if
if IsNumeric(pgcount) then
currentpage=pgcount
end if
sqltext="SELECT * FROM feedback order by id desc"
set rs=server.createobject("adodb.recordset")
rs.PageSize=pagesize
rs.open sqltext,con,3,3,1
rowcount=0
if rs.PageCount=0 then
pagecount=1
else
pagecount=rs.PageCount
end if
if cint(currentpage)=pagecount then
backward="disabled"
end if
if cint(currentpage)=1 then
forward="disabled"
end if
%>
maggiesbar
