Listar produtos lado a lado, já tenho o código

[natalia 0]

Oi pessoal, estou com um probleminha. O código abaixo funciona, só que os produtos são listados um abaixo do outro. Eu quero que fique um ao lado do outro. Tenho o código p/ fazer isso, só que não consegui encaixar no meu código. Alguém me ajuda?Aqui está trechos do meu código:CheckProd = Request.Form("lista")strComp1 = " SELECT Categoria.Codigo_Cat, ... ... WHERE Produto.Codigo_Prod IN (" & CheckProd & ") "Call Open_cnSet rsComp1 = Conexao.Execute(strComp1)Ultimo_prod = rsComp1("Codigo_Prod")<% Do While Not rsComp1.EOF %><td><img src="<%= rsComp1("Logo")%>"></td><td><img src="<%= rsComp1("Imagem_Prod")&rsComp1("Codigo_Prod")&"_m.jpg"%>" border="0" width="100" height="80"></td><td><%= rsComp1("Nome_Prod")%></td>... <% strComp2 = " SELECT Prod_Caract.*, Caracteristica.* FROM Prod_Caract INNER JOIN Caracteristica "strComp2 = strComp2 & " ON Prod_Caract.Codigo_Caract = Caracteristica.Codigo_Caract "strComp2 = strComp2 & " WHERE Prod_Caract.Codigo_Prod = " & Ultimo_prodSet rsComp2 = Conexao.Execute(strComp2) Do While Not rsComp2.EOF%><td><%= rsComp2("Conteudo")%></td><%rsComp2.MoveNextLooprsComp2.ClosersComp1.MovenextLooprsComp1.Close%> ...<%Call Close_cnSet rsComp1 = NothingSet rsComp2 = Nothing%>Aqui está um exemplo para listar um produto ao lado do outro:Response.Write "<tr>"For P = 1 To 5 'aqui define qtos produtos mostrar por linhaIf rs.EOF = True Then Exit ForResponse.Write "<td>"Response.Write "<table align='center' border='0' width='100%' cellpadding='1' cellspacing='0'>"Response.Write "<tr>"Response.Write "</tr>"Response.Write "</table>"Response.Write "</td>"rs.MoveNextNextResponse.Write "</tr>"Wend

[gastao 0]

<table border=1 width=50%> <tr> <% Dim contador contador = 1 maxcol = 2 'Determina o numero de colunas da tabela 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 = 2 end if rs.movenext loop 'completa as colunas do while contador <= maxcol %> <td>   </td> <% contador = contador + 1 loop %> </tr> </table>