Bem pessoal... atualmente estou trabalhando em um album de fotos que vai carregar dinamicamente fotos de dentro de uma pasta de arquivos.
Eis o problema:
O álbum está carregando os arquivos, mais eu creio que o laço está fazendo um Loop a mais, isso está gerando mais um arquivo sem dados o que ocasiona o erro. O Loop carrega as imagens em uma página dinâmica ordenados por uma tabela vertical. Mais quando chega no último registro, ao invés de mostrar a imagem, mostra uma célula de uma tabela, com os tamanhos normais, mas com o erro da imagem; o que me leva a crer que o loop nesse último quadro está acontecendo uma vez a mais, e não está encontrando mais fotos dentro da pasta, então ele para e logo abaixo da última foto aparece uma célula com um erro de imagem quebrada.
Gostaria de saber se alguém poderia me ajudar nesse Loop... Vou disponibilizar o código da página para vocês terem uma idéia do que estou falando. Até mais e abraços a todos.
<body>
<form name="tumb">
<%
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" )
Set Pasta = FSO.GetFolder ( Server.Mappath("imagens\") )
Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
Rs.Fields.Append "nome", 200, 255
Rs.Open
For Each Arquivo In Pasta.Files
Rs.AddNew
Rs.Fields("nome").Value = Arquivo.Name
Next
Rs.MoveFirst
While Not Rs.EoF
Response.Write "<table width=""96"" height=""71"" border=""0"" align=""center""><td width=""96""><a href=""imagens/" & rs.fields("nome").value & """ target=""fotos""><img src=""imagens/" & rs.fields("nome").value & """ width=""96"" height=""71""></a></td>"
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Set Pasta = Nothing
Set FSO = Nothing
%>
</form>
</body>
Pergunta
Holyspear
Bem pessoal... atualmente estou trabalhando em um album de fotos que vai carregar dinamicamente fotos de dentro de uma pasta de arquivos.
Eis o problema:
O álbum está carregando os arquivos, mais eu creio que o laço está fazendo um Loop a mais, isso está gerando mais um arquivo sem dados o que ocasiona o erro. O Loop carrega as imagens em uma página dinâmica ordenados por uma tabela vertical. Mais quando chega no último registro, ao invés de mostrar a imagem, mostra uma célula de uma tabela, com os tamanhos normais, mas com o erro da imagem; o que me leva a crer que o loop nesse último quadro está acontecendo uma vez a mais, e não está encontrando mais fotos dentro da pasta, então ele para e logo abaixo da última foto aparece uma célula com um erro de imagem quebrada.
Gostaria de saber se alguém poderia me ajudar nesse Loop... Vou disponibilizar o código da página para vocês terem uma idéia do que estou falando. Até mais e abraços a todos.
<body> <form name="tumb"> <% Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" ) Set Pasta = FSO.GetFolder ( Server.Mappath("imagens\") ) Set Rs = Server.CreateObject ( "ADODB.RecordSet" ) Rs.Fields.Append "nome", 200, 255 Rs.Open For Each Arquivo In Pasta.Files Rs.AddNew Rs.Fields("nome").Value = Arquivo.Name Next Rs.MoveFirst While Not Rs.EoF Response.Write "<table width=""96"" height=""71"" border=""0"" align=""center""><td width=""96""><a href=""imagens/" & rs.fields("nome").value & """ target=""fotos""><img src=""imagens/" & rs.fields("nome").value & """ width=""96"" height=""71""></a></td>" Rs.MoveNext Wend Rs.Close Set Rs = Nothing Set Pasta = Nothing Set FSO = Nothing %> </form> </body>Link para o comentário
Compartilhar em outros sites
5 respostass 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.