Mostrar imagens

[natalia 0]

Oi pessoal, preciso mostrar até 5 imagens de um mesmo produto (43_1.gif ... 43_5.gif), se eu fizer assim eu consigo:P = 1For P = 1 To 5 <img src="<%=rsImgProd("Imagem_Prod")&rsImgProd("Codigo_Prod")&"_"&P&".gif"%>" border="0" width="50" height="40">NextSó que preciso mostrar uma imagem ao lado da outra, então eu fiz assim e não funciona, só aparece a primeira. Consegui fazer as 2 coisas separadas, qdo juntei as 2 como está no exemplo abaixo não deu certo. While Not rsImgProd.EOF Response.Write "<tr>" P = 1 For P = 1 To 5 If rsImgProd.EOF = True Then Exit For Response.Write "<td>" Response.Write "<table align='center' border='0' width='100%' cellpadding='1' cellspacing='0'>" Response.Write "<tr>" %> <tr> <td> <img src="<%=rsImgProd("Imagem_Prod")&rsImgProd("Codigo_Prod")&"_"&P&".gif"%>" border="0" width="50" height="40"></td> </tr> <% Response.Write "</tr>" Response.Write "</table>" Response.Write "</td>" Response.Write "</tr>" rsImgProd.MoveNext Next Wend

[Tiago Colombo 0]

Oi Natália,

abaixo segue o código:

 

'**************************************

'Função que gera tabela com a quantidade especifica de colunas.

'**************************************

function buildTable(Rs, colunas)

With (Response)

if not Rs.EOF then

.write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf)

.write(" <tr>" & vbCrlf)

 

counter = 0

While not Rs.EOF

if counter = colunas then

.write(" </tr>" & vbCrlf)

.write(" <tr>" & vbCrlf)

counter = 0

else

counter = counter + 1

.write(" <td title='" & info_cine & "'><input type='checkbox' name='chk' value='" & Rs("cod") & "'" & tipo & ">" & Rs("txtNome") & "</td>" & vbcrlf)

end if

Rs.MoveNext

Wend

 

.write(" </tr>" & vbCrlf)

.write("</table>")

else

.write("Não há registros.")

end if

end with

end function

'************************************

 

 

'************************************

'Chamada da função

'************************************

call buildTable(Rs, colunas)

 

'onde o primeiro parâmetro é o seu RecordSet, e o segundo é o número de colunas que você quer.

'************************************

 

Espero ter ajudado...

 

Caso precise de mais um help sobre este código me mande um e-mail que te explico melhor..

 

Até mais...

 

[]´s

[natalia 0]

Tá Tiago, obrigada.