[Resolvido] AdRotator com .SWF

[Rodrigo Patricio 3]

Uma vez precisei usar o AdRotator com ASP e nele utilizar banners .SWF, coisa suportada no ASP.NET. Então, segue abaixo uma gambiarra que fiz para funcionar no ASP também.

<%
function geraBanner()
set adrotator=Server.CreateObject("MSWC.AdRotator")
adrotator.TargetFrame = "target=_blank"
banner1 = adrotator.GetAdvertisement("rotator.txt")
banner = right(banner1, 62)
banner = left(banner, 3)

swf = banner1
outro = banner1

if banner = "swf" then

swf = replace(swf, "<A HREF=""", "")
swf = replace(swf, "TARGET=""target=_blank""", "")
swf = replace(swf, "<", "")
swf = replace(swf, ">", "")
swf = replace(swf, "IMG SRC=""", "")
swf = replace(swf, "adrotator.asp?url=http://", "")
swf = replace(swf, "ALT=""BANNER"" WIDTH=728 HEIGHT=90 BORDER=0", "")
swf = replace(swf, "/A", "")
swf = replace(swf, """", "")
swf = replace(swf, " ", ",")

i = Split(swf,",")

response.write "<object width=""728"" height=""90"">"
response.write "<param name=""movie"" value="&i(1)&"></param>"
response.write "<param name=""wmode"" value=""transparent""></param>"
response.write "<embed src="&i(1)&" wmode=""transparent"" width=""728"" height=""90""></embed>"
response.write "</object>"

Else

response.write outro

end if

set adrotator = nothing

End function

%>

Para chamar

 

<% Response.write geraBanner() %>

E o arquivo .TXT

Redirect adrotator.asp

Width 728

Height 90

Border 0

*

http://www.locaweb.com.br/images/locaweb/p...ionais_dest.gif

http://www.locaweb.com.br

BANNER

60

http://site.locaweb.com.br/images/locaweb/...o1000_mbits.gif

http://www.locamail.com.br

BANNER

50

No caso ai eu aproveitei o script fornecido pela Locaweb e fiz umas adptações. Lambrando que to começando no ASP e gambiarra de quem tá começando pode ser um pouco cabulosa ^_^

 

Mas uma dúvida que eu tenho. Essa função que eu fiz num vai "pesar" um pouco para o servidor não?

 

Flw galera!