<%
Function montaCountPaginas()
Dim s
If CInt(pagina) > rsPessoaProduto.PageCount Then pagina = 1
nPaginas = rsPessoaProduto.PageCount
rsPessoaProduto.AbsolutePage = pagina
If rsPessoaProduto.RecordCount > 1 Then
s = rsPessoaProduto.RecordCount & " títulos localizados"
If rsPessoaProduto.PageCount > 1 Then
s = s & " (mostrando página " & pagina & " de " & rsPessoaProduto.PageCount & " páginas)"
End If
Else
s = "1 título localizado"
End If
montaCountPaginas = "" & _
"
"
ListaResultados = ListaResultados &"
