resultado em colunas..antes funfava

[webcore 0]

Buenos de novo

estava imprimindo os resultados na tela como se fosse exibição em colunas, só q usando a <ul> e <li> montadas via css

tipo:

foto 1 - foto 2 - foto 3 - foto 4

foto 5 - foto 6 - foto 7 - foto 8

a </ ul> ta antes do rs.movenext ---- paginei o trem e desconfigurou..ta aparecendo um embaixo do outro...

 

 

rs outra coisa.. qdo clico no link para a pagina 2 ele usa o efeito do lightbox, fica tentando abrir uma foto, e link p/ pag 2 nada rs

http://www.corehuman.com/toniescalante/Gal...od_categoria=30

 

CODE

<div id="galeria">

<%

Set rs = Server.CreateObject("Adodb.RecordSet")

rs.CursorLocation = 3

rs.Pagesize = 15

rs.Open "SELECT * FROM fotos WHERE cod_categoria= "&cod_categoria&"", Conn

If rs.Eof Then

Response.Write("")

Else

PaginaAtual = CInt(Request.Querystring("Pages"))

If PaginaAtual = 0 Then

PaginaAtual = 1

End If

rs.AbsolutePage = PaginaAtual

Num = rs.PageCount

While Not rs.Eof And rs.AbsolutePage = PaginaAtual

%>

<ul>

<%

Response.Write"<li>"

%>

<a href="<%= rs("imagem_gde")%>"><img src="<%= rs("imagem")%>" border="0" /></a>

<%

Response.Write"</li>"

%>

</ul> Sem a paginacao fecha a UL certinho e exibe como se estivesse em TD'S

 

<%

rs.MoveNext : Wend

Anterior = PaginaAtual - 1

Proximo = PaginaAtual + 1

 

If Anterior <= 0 Then

Anterior = 1

End If

%>

 

<%

If Proximo > rs.PageCount Then

Proximo = rs.PageCount

End If

%>

 

<table width="100%" border="0" cellpadding="0" cellspacing="0" style="text-align:right; padding-right: 10px;">

<tr>

<td height="22">

Página

<%

k = 1

While k <= rs.PageCount

If PaginaAtual = k Then

Response.Write("["&k&"] ")

Else

 

Response.Write("<a href='Galeria.asp?Pages="&k&"&cod_categoria="&Request.QueryString("cod_categoria")&"' title='Página "&k&"'>"&k&"</a> ")

End If

k = k + 1

Wend

End If

%>

</td>

</tr>

</table>

</div><!-- / galeria -->

 

assim funfa

<ul>

<%

While Not rs.EOF

%>

<li>

<a href="<%= rs("imagem_gde")%>"><img src="<%= rs("imagem")%>" border="0" /></a>

</li>

</ul>

<%

rs.Movenext

...

 

 

ajuda? obrigado e desculpem

[Salgado 4]

Usando UL você conseguiu ordernar lateralmente?

 

Com certeza alguma outra coisa está causando esse erro na parte do alinhamento.

Dei uma limpada no código e troquei o seu WHILE por FOR lá na parte de páginas.

<div id="galeria">
<%
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.CursorLocation = 3
rs.Pagesize = 15
rs.Open "SELECT * FROM fotos WHERE cod_categoria= "& cod_categoria &"", Conn
If Not rs.Eof Then
PaginaAtual = CInt(Request.Querystring("Pages"))
If PaginaAtual = 0 Then
	PaginaAtual = 1
End If
rs.AbsolutePage = PaginaAtual
Num = rs.PageCount
While Not rs.Eof And rs.AbsolutePage = PaginaAtual
%>
<ul>
<li>
<a href="<%= rs("imagem_gde")%>"><img src="<%= rs("imagem")%>" border="0" /></a>
</li>
</ul>
<%
rs.MoveNext : Wend
Anterior = PaginaAtual - 1
Proximo = PaginaAtual + 1

If Anterior <= 0 Then
	Anterior = 1
End If

If Proximo > rs.PageCount Then
	Proximo = rs.PageCount
End If
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="text-align:right; padding-right: 10px;">
<tr>
<td height="22">
Página  
<%
For k=1 To rs.PageCount
	If PaginaAtual = k Then
		Response.Write("["& k &"]  ")
	Else
		Response.Write("<a href='Galeria.asp?Pages="& k &"&cod_categoria="& cod_categoria &"' title='Página "& k &"'>"& k &"</a> ")
	End If
Next
End If
%>
</td>
</tr>
</table>
</div><!-- / galeria -->