asp: resultado de um select em 2 colunas

[DJGrello 0]

Ae galera to com um proble e não consegui resolver, tenho uma consulta em asp que retorna basicamente 3 campos de um banco de dados acess, porem tenho que apresentar em uma tabela de 3 colunas e 2 linhas conforme o desenho abaixo:

 

 

o codigo que eu tava tentando usar é o seguinte:

 

<table width="365" height="194" border="1" cellpadding="0" cellspacing="0">				  <tr><%i=1do while not objPagingRS.EOF   response.Write ("<td>" & evento & "</td>")  i=i+1objPagingRS.movenextif i = 4 then   exit doend ifloop%>								  </tr>				  <tr><%do while not objRS.EOF   response.Write ("<td>" & evento & "</td>")  i=i+1objRS.movenextif i = 6 then   exit doend ifloop%>

mas só repete o mesmo registro.

já tentei usar FOR ... NEXT, mas tb não deu certo.

 

to com urgencia desse codigo, pois o site já está pronto, só falat esa parte.

 

 

Obrigado

[andreia_sp 1]

a imagem nao aparece

[DJGrello 0]

a imagem nao aparece

(IMG:http://www2.planet.ee/files/2007-02-23/img.JPG)

 

Clica aki que você vai ver uns quadradinhos que eu fiz, só de representação de como deve ser a tabela Link da imagem

 

mas tem que aparecer no site +ou- assim

 

foto do produto				  foto do produto			 foto do produto	descricao				   descricao					  descricao	categoria				   categoria					   categoria	   foto do produto		   foto do produto			 foto do produto	descricao				   descricao					  descricao	categoria				   categoria					   categoria

em 2 linhas e 3 colunas ficaria ótimo

[shumi 0]

cara você faz assim no loop você coloca um contador exemplo mais ou menos assim:

While not rs.EOFtabela = tabela + 1rs.MoveNextWend

e no meio desse "loop" você pode fazer uma condição:

 

IF tabela = 3 Then</tr>End IF

Mais ou menos isso ai funfa!

 

Abraços

[DJGrello 0]

cara você faz assim no loop você coloca um contador exemplo mais ou menos assim:

While not rs.EOFtabela = tabela + 1rs.MoveNextWend

e no meio desse "loop" você pode fazer uma condição:

IF tabela = 3 Then</tr>End IF

Mais ou menos isso ai funfa!Abraços

cara não funcionouolha como eu fiz

<tr><%tabela = 1do while not rs.EOF%>  	<td><%=evento%></td><%tabela = tabela + 1if tabela = 4 then   exit do%>  </tr><%else'mover pra o proximo, só que não funcionars.MoveNextend ifloop%>  <tr>

quando coloco rs.movenext ele não funciona o loop mais, só aparece um registro em uma unica celula da tabelacaso eu tire o movenext ele funciona o loop mas repete o primeiro registro

[shumi 0]

Cara aqui tem um exemplo!

 

<table><%While not rs8.EOFtabela2 = tabela2 + 1IF tabela2 = 2 ThenEnd IF%><td width="489"><%=rs8("texto")%><%IF rs8("foto") <> "imagens/lojas/" Then%><img src="<%=rs8("foto")%>"><%End IF%><a href="http://<%=rs8("link")%>" target="_blank"><%=rs8("link")%></a></td><%IF tabela2 = 2 Then%></tr><%End IFIF tabela2 = 2 Thentabela2 = 0End IFrs8.MoveNextWend%></table>

Abraços

[DJGrello 0]

Oi já consegui resolver vou compartilhar o codigo para ajudar quem estiver com a mesma dúvida

 

<!--#include file="conexao.asp" --><!--#include file="ADOVBS.INC" --><%strSQL = "select evento, local, data, foto from eventos order by id asc"CONN_STRING = "DBQ=" & Server.MapPath("bd/dados.mdb") & ";"CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"Set objPagingConn = Server.CreateObject("ADODB.Connection")objPagingConn.Open CONN_STRING'Abrindo o RecordSetSet RS1 = Server.CreateObject("ADODB.Recordset")Set RS2 = Server.CreateObject("ADODB.Recordset")Set RS3 = Server.CreateObject("ADODB.Recordset")RS1.Open strSQL, objPagingConnRS2.Open strSQL, objPagingConnRS3.Open strSQL, objPagingConndim ii=1%><table border="1" width="43%"><tr><!--RS1--><%rs1.movefirst%><%for i = 1 to 4%>	  <td><img src="images/<%=rs1("foto")%>" /></td><%rs1.movenext%><%next%></tr><%for i = 1 to 4%>	  <td><%=rs2("evento")%></td><%rs2.movenext%><%next%>	    </tr><%for i = 1 to 4%>	  <td><%=rs3("local")%></td><%rs3.movenext%><%next%>	    </tr>  <!--RS2-->  <tr><%for i = 1 to 4%>	  <td><img src="images/<%=rs1("foto")%>" /></td><%rs1.movenext%><%next%></tr><%for i = 1 to 4%>	  <td><%=rs2("evento")%></td><%rs2.movenext%><%next%>	    </tr><%for i = 1 to 4%>	  <td><%=rs3("local")%></td><%rs3.movenext%><%next%>	    </tr>    <!--Fim RS2--><%RS1.CloseSet RS1 = NothingRS2.CloseSet RS2 = NothingRS3.CloseSet RS3 = NothingobjPagingConn.CloseSet objPagingConn = Nothing%></table></body></html>

Caso alguem tenha uma idéia pra ficar mais fácil o código é so falar

 

segue anexo a imagem pronta

caso não consiga visualizar a foto tá ae o link direto

 

Imagem pronta

 

Cara aqui tem um exemplo!

 

<table><%While not rs8.EOFtabela2 = tabela2 + 1IF tabela2 = 2 ThenEnd IF%><td width="489"><%=rs8("texto")%><%IF rs8("foto") <> "imagens/lojas/" Then%><img src="<%=rs8("foto")%>"><%End IF%><a href="http://<%=rs8("link")%>" target="_blank"><%=rs8("link")%></a></td><%IF tabela2 = 2 Then%></tr><%End IFIF tabela2 = 2 Thentabela2 = 0End IFrs8.MoveNextWend%></table>

Abraços

Cara obrigado pela ajuda, já tinha resolvido mas parece que o codigo que você postou ficou melhor, vou testar e depois vejo qual eu vou usar, mas mesmo assim muito obrigado.

[shumi 0]

beleza cara precisando estamos ai!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Abraços e Parabéns por conseguir resolver! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif