Sistema De Banner

[PhoEniXFirE]

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

<%
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) %>

Puxe essa página por include:

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

O q esta acontecendo de errado é: 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 é 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, quando eu atualizo a página logo em seguida ela aparece normalmente, ai quando atualizo novamente este erro é apresentado. Fica intermitente, hora funciona, hora n.

Parece um conflito nos comandos, ou coisa do tipo, mas mesmo q conflito é 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!!

[PhoEniXFirE]

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?

[dark0]

Poxa, olha o tamanho do codigo.. olha a tripa que é a conexao..

porque você não organiza isso tudo aí?

faz algo assim:

<%

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

Sql="SELECT * FROM banner"

Set RS = Conexao.Execute(Sql)

Do While 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)

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

Set rsMostra = Conexao.Execute(Sqlmostra) %>

<%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) %>

teste aí..

veja o caminho do banco de dados antes..