<%
Dim rs
If Request("pSize") = "" Then varPagSize = 10
StrSQL = "SELECT * from tbs_dicas where status = 1"
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 %>