[Resolvido] Quebra de linha na paginação

[RF programação 0]

Tô com um probleminha simples, só que não estou conseguindo resolver.

Minha paginação fica assim:

1 2 3 4 [5]

ok!?

Mas se for muitos registros ele não dá quebra de linha,

fica todos os links na mesma linha.

 

Queria dar uma quebra de linha nos links, ex:

01 02 03 04 05 06 07 08 09 10 <quebra de linha>

11 12 13 14 15 16 17 18 19 20 <quebra de linha>

21 22

 

Segue o código:

<!-- #include file="conexao.asp" -->
<%
Session.LCID = 1046
XPalavra = request.form("Palavra")
      dim dteInicial      
      dteInicial = ("1000-01-01")  
      dim dteFinal      
      dteFinal = ("9999-01-01")
%>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Const numpag=10 'quantidade por pagina
Conexao.CursorLocation=3 'AdUseClient

intpg=cint(Request.QueryString("pg"))

if intpg=0 then intpg=1
'***************************************
'AQUI FICA O SELECT
'***************************************
set rs = conexao.execute ("SELECT * FROM Tabela WHERE NOME like '%"+XPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"' ORDER BY NOME ASC")

IF rs.EOF then 
Response.Write "<div align=""center"" class=""TextoNegritoCinzaEscuro""><br><br>NENHUM REGISTRO ENCONTRADO!</span></div>"
else
rs.PageSize=numpag
rs.AbsolutePage=intpg
end if 

a=0 
i=0
while a < numpag and not rs.EOF
a=a+1
i=i+1
'***************************************
'Conteúdo
'***************************************
%>

<% =rs("NOME") %><% NOME=rs("NOME") %>
<% =rs("DATA") %><% DATA=rs("DATA") %>

'***************************************
'Fim do Conteúdo
'***************************************
<%
Rs.MoveNext()
Wend
%>

<font face="Arial,Verdana" size="2" color="#484848">
<%
for a = 1 to rs.PageCount
if a <> intpg then 

Response.Write " <a href='"&pagina&"?pg=" & a & "'>" & a & "</a> "
else
Response.Write "<b>[ "& a & " ]</b>"

end if
next
%>
</font>

[Mário Monteiro 179]

basta por um IF dentro do laço verificando se o numero da pagina é múltiplo do numero que deseja para a quebra e inserir o <br>

[xanburzum 169]

Olá amigo....

 

existem exemplos no lab. de script , que faz isso, pode te ajudar a implementar seu code...

 

até mais

[RF programação 0]

Dá um exemplo Mario...

 

Amigo, tô fazendo assim e está dando certo... :lol:

 

if a >= 10 And a <= 10 then
Response.Write "<BR>"
end if

Como eu faço para não ter que digitar linha por linha? :huh:

[Mário Monteiro 179]

Dentro do laço for faça um

 

IF a mod 10 = 0 THEN
   Response.Write "<BR>"
END IF

[RF programação 0]

Deu certo Mário!!! Vlw pela ajuda... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

O moderador pode fechar tópico.

[Mário Monteiro 179]

Que bom que resolveu

 

Abraços