% table=Request("table") Set DbCon=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.RecordSet") DbCon.Open("DSN=ch71;UID=sa;PWD=pages30") RS.Open("Select * from "&table&" Order By ref Desc, step"),Dbcon,1,1 if(rs.bof=true and rs.eof=true) then r=1 else RS.PageSize=10 page=Request("page") if page<>"" then cpage=page if cpage<1 then cpage=1 end if else cpage=1 end if RS.AbsolutePage=cpage end if %>
|
|
|
|
||||||||||||||||||||||||||||||||||||||