reconhecendo flash no db
Boa noite pessoal.
Sou iniciante em programação e tenho algumas dificuldades em manupular codigos.
Estou com um script para rotacionar BANNER de web site. Porém não consigo fazer com que ele rode *.swf (flash). já descobri onde é o problema, mas n sei como resolver. Será que alguém pode me ajudar?
Po postar o codigo na intégra e negritar a linha com erro.
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><%
Response.Expires = -1000
Dim oRS, oConn,sSQL
Dim rndMax,rndNumber
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("advertise.mdb"))
sSQL = "SELECT * FROM banners"
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open sSQL , oConn, 3
rndMax = CInt(oRS.RecordCount)
oRS.MoveFirst
Randomize Timer
rndNumber = Int(RND * rndMax)
oRS.Move rndNumber
response.write "<a href='" & oRS("alink") & "' target='_blank'><img border=0 src='anunciantes\" & oRS("aPicture") & "'></a>"
set oRS = nothing
set oConn = nothing
%>
*********
O bando de dados esta aceitando o *.swf normalmente. apenas n esta mostrando na tela. tá erro de imagem. como faço pra alterar isso? pode até ser somente para o flash, não me importo.
Abraços
Discussão (1)
Carregando comentários...