(Resolvido) Banner

[Vagner Nunes]

Prezados,

Criei aqui um site, com uns banner randomicos, porém só aceita imagens (jpg, gif ou png), gostaria que esses banners aceitasse também extensões flash (swf), porém quando for flash aparecer o filme em flash, e no mesmo local, se for imagem, aparecer o banner em imagem.

Se alguém poder me ajudar, seria muito grato.

Sds,

Vagner Nunes

[Bicicleta]

Faça um IF no campo e verifique a extensão, se for .swf, insira o flash, se não insira a imagem, exemplo:

<%

Set rs = Conexao.Execute("SELECT url_banner FROM banners WHERE id = 1")

str_UrlBanner = LCase(rs("url_banner"))

If Right(str_UrlBanner, 4) = ".swf") Then
    ' Imprime aqui a tag HTML para inserir um FLASH
Else
    ' Imprime aqui a tag HTML para inserir uma IMAGEM
End If

rs.Close
Set rs = Nothing

%>

[Vagner Nunes]

Ok, vou tentar aqui.

Valeu...