Banner rotativo

dá uma procurada no lab. de script, k existem exemplo, o componente AdRotator permite que toda vez que a sua página for carregada, um banner seja escolhido e exibido aleatoriamente dentro de uma lista pré-definida.

olha este exemplo

Seu arquivo principal, contendo a chamada ao objeto;
Arquivo: rotator.asp (por exemplo)

<%
If Not IsEmpty (Request.QueryString("url")) Then
response.redirect request.querystring("url")
End If

'Declara as variáveis a serem utilizadas no script
Dim AdRotator

'Instancia o objeto na memória
SET AdRotator = Server.CreateObject("MSWC.AdRotator")
AdRotator.TargetFrame = "target=_blank"

response.write adrotator.GetAdvertisement("rotator.txt")

'Remove as referências do objeto da memória
SET AdRotator = Nothing
%>

O arquivo texto, contendo as especificações dos banners a serem exibidos;
Arquivo: rotator.txt

REDIRECT rotator.asp (URL para onde será redirecionado ao clicar no banner)
WIDTH (largura da figura)
HEIGHT (altura da figura)
BORDER (espessura da borda)
*
Figura
URL
Titulo
Peso

Peso é o valor percentual com que o banner deverá ser tratado. Caso seja '60', haverá uma probabilidade em 60% de o banner ser visualizado na página.

rotator.txt

Redirect rotator.asp
Width 50
Height 52
Border 0
*
http://www.site.com.br/images/locaweb/pt_BR/premios/selo_info200_servicos_operacionais_dest.gif'>http://www.site.com.br/images/locaweb/pt_BR/premios/selo_info200_servicos_operacionais_dest.gif
http://www.site.com.br
Info 2000
50
http://www.site.com.br/images/locaweb/pt_BR/premios/selo_100Mais_ligadas2004_dest.gif
http://www.website.com.br
Info 100
50
http://site.dominio.com.br/images/locaweb/pt_BR/ico1000_mbits.gif
http://www.site.com.br
1000 Mbits/s
50

veja se retorna algum erro

Esse script é o exemplo disponível no site da locaweb, tentei n variações nele, mas ele não apresenta o banner em swf, funciona perfeitamente quando é so .gif ou .jpeg.

Se alguém souber de um que além de fazer a rotação do banner em swf permitar rotacionar os banners do adsense, ficaria grato, de qq forma irei pesquisar o laboratório de scripts.

Sem mais

Obrigado

Fábio

Continuo a pedir uma ajuda, pois ainda estou procurando na internet e nada achei que funcione..

Pois acho q a dificuldade maior é pelo fato de querer fazer o rotacionamento do banner em swf com o adsense

Aguardando uma ajuda

Fabio

Boas, eu utilizo o seguinte código para alternar entre swf e jpeg mas a informação vem da base de dados, e só alterna quando se muda de página, veja se lhe é útil:

<%
Randomize
pubaleatoria = Int((rnd*2))+1
if pubaleatoria=2 then
call publicidadeflash("1")
else
call publicidadeimg("1")
end if

'publicidade em flash
sub publicidadeflash(valor)
Randomize
W=clng(1E6*rnd)

 sql= "SELECT top 1 * FROM banners where right(banner,3)='swf' ORDER BY rnd(-(1000*ID)* " & W & ")"
 rs.open sql,conexao
 if not rs.eof then
 response.write "<script type='text/javascript'>"
 response.write "GerarSWF('/images/"&rs("banner")&"','150','695','flashimg"&rs("id")&"');"
 response.write "</script>"
 rs.close
 else
 rs.close
 if valor="1" then
 call publicidadeimg("0")
 end if
 end if
 end sub

 'publicidade em imagens
 sub publicidadeimg(valor)
 Randomize
 R=clng(1E6*rnd)
 sql= "SELECT top 5 * FROM banners where right(banner,3)<>'swf' ORDER BY rnd(-(1000*ID)* " & R & ")"
 rs.open sql,conexao
 if not rs.eof then
 %>
 <script language="JavaScript">
 $(document).ready( function() {
 //banner
 $('#s3slider').s3Slider({
 timeOut: 11000
 });
 });
 </script>
 <div id="s3slider">
 <ul id="s3sliderContent">
 <%
 while not rs.eof
 %>
 <li class="s3sliderImage">
 <%
 if trim(rs("olink"))<>"" then
 otarget=""
 if rs("odestino")=1 then
 otarget="target='_blank'"
 end if
 %>
 <a <%=otarget%> href="<%=rs("olink")%>"><img style="border:none;" src="images/<%=rs("banner")%>" /></a>
 <%else%>
 <img style="border:none;" src="images/<%=rs("banner")%>" />
 <%end if%>
 <span><%=saistring(rs("titulo"))%></span>
 </li>
 <%
 rs.movenext
 wend
 rs.close
 %>
 <div class="clear s3sliderImage"></div>
 </ul>
 </div>
 <%
 else
 rs.close
 if valor="1" then
 call publicidadeflash("0")
 end if
 end if
 end sub
 %>