Exibir Fotos

[neotheone]

Fala pessoal estou correndo contra o tempo pra deixar o sistema de banco de imagens pronto. Mas estou com um problema, na hora de exibir as fotos em 1 pagina, está acontecendo o seguinte: estou listando 3 fotos por linha, eu tenho 7 fotos cadastradas, sendo que a sétima foto (ou seja , a ultima) nunca aparece, a última foto nunca aaparece, não sei porque

modelo abaixo:

---------------------------------

foto 01 | foto 02 | foto 03

foto 04 | foto 05 | foto 06

aqui tinha

que ter

foto

mas fica

vazio

------------------------------------

código abaixo:

----------------

<table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">

<!--DWLayoutTable-->

<%

Do While Not rstSearch.EOF

%>

<tr>

<%

for coluna = 1 to limite_coluna

if rstSearch.EOF then

response.write "<td> </td>"

else

%>

<td><img src="<%=rstSearch("imagem")%>" alt="Imagem n&atilde;o dispon&iacute;vel"></td>

<%

end if

if not rstSearch.EOF then rstSearch.MoveNext

next

%>

</tr>

<%

if not rstSearch.EOF then rstSearch.MoveNext

Loop

%>

</table>

[fercosmig]

Cara, não testei este codigo ae,

mas é assim +- que eu costumo fazer e funciona na boa!

exibe as celulas vázias ao lado da ultima foto!

[neotheone]

Olá será que você poderia me explicar com mais detalhes? não estou sabendo usar o seu codigo, obrigado

[Guest - Mateus -]

Cara...eu tive alguns problemas também para fazer algo como você quer...o meu é um sistema de recados...eu consegui fazendo da seguinte maneira:

<%
Response.Write "<div align=""center""><table border=0 cellpadding=0 cellspacing=0 width=""750"">"

'aqui faço uma comparação da qtd de recados - quero 9 recados'
Do while not rsCommon.EOF and contar < 9

Response.Write "<tr>"
contar = 0

'Aqui realizo uma nova comparação para postar os recados - os mesmos 9
Aqui, reconheco q não entendo porque colocar 2 vezes o "do while", mas ele funcionou só assim no meu caso'

do while contar < 9 and NOT rsCommon.EOF
strName = rsCommon("Name")
strPara = rsCommon("Para")
strComments = rsCommon("Comments")
Response.Write "<td width=""243"" height=""160"" valign=""top"" background=""mural1.jpg""><br><br><p style=""margin-left: 42""><font face=""Verdana"" size=""1"" color=""#CC0000""><b>De: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strName&"</font><br>"
Response.Write "<font face=""Verdana"" size=""1"" color=""#CC0000""><b>Para: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strPara&"</font><br>"
Response.Write "<font face=""Verdana"" size=""1"" color=""#CC0000""><b>Comentário: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strComments&"</font></td>"
rsCommon.Movenext
contar = contar + 1

'coloquei um if para conparar. quando for = a 3 ou = a 6 ele muda de linha, até ir a 9
If contar=3 or contar=6 then
Response.write "</tr>"
End If

Loop
loop

Response.Write "</tr></table></div>"
Response.Write"</body>"
Response.Write"</html>"
End If
%>