Paginação MySQL maluca - nao entende o numero de paginas

[Carlos Moreira 0]

Galera seguinte estou usando uma paginação ele ateh funciona quando eu coloco listar 5 por pagina mas quando coloco 10 ele lista só a 1ª pagina

 

Mesmo se tiver 15 registros ele nao lista a segunda.

 

segue abaixo o cod.

 

 

<%

Call abre_conexao1(ConnString,Conn)

tabela = "Administrador"

'pega a pagina atual

pagina = request.ServerVariables("SCRIPT_NAME")

'numero de registros por pagina...

pageSize = 10

if(len(Request.QueryString("p")) = 0 )then

paginaAtual = 1

else

paginaAtual = CInt(Request.QueryString("p"))

end if

' conta o numero de registros...

mysql = "SELECT COUNT(*) AS total FROM "&tabela&""

set RS = Conn.Execute(mysql)

'total de registros

recordCount = Cint(RS("total"))

'calculamos o numero de paginas...

pageCount = Clng(recordCount / pageSize)

RS.Close()

Flag1 = INT(paginaAtual / pagesize)

PI = INT(Flag1 * pagesize)

IF PI = 0 THEN

PI = 1

END IF

PF = PI + pagesize - 1

' selecionamos os registros...

mysql = "SELECT * FROM "&tabela&" LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize

set RS = Conn.Execute(mysql)

%>

 

<%

Do While Not RS.eof

%>

<%= RS("nome") %>

<%

RS.MoveNext()

Loop

RS.Close()

Set RS = Nothing

Call fecha_conexao1()

%>

<%

' cria os links de pagians...

IF CInt(paginaAtual) > 1 THEN

%> <%

Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> | "

%> <%

Else

Response.Write "<font color=""#ADADAD"">Primeira</font> | "

END IF

%> <%

if CInt(paginaAtual) > 1 then

Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"'><b>Anterior</b></a> | "

Else

Response.Write "<font color='#ADADAD'><b>Anterior</b></font> | "

END IF

%> <%

IF (CInt(paginaAtual) < pagecount) THEN

IF CInt(PF) <> pagecount THEN

Response.Write "<a href='"&pagina&"?p=" & paginaAtual+1 & "'><b>Próxima</b></a> | "

END IF

Else

Response.Write "<font color=""#ADADAD""><b>Próxima</b></font> | "

END IF

%> <%

IF (CInt(paginaAtual) < pagecount) THEN 'XXXXXXXXXXXXXXXXXXXXXXXXXXX <>

IF CInt(PF) <> pagecount THEN

Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "

END IF

Else

Response.Write "<font color=""#ADADAD"">Última</font>"

END IF

%> </td>

</tr>

<tr>

<td height="20" align="center"> <%

'for i=1 to pageCount

'Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ")

'next

%> <%

IF paginaAtual - 5 > 0 THEN INICIO = paginaAtual - 5 ELSE INICIO = 1 END IF

IF paginaAtual + 5 < pagecount THEN FIM= paginaAtual + 5 ELSE FIM = pagecount END IF

 

For i= INICIO to FIM

If i = paginaAtual Then

Response.Write("<a href='"&pagina&"?p=" & i & "'>[<b>" & i & "</b>]</a>")

Response.Write(" ")

Else

 

Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ")

End IF

Next

%>

[jrcardozo 4]

o cursor location da conexao e do recordset estão corretos?