Sistema de banner

[PhoEniXFirE 0]

Estou utilizando vários sistemas de banners rotativos, o code abaixo eh o script pra exibir os banners.

 

ASP [/tr][tr]<%

Set Conexao = CreateObject("ADODB.CONNECTION")

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/banner/publicidade/banner")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub

 

AbreConexao

Sql="SELECT * FROM banner"

Set RS = Conexao.Execute(Sql)

 

Do Until RS.EOF or RS.BOF

Valores = Valores & RS("ID") & ","

RS.Movenext

Loop

ArraySplit = Split(Left(Valores,Len(Valores)-1),",")

Randomize

x = CInt(Rnd()*Ubound(ArraySplit))

sID = ArraySplit(x)

 

Sql="SELECT * FROM banner WHERE id = "&sID&""

Set rsMostra = Conexao.Execute(Sql) %>

<%if rsMostra("flash")="1" then %>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="140" height="70" menu="false">

                   <param name="movie" value="<%=rsMostra("banner")%>">

                   <param name="quality" value="high">

                   <param name="menu" value="false">

                   </object>

<%else%>

<font face="Verdana" size="1"><img alt="<%=rsMostra("alt")%>" src="<%=rsMostra("banner")%>" border="0"></font><%end if%><% Sql1 = "UPDATE banner SET exibicoes = exibicoes + 1 WHERE id = "&rsMostra("id")&" "

Conexao.Execute(Sql1) %>

[/tr]

 

Puxe essa página por include:

<!--#include virtual="banner/publicidade/default.asp" -->

 

O q esta acontecendo de errado eh: Além do banner PUBLICIDADE, temos os banners EVENTOS, BANDAS e PARCERIA, onde utilizo o mesmo script para exibir aleatoriamente os arquivos .SWF, q a DEFAULT.ASP puxa estes outros também por include. E esse erro eh apresentado:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

--------------------------------------------------------------------------------

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

(0x80020009)

Exceção.

/banner/eventos/default.asp, line 34

 

Mas este n aparece todas as horas, qndo eu atualizo a página logo em seguida ela aparece normalmente, ai qndo atualizo novamente este erro eh apresentado. Fica intermitente, hora funciona, hora n.

 

Parece um conflito nos comandos, ou coisa do tipo, mas mesmo q conflito eh esse onde hora funciona, outra n?

 

Na linha 34, temos <%if rsMostra("flash")="1" then %>, onde eu mudei o rsMostra pra rsMostraEVENTOS para os default.asp do /BANNER/EVENTOS/, tentando impedir, mas n modificou em nada, a exibição ficou como antes, abrindo ou n.

 

Alguém sabe o q pode esta acontecendo neste caso?

 

Desde já agradeço!!

[Alex Hernandes 0]

Olá Amigo,Tente da seguinte forma:If Int(rsMostra("flash")) = 1 thenFaça isso caso o campo seja número, em seu banco de dados!

[PhoEniXFirE 0]

Olá Amigo,Tente da seguinte forma:If Int(rsMostra("flash")) = 1 thenFaça isso caso o campo seja número, em seu banco de dados!

Continuou da mesma forma, ora funciona, ora n. :o

[PhoEniXFirE 0]

Olá Amigo,Tente da seguinte forma:If Int(rsMostra("flash")) = 1 thenFaça isso caso o campo seja número, em seu banco de dados!

Continuou da mesma forma, ora funciona, ora n. :o

E galerinha do Fórum, ninguém sabe como posso fazer resolver este problema incomum ou outra forma pra visualizar os banner sem este erro? :mellow: