<%dim ObjAdoConn, StrSQL, RS
If Request("pSize") = "" Then varPagSize = 10
StrSQL = "SELECT * from tbs_artigos"
Conecta ObjAdoConn, StrSQL, RS
if rs.EOF Then
else
rs.PageSize = varPagSize
varPagCount = rs.PageCount
If varPag > varPagCount Then
varPag = varPagCount
End If
rs.AbsolutePage = varPag
While Not rs.EOF And varCount <= varPagSize %>