Paginação

[Visitante]

Bom galera meu problema é o seguinte!!!!

Ex: tenho no total 2 paginas, mas minha paginaçao continua exibindo {1}{2}{3}{4}{5}.....

hehehehehe!!!, que bugggg.

já to com tanto nojo, que não conseguo mais fazer nada!!!

Melhor dizendo estou perdido!!!

ajudem ai!!!

O unico problema é na paginaçao numeral!!!

Vou postar todo o meu codigo, pois podera servir de exemplos para outros!!!

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("banco.mdb")

Conn.open

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5

SQL = "select * from FORUNS ORDER BY ID DESC"

RS.Open SQL,Conn,3,3

IF RS.EOF then

Response.Write "nenhum registro encontrado"

Response.End 'paramos o programa

ELSE

IF Request.QueryString("pagina")= " " then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> RS.PageCount then

intpagina=RS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

'''''''''''''''''''''''''''''''''''''

' FIM DAS FERIFICAÇOES '

'''''''''''''''''''''''''''''''''''''

RS.AbsolutePage = intpagina

intrec = 0

While intrec < RS.PageSize and not RS.EOF

%>

<td width="16%" align="center">

<img border="0" src="FOTOS/<%=RS("FOTO")%>"></td>

<td width="84%">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#800000" width="100%" id="AutoNumber4">

<tr>

<td width="81%" align="center" valign="baseline"><%=RS("TITULO")%></td>

<td width="119%" align="center" valign="baseline">id</td>

</tr>

<tr>

<td width="81%" align="center" valign="top"><%=RS("COMENTARIO")%></td>

<td width="119%" align="center" valign="top"><%=RS("id")%></td>

</tr>

</table>

</td>

</tr>

<%

RS.MoveNext

intrec=intrec+1

IF RS.EOF then

response.write " "

END IF

Wend

IF intpagina > 1 then

%>

<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

END IF

%>

<%

'''''''''''''''''''''''''''''''''''''

' INIÇIO DA PAGINAÇAO NUMERAL '

'''''''''''''''''''''''''''''''''''''

total = RS.PageCount

total = int(total)

pagina = request("pagina")

if pagina = " " then

pagina = 1

end if

inicial = pagina - 2

final = pagina + 2

If inicial < 1 Then

inicial = 1

End If

If final > total Then

final = total

End If

if inicial = 1 then

final = 5

end if

if final = total then

inicial = total - 5

end if

For i = inicial To final

If i = CInt(pagina) Then

Response.Write i & " "

Else

Response.Write "<a href=paginacao.asp?pagina="&i&">"&i&"</a> "

End If

Next

'''''''''''''''''''''''''''''''''''''

' FIM DA PAGINAÇAO NUMERADA '

'''''''''''''''''''''''''''''''''''''

%>

<%

IF strcomp(intpagina,RS.PageCount) <> 0 then

%>

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

%>

<br>

<br>

<br>

Voce esta na pagina <%=intpagina%> de <%= RS.PageCount%>

<BR>

Abraços...

:P Bug :P Bug :P Bug

[.Andreia.]

O jeito é debugar.

No codigo voce tem "INIÇIO DA PAGINAÇAO NUMERAL", abaixo varios IFs. então imprima as variaveis total e pagina e veja em que IF ele está caindo, porque na hora de imprimir as paginas está sendo até 5.