(Resolvido) Exibir Em 3 Colunas E 2 Linhas

[Guest alves51]

Olá

Já vo avisando sou leigo em ASP só mexo com PHP mas da até pra encarar, então vo pedi uma ajuda, possuo o código abaixo e queria que fosse exibido assim

3 colunas e 2 linhas, exemplo

Reg1 Reg2 Reg3

Reg4 Reg5 Reg6

Ta ae o código

<%
vlConsulta = "SELECT distinct top 10 a.*,c.Cidade,c.UF,d.Nome as Casa FROM FESTAS_COBERTAS a,FOTOS b, " & _
   "CIDADES C,CASAS D WHERE d.Id_Cidade = c.Id_Cidade and a.Id_Casa = d.Id_Casa AND " & _
   " b.Id_Festa = a.Id_Festa AND A.lIBERADO_sn='S'  ORDER BY A.data desc"
set vlRegistro = vgbanco.Execute(vlconsulta)



while not vlRegistro.eof
%>
<TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
 <TBODY> 
 <%  %>
 <TR> 
   <TD width="169" height=45 align=middle vAlign=center> 
     <TABLE cellSpacing=0 cellPadding=0 width="105%" border=0>
       <TBODY> 
       <TR> 
         <TD width=52 height="12" align=middle vAlign=center> 
           <%
    vlconsulta = "SELECT COUNT(id_Foto) as qtdFoto from fotos where id_festa = " & vlregistro("Id_Festa")
    set vlRegCont = vgbanco.execute(vlconsulta)
    %>
           <div align="center"><A 
                 href="#"><IMG 
                 onclick="MM_openBrWindow('Album_fotos.asp?qtd=<%=vlRegCont("qtdFoto")%>&IdFesta=<%=vlregistro("Id_Festa")%>&amp;nome=<%=vlregistro("Nome")%>','','width=630,height=450')" 
                 height=90 src="fotos/Fotos_Festas/Festas/<%=vlregistro("caminho_Img")%>" width=170 
                 border=0></A></div>
         </TD>
       </TR>
       <TR> 
         <TD width=52 height="12" align=middle vAlign=center> 
           <div align="right"> 
             <table width="94%" border="0" align="left" cellpadding="0" cellspacing="0">
               <tr> 
                 <td> 
                   <div align="center"><strong><font face="Tahoma, Verdana, Arial, Helvetica, sans-serif" color="#000000" size="1">Data: 
                     </font></strong></div>
                 </td>
                 <td><strong><font 
                 face="Tahoma, Verdana, Arial, Helvetica, sans-serif" 
                 color=#003366 
           size=1><%=vlregistro("Data")%></font></strong></td>
               </tr>
             </table>
             <strong><strong></strong></strong></div>
         </TD>
       </TR>
       </TBODY> 
     </TABLE>
   </TD>
 </TR>
 </TBODY> 
</TABLE>
<%
vlRegistro.moveNext
wend
%>

Ele está sendo exibi um embaixo do outro Se possivel poste o código

[ViniciusJau]

vê se isso te ajuda:

<table>

  <tr>

    <td><%=rs(reg1)%></td>

    <td><%=rs(reg2)%></td>

    <td><%=rs(reg3)%></td>

  </tr>

  <tr>

    <td><%=rs(reg4)%></td>

    <td><%=rs(reg5)%></td>

    <td><%=rs(reg6)%></td> 

</tr>

</table>

se num conseguir, posta ai

[BrunO WatanabE]

Cara usa o for e o next

tipo esse aki.

<table>

<%

While Not rs.EOF%>

<tr><%

For i = 1 To 4 ' o 4 e a quantidade de colunas

%>

<td>

<%If Not rs.EOF Then%>

<%=rs("campo")%>

<% rs.MoveNext

End If%>

</td>

<%Next%>

</tr>

<%Wend

%></table>

mas a quantidade de linhas vai depender da quantidade de registros q você tem em seu banco de dados

espero te ajudado

[leocostamg]

Obrigado BrunO WatanabE, sua dica foi de grande valia, resolveu meu problema ! Tks...

Editado Março 27, 2015 por leocostamg