Eu possuo o seguinte código para exibição de fotos em uma pasta:
<%
Dim Fso,arq,pasta
Set Fso = CreateObject("scripting.filesystemobject")
Set pasta = Fso.getfolder(server.mapPath("fotos/"))
For each arq in pasta.Files
if (contador mod 8) = 0 then
response.write "</tr>"
response.write "<tr>"
end if
%>
<%
'/////COMECA AS FOTOS
Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""100%"">"
nomeArquivo = arq.name
imagem="fotos/"& nomeArquivo
Response.Write "<a name= """&contador&""" target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a>"
Response.Write "</table></div>"
contador = contador + 1
if contador = 5 then
exit for
end if
next
%>
Mas gostaria que as fotos ficassem um do lado do outro e não um em baixo do outro, mas quando chegasse em uma quantidade de fotos horizontal, descia mais uma linha e realizasse o mesmo processo da linha anterior!
Pergunta
marcus Gemeos
Olá pessoal,
Eu possuo o seguinte código para exibição de fotos em uma pasta:
Mas gostaria que as fotos ficassem um do lado do outro e não um em baixo do outro, mas quando chegasse em uma quantidade de fotos horizontal, descia mais uma linha e realizasse o mesmo processo da linha anterior!
Precisso!!
Obrigado!!
Marcus
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.