listar em 2 colunas

[formalivre 0]

olá.

tenho uma página que lista os ítens um em baixo do outro.

mas eu preciso que estes ítens sejam listados em 2 colunas assim:

tenho este código fazendo esta listagem:

ASP

<%

Dim conexao, strNRegistros, rsNRegistros, strClassific, rsClassific, categoriaAtual, strClassifi, rsClassifi, id

categoriaAtual=(Request.QueryString("Categoria"))

Session("usuario") = categoriaAtual

%>

<%

regs = 2 'Aqui setamos quantos registros serão listados por página

pag = request.querystring("pagina")

 

if pag = "" Then

pag = 1

end if

 

set conn = createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("mdb")

 

set rs = createobject("adodb.recordset")

 

set rs.activeconnection = conn

 

rs.cursortype = 3 'Definimos o cursor a ser utilizado

rs.pagesize = regs

 

sql = "SELECT * "

sql = sql & "FROM perfis "

sql = sql & "INNER JOIN Categorias "

sql = sql & "ON perfis.idcat = categorias.idcat "

sql = sql & "WHERE perfis.idcat LIKE '" & Session("usuario") & "'"

sql = sql & "ORDER BY perfis.idnot asc"

rs.open sql

if rs.eof or rs.bof then

else

rs.absolutepage = pag

contador = 0

do while not rs.eof and contador < rs.pagesize

id = rs("idnot")

response.write "<table width=100% border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB><tr><td rowspan=2 width=90 align=center><a href='ver_perfil.asp?id=" & rs("idnot") & "')><img src= fotos/" & rs("foto") & " height=60 border=0></a></td><td class= texto><a href='ver_perfil.asp?id=" & rs("idnot") & "')> " & rs("titulo") & "</a></td></tr></table>"

response.write "<br>"

 

contador = contador +1

rs.movenext

loop

end if

 

'Criando links para a navegação

 

response.write "<p class= texto>Navegue pelas páginas para ver mais perfis: "

 

for i = 1 to rs.pagecount

 

if i = cint(pag) then

response.write "<b>" & i & "</b> | "

else

response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & i & "&Categoria="& categoriaAtual &"'><b>" & i & "</b></a> | "

end if

 

next

 

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

preciso muito desta informação. desde já agradeço.

[jrcardozo 4]

a solução encontra-se no forum pendurado de dúvidas frequentes

[formalivre 0]

oi Jonatha. obrigado pela resposta.

eu não consigo identificar em qual parte do meu código tenho de alterar com a parte que você me passou

<table border=1 width=50%>

<tr>

<% Dim contador

contador = 1

maxcol = 2 '<------------------ numero de registros por colunas

do while not rs.eof%>

<%

if contador <= maxcol then %>

<td>

<img src="<%=rs("imgp")%>">

</td>

 

<%

contador = contador + 1

else %>

</tr>

<tr>

<td>

<img src="<%=rs("imgp")%>">

</td>

<%

contador = 1

end if

rs.movenext

loop

 

'completa as colunas

do while contador <= maxcol %>

<td>

 

</td>

<% contador = contador + 1

loop %>

</tr>

</table>

se puder me ajudar. obrigado.

[Ted k' 126]

Veja ai:

 

ASP

Response.Write "<table width=100% border=0 cellspacing=0><tr>"

q=q+1

response.write "<td><table width=100% border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB><tr><td rowspan=2 width=90 align=center><a href='ver_perfil.asp?id=" & rs("idnot") & "')><img src= fotos/" & rs("foto") & " height=60 border=0></a></td><td class= texto><a href='ver_perfil.asp?id=" & rs("idnot") & "')> " & rs("titulo") & "</a></td></tr></table></td>"

if q=2 then

Response.Write "</tr>"

q=0

end if

response.write "</table><br>"

[formalivre 0]

olá Ted.

fiz como você escreveu e não mostrou os resultados em 2 colunas.

se quiser ver o resultado acesse por favor: http://www.samuraisdobrasil.com.br/samurai...amp;Categoria=1

 

se tiver mais alguma dica eu agradeço sua atenção.

[formalivre 0]

olá pessoal. eu preciso muito dessa paginação em 2 ou mais colunas.

até agora tenho isso que o TED me passou mas não funcionou

Response.Write "<table width=100% border=0 cellspacing=0><tr>"

q=q+1

response.write "<td><table width=100% border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB><tr><td rowspan=2 width=90 align=center><a href='ver_perfil.asp?id=" & rs("idnot") & "')><img src= fotos/" & rs("foto") & " height=60 border=0></a></td><td class= texto><a href='ver_perfil.asp?id=" & rs("idnot") & "')> " & rs("titulo") & "</a></td></tr></table></td>"

if q=2 then

Response.Write "</tr>"

q=0

end if

response.write "</table><br>"

por favor alguém pode me ajudar.

[jrcardozo 4]

cara, não tem mistério, veja

ASP

<table border=1 width=50%>

<tr>

<% Dim contador

contador = 1

maxcol = 2 '<------------------ numero de registros por colunas

do while not rs.eof%>

<%

if contador <= maxcol then %>

<td>

<img src="<%=rs("imgp")%>">

</td>

 

<%

contador = contador + 1

else %>

</tr>

<tr>

<td>

<img src="<%=rs("imgp")%>"><<<<<<<====no lugar da tag img você coloca o código que deseja mostrar em colunas

</td>

<%

contador = 1

end if

rs.movenext

loop

 

'completa as colunas

do while contador <= maxcol %>

<td>

 

</td>

<% contador = contador + 1

loop %>

</tr>

</table>

caso não esteja claro, pegue esse codigo e rode só ele pra ver como ele funciona

[Ted k' 126]

retire esse width=100% da tabela prinicipal e coloque um valor width=150

 

ficando assim:

<table width=150 border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB>

[formalivre 0]

olá Ted. obrigado mais uma vez.

mas ainda não deu certo.

será que é por causa da paginação?

segue código completo:

<%

Dim conexao, strNRegistros, rsNRegistros, strClassific, rsClassific, categoriaAtual, strClassifi, rsClassifi, id

categoriaAtual=(Request.QueryString("Categoria"))

Session("usuario") = categoriaAtual

%>

<%

regs = 6 'Aqui setamos quantos registros serão listados por página

pag = request.querystring("pagina")

 

if pag = "" Then

pag = 1

end if

 

set conn = createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("xxx")

 

set rs = createobject("adodb.recordset")

 

set rs.activeconnection = conn

 

rs.cursortype = 3 'Definimos o cursor a ser utilizado

rs.pagesize = regs

 

sql = "SELECT * "

sql = sql & "FROM perfis "

sql = sql & "INNER JOIN Categorias "

sql = sql & "ON perfis.idcat = categorias.idcat "

sql = sql & "WHERE perfis.idcat LIKE '" & Session("usuario") & "'"

sql = sql & "ORDER BY perfis.idnot asc"

rs.open sql

if rs.eof or rs.bof then

else

rs.absolutepage = pag

contador = 0

do while not rs.eof and contador < rs.pagesize

id = rs("idnot")

 

Response.Write "<table width=100% border=0 cellspacing=0><tr>"

q=q+1

response.write "<td><table width=100% border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB><tr><td rowspan=2 width=90 align=center><a href='ver_perfil.asp?id=" & rs("idnot") & "')><img src= fotos/" & rs("foto") & " height=60 border=0></a></td><td class= texto><a href='ver_perfil.asp?id=" & rs("idnot") & "')> " & rs("titulo") & "</a></td></tr></table></td>"

if q=2 then

Response.Write "</tr>"

q=0

end if

response.write "</table><br>"

 

contador = contador +1

rs.movenext

loop

end if

 

'Criando links para a navegação

 

response.write "<p class= texto>Navegue pelas páginas para ver mais perfis: "

 

for i = 1 to rs.pagecount

 

if i = cint(pag) then

response.write "<b><font color=#FF3300>" & i & "</font></b><font color=#CCCCCC> | </font>"

else

response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & i & "&Categoria="& categoriaAtual &"'><b>" & i & "</b></a><font color=#CCCCCC> | </font>"

end if

 

next

 

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

obrigado pela ajuda até agora e interesse em meu problema.

[Ted k' 126]

Fez como o jonathandj colocou acima?

[formalivre 0]

como o jonathandj escreveu acima eu teria de mudar todo o meu código e eu não consegui adaptar.

como você estava fazendo seria melhor pois eu só estava mudando nesta parte:

Response.Write "<table width=100% border=0 cellspacing=0><tr>"

q=q+1

response.write "<td><table width=100% border=0 cellspacing=0 cellpadding=4 bgcolor=#EBEBEB><tr><td rowspan=2 width=90 align=center><a href='ver_perfil.asp?id=" & rs("idnot") & "')><img src= fotos/" & rs("foto") & " height=60 border=0></a></td><td class= texto><a href='ver_perfil.asp?id=" & rs("idnot") & "')> " & rs("titulo") & "</a></td></tr></table></td>"

if q=2 then

Response.Write "</tr>"

q=0

end if

response.write "</table><br>"

bom vou continuar procurando alguma solução.

[Felipe Fonseca 0]

Eh ... Imagino que você tenha que fazer uns IF's ai ... pra funcioanr ..

to com fooooooooome aki agora vou ali comer ... e quando voltar se nao tiveer um solucao .... vou tentar ...

[formalivre 0]

ok Felipe. obrigado pela ajuda.

[formalivre 0]

olá pessoal.

bom consegui mostrar o resultado em 2 colunas, só que agora perdi a paginação que tinha.

preciso agora adapatar uma paginação para listar uma certa quantidade de ítens por página.

segue como está em 2 colunas:

<%

' Descrevendo caminho do seu banco de dados

strCon = "DBQ=xxxx.mdb;Driver={Microsoft Access Driver (*.mdb)};"

 

' Abrindo conexão e record set para chamar informações da Tabela com o nome das fotos.

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 0

objRS.LockType = 1

strSQL = "SELECT * FROM perfis"

objRS.Open strSQL, strCon

%>

<%

%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="8" bgcolor="#FFFFFF">

 

<tr>

<%

'Iniciando variável contador e loop para exibir em colunas

i = 1

Do While Not objRS.EOF

%>

<td align="center">

<table width="100%" border="0" cellpadding="4" cellspacing="0" bgcolor="#EBEBEB">

<tr>

<td width="90"><a href='ver_perfil.asp?id=<%=objRS("idnot")%>')><img src="fotos/<%=objRS("foto")%>" alt=""height="60" border="0" /></a></td>

<td class="texto"><a href='ver_perfil.asp?id=<%=objRS("idnot")%>')><%=objRS("titulo")%></a></td>

</tr>

</table>

</div></td>

<%

'Define quantidade de colunas

If i = 2 Then

i = 0

Response.Write "</TR><TR>"

End If

i = i + 1

objRS.MoveNext

Loop

%>

</tr>

</table>

<%

objRS.close

%>

se alguém puder me ajudar?

[formalivre 0]

olá pessoal ainda estou com este problemão.

preciso adapatar uma paginação no código acima para listar uma certa quantidade de ítens por página.

estou precisando muito de uma ajuda.

 

obrigado.

[Grangrena 0]

cara tenta tira do

</div>

[hargon 64]

Opa... valeu intenção, mas tópico já ficou antigo. rs http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif