Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal,
estou tentando fazer um sistema de banners mas acontece que a variavel so retorna valor uma unica vez, na proxima que tento usar ela já esta vazia.
A variavel é a Arq, quando faço a verificação do banner para ver se é SWF ou não, ele funciona, entra dentro do if, mas na hora de escrever o nome do arquivo ele não escreve nada.
Function Publicidade(Id,Larg,Altu,Arq,Alvo) Dim StrPublicidade If Right(Arq,3) = "swf" Then StrPublicidade = "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"" width=""" & Larg & """ height=""" & Altu & """>" & Chr(13) StrPublicidade = StrPublicidade & "<param name=""movie"" value=""imagens/banner/" & Arq & """ />" & Chr(13) StrPublicidade = StrPublicidade & "<param name=""quality"" value=""high"" />" & Chr(13) StrPublicidade = StrPublicidade & "<embed src=""imagens/banner/" & Arq & """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""" & Larg & """ h/eight=""" & Altu & """></embed>" & Chr(13) StrPublicidade = StrPublicidade & "</object>" & Chr(13) Else StrPublicidade = "<a href=""publicidadeRedirecionar.asp?Id=" & Id & """ target=""" & Alvo & """><img alt="""" src=""imagens/banner/" & Arq & """ width=""" & Larg & """ height=""" & Altu & """ border=""0""></a>" End IF Publicidade = StrPublicidadeEnd Function
vlw galera
ateh mais
Carregando comentários...