Galeria de imagens

[Ednardo Leão 0]

Tentei fazer uma pagina de puxasse do banco de dados 12 imagens e toda vez que desse um reflesh na pagina as figura ficasse alternando. mas não consegui . Estou aqui para saber quem consegue fazer pois eu pago.Obs:quero uma pagina que puxe 12 imagens de um banco access e fique alternando.atenciosamente,Ednardo Leão

[rsegovia 0]

entra ae http://www.barneiz.com.br/novosite

na paste da "sua loja" sao quase 200 produtos / fotos alternando enter si, se quizer me adiciona no msn que eu faço pra você

rogeriosegovia@hotmail.com

 

Abraços

[Mário Monteiro 179]

tiozinho

 

isso eu tinha feito com FSO mas todas imagens eram gif

 

pra pegar os caminhos do DB ia ser parecido mas devia mudar a forma de concatenar mas seria parecido

 

<%Set Fso = Server.CreateObject ("Scripting.FileSystemObject")Set arquivo = Fso.GetFolder(Server.MapPath("../imagens/smiles/"))Set arquivos = arquivo.filesI = 0IndicesRestantes=""For Each Item in arquivosRedim Preserve Smiles(I)Smiles(I) = LEFT(Item.name,INSTR(Item.name,".gif")-1)J = IWHILE LEN(J) < 2J = "0" & JWENDIndicesRestantes = IndicesRestantes & J & ","I = I + 1NextIndicesRestantes = LEFT(IndicesRestantes,LEN(IndicesRestantes)-1)WHILE LEN(IndicesRestantes) > 0Indices = SPLIT(IndicesRestantes,",")randomizeIndice = CINT(RND()*UBOUND(Indices))Response.Write "<div id='mensagemnovasmile'><a href=""javascript:smile(':" & Smiles(CINT(Indices(Indice))) & ":')""><img src=""../imagens/smiles/" & Smiles(CINT(Indices(Indice))) & ".gif"" alt='smilie' border='0' /></a></div>"IndicesRestantes = REPLACE(IndicesRestantes, Indices(Indice) ,"")IndicesRestantes = REPLACE(IndicesRestantes, ",," ,",")IF LEFT(IndicesRestantes,1) = "," THEN   IndicesRestantes = RIGHT(IndicesRestantes,LEN(IndicesRestantes)-1)END IFIF RIGHT(IndicesRestantes,1) = "," THEN   IndicesRestantes = LEFT(IndicesRestantes,LEN(IndicesRestantes)-1)END IFWENDSet arquivos = nothingSet arquivo = nothingSet Fso = nothing %>