Ir para conteúdo
Fórum Script Brasil
  • 0

Fotos Um Do Lado Do Outro Em Um álbum...


marcus Gemeos

Pergunta

Olá pessoal,

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!

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...