Sistema de banner rotaivo utilizando arquivos .swf

[Br@ke 0]

E ae amigos tdo bem? Tipo q eu to precisando fazer um sistema de banner rotativo utilizando como banners, arquivos em flash(.swf). Como eu faço isso? Já tentei utilizando a propriedade AdRotator e arquivo .txt pra guardar o nome das imgs mas só funciona com IMAGENS.Se alguém souber...Abração!!

[kaplan 0]

bom eu desenvolvi um usado asp, sql e flash

 

você tera que criar algumas tabelas o codigo maior e este

 

<%SqlDivArray = "Select FtDivCod "_& "			  From User_Web_Foto_Div "_& "			 Where FtDivStatu = 'Ativo' "_& "			   And FtDivGrupoCod in ('" & Session("CodCompra") & "', '00') "_& "			   And FtDivInicio <= Convert(DateTime, Convert(VarChar, GetDate(), 103), 103) "_& "			   And FtDivFim >= Convert(DateTime, Convert(VarChar, GetDate(), 103), 103) "Set RsDivArray = DataConn.Execute(SqlDivArray)If Not RsDivArray.EOF Then   Dim bannerdiv(1000)   contagem_div = 0   Do While Not RsDivArray.EOF	  bannerdiv(contagem_div) = RsDivArray("FtDivCod")	  contagem_div = contagem_div + 1	  RsDivArray.movenext   Loop   'Criação de número randômico   Randomize   intRandomicNumber23 = int((contagem_div) * Rnd)	   SqlDiv = "Select FtDivProdCodEstr, FtDivCod, FtDivUrl  "_   & "		 From User_Web_Foto_Div "_   & "		Where FtDivStatu = 'Ativo' "_   & "		  And FtDivGrupoCod in ('" & Session("CodCompra") & "', '00') "_   & "		  And FtDivInicio <= Convert(DateTime, Convert(VarChar, GetDate(), 103), 103) "_   & "		  And FtDivFim >= Convert(DateTime, Convert(VarChar, GetDate(), 103), 103) "   Set RsDiv = DataConn.Execute(SqlDiv)      If Not RsDiv.EOF Then		 %>		 <div id="top" style="position:absolute; left:351px; top:236px; width:322px; height:249px; z-index:0">			<%			Foto1 = RsDiv("FtDivUrl")			Foto1 = Mid(Foto1, Len(Foto1) - 5)			Foto1 = lcase(Mid(Foto1, Instr(Foto1,".") + 1))			IF Foto1 = "swf" Then			   'Inserção do Flash			   %>			   <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="450" height="300">				  <param name="movie" value="<%=RsDiv("FtDivUrl")%>">				  <param name="quality" value="High">				  <param name="wmode" value="transparent">				  <embed src="<%=RsDiv("FtDivUrl")%>" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="450" height="300" quality="High">			   </object>			   <%			Else			   varimage = "<a href='foto.asp'><img src='" & RsDiv("FtDivUrl") &"' border='0'></a>"			   Response.Write varimage			End IF			%>		 </div>		 <%   End IfEnd If

Qualquer duvida que você tiver e so falar

lembrando ele funciona tanto com imagens/swf

beleza

[Br@ke 0]

Nussa kra..rsrs! Valeww! Mas ai, tipo, eu vou colocar esse código na minha página onde terá o sistema do banner? Ai o que mais eu terei de criar?Mesmo assim, muito obrigado!

[kaplan 0]

isto você vai colocar este codigo na sua pagina e tera que criar um tabela com os campos codigo, link do banner, e se quiser um link(url) e você pode implementar mais coisas, qq duvida estou aeee