rotação de imagens

[Reginaldo 0]

ae galera aki vou eu encher o saco do fórum denovo... rs

 

creio q todo mundo ja viu akeles sites q a cada visita nos mostra uma foto diferente na entrada... ou cada vez q se atualkiza a pagina ela carrega uma imagem diferente.. tipo como se faz como benners...

 

eu queria saber como se faz isso...

 

tenho 15 fotos pra dexar rodando na pagina principal...

 

alguem ai sabe essa? valew http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

agradeço novamente..

 

 

abraços

[rOcKLoCo 0]

se for as imagens sem estar no banco de dados você pode fazer assim

 

<%Dim arrImg(14), nRandarrImg(0) = "imagem1.jpg"arrImg(1) = "imagem2.jpg"arrImg(2) = "imagem3.jpg"arrImg(3) = "imagem4.jpg"'....e assim por diante...'agora iremos randomizarRandomize()nRand = Int(Rnd*UBound(arrImg))+1response.write "<img src='"&arrImg(nRand)&"' border='0'>"%>

 

mas se for em banco de dados você pode fazer assim

 

<%iRand = 0set rsRand = Server.CreateObject("ADODB.Recordset")rsRand.Open "SELECT CODIGO, IMAGEM FROM IMAGENS", cn	if NOT rsRand.EOF then  while NOT rsRand.EOF 	 iRand = iRand + 1 	 rsRand.MoveNext  Wend  rsRand.MoveFirst  arrRand = rsRand.GetRows()  Randomize 	 iID = Int(iRand*Rnd)  strSaida = "<img src='"&arrRand(1,iID)&"' border='0'>"	else  strSaida = "<img src='imagem_padrao.jpg' border='0'>"	end ifrsRand.Closeset rsRand = nothingresponse.write strSaida%>

 

falows