Banner Rotator

X.bArArA.X · Agosto 29, 2003

Tipo, tenho esse código aqui:

<%

' Set some general variables
BackgroundColor = "ffffff" ' background color of the page (hex value)
sDataSource = "c:\_servidor\new\bannerright\banners.mdb" ' Local Path to Database


' Open Database Access Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & sDataSource

mySQL="SELECT * FROM banners"

set rs=Server.CreateObject("adodb.recordset")
rs.open mySQL, Con, 3

BannersRecordCount=rs.recordcount

randomize()

dim RandomNumber
dim upperbound
dim lowerbound

upperbound = BannersRecordCount
lowerbound = 1

' Get a random record number between 1 and number of banners available
RandomNumber = int ((upperbound - lowerbound + 1)  * rnd + lowerbound)

set rs=Server.CreateObject("adodb.recordset")

    ' Open Static RecordSet
    ' Equivalent values of adOpenKeyset, adLockPessimistic, adCmdTable
    ' from the adovbs.inc file which I haven't included here
    
    rs.open "banners", Con, 1, 2, &H0002
    
    ' Move to the first record ready to cycle through them
    rs.movefirst

' Cycle through the banners until we've got the n'th one
' We can't do this with a SELECT statement as the record
' with an ID matching the RandomNumber may have been delete.
dim intLoop

For intLoop = 1 To RandomNumber - 1
 rs.movenext
next



response.write "<HTML>"

response.write "<HEAD>"

response.write "</HEAD>"
response.write "<BODY bgcolor='#" & BackgroundColor & "' topmargin='0' leftmargin='0'>" 
response.write "<p style='vertical-align: text-top; border: 0px; margin-top: 0px; padding-top: 0px; padding-bottom: 0px'"
response.write "align='center'><a href='" & rs.fields("BannerURL") & "' target='main'>"
response.write "<img border='0' src='" & rs.fields("BannerImage") & "'"
response.write " width='" & rs.fields("BannerWidth") & "' height='" & rs.fields("BannerHeight") & "'></a></p>"
response.write "</BODY>"
response.write "</HTML>"

' Increment the display count for this banner
dim current
current = rs.Fields("BannerDisplayCount")+ 1
rs.Fields("BannerDisplayCount")= current
rs.update

' Check to see if the banner has expired - if it has delete its record
if rs.fields("BannerExpiryDate") < date() then
    ' Delete the record - the 1 is the equivalent value of adAffectCurrent
    ' from the adovbs.inc file which I haven't included here
    rs.Delete 1
end if

' Finished with the recordset now - so close it
con.close
set con=nothing
%>

Está funcionando perfeitamente quando tem apenas este código. Porém, são vários banners na mesma page. Então coloquei várias vezes no mesmo código. Aí surgi o problema, esta mensagem:

Erro de compilação do Microsoft VBScript error '800a0411' 

Redefinição do nome 

/new/bannerright/banners.asp, line 22 

dim RandomNumber
----^

Por favor, ajudem! Está complicado achar um sistema de banner bom, já que não sei fazer! :(

resopi · Agosto 29, 2003

Cara N SB tem o Sistema Troca banner q é muito bom pra nos Webmaters!! Aproveite q é gratis e se cadastre!!! e faça bom proveito do Sistema de Troca de Banner!!!

falou!

:D

X.bArArA.X · Agosto 29, 2003

Tipo, é site da empresa e já tem os anúncios pagos. então não tem como fazer isso! O site é do patraum, não meu!

Vlewz...!

resopi · Agosto 29, 2003

iche ai é problema!!! o site ser do chefe!! mas tipo eu tava olhando por volta da linah 22 ten a seguinet instração "randomize()" eu axo q você deveria passar o parametro q você quer ramdomizar!!! pode ser isso mas essa msg de erro não parec ser isso mas tente por essa linha em comentario e execultar!!!!!

falou! :D

X.bArArA.X · Agosto 29, 2003

Ichi... Eu não entendo ASP, Resopi... Explique melhor, please...! :(

resopi · Agosto 29, 2003

Irei te auxiliar Via ICQ!! já te adicionei em minha lista!!! falou!!

:D

caicai · Agosto 29, 2003

cara beleza

Olha o erro é porque você está definindo a mesma variavel duas vezes,

para que o erro não aconteça é só você copiar o código menos os

dim...

Espero que entenda

T+

resopi · Agosto 29, 2003

Cara mas no script q ele postou akelas variaveis não foram declaradas 2x pelo menos não achei a segunda vez!! mas en todo caso, X.bArArA.X coloque uam aspa simples ' antes dessas treis linhas:

dim RandomNumber
dim upperbound
dim lowerbound

ou seja deixe elas assim:

'dim RandomNumber
'dim upperbound
'dim lowerbound

ve se é isso =)

:D

X.bArArA.X · Setembro 1, 2003

Aezzzzzzzzzzzzzzzzz resopi... Deu certinho! Vlewz...! Porém tive que adicionar aspas simples em outros dim que encontrei no código. Vlewz, caicai.

Agora estou com outra dúvida que tá me ferrando.

Tipo, nesse meu código, ele pede para indicar o caminho completo. Quando coloco no server, dá pau. Tipo, o diretório principal do site é "../". Dae já vem os arquivos, inclusive a index.asp. Tentei indicar através do http, mas não adiantou. Tentei tudo possível! E agora o que faço?

<%

' Set some general variables

BackgroundColor = "ffffff" ' background color of the page (hex value)

sDataSource = "c:\_servidor\new\bannerright\banners.mdb" ' Local Path to Database

' Open Database Access Connection

Set Con = Server.CreateObject( "ADODB.Connection" )

Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & sDataSource

mySQL="SELECT * FROM banners"

set rs=Server.CreateObject("adodb.recordset")

rs.open mySQL, Con, 3

BannersRecordCount=rs.recordcount

randomize()

dim RandomNumber

dim upperbound

dim lowerbound

upperbound = BannersRecordCount

lowerbound = 1

' Get a random record number between 1 and number of banners available

RandomNumber = int ((upperbound - lowerbound + 1) * rnd + lowerbound)

set rs=Server.CreateObject("adodb.recordset")

' Open Static RecordSet

' Equivalent values of adOpenKeyset, adLockPessimistic, adCmdTable

' from the adovbs.inc file which I haven't included here

rs.open "banners", Con, 1, 2, &H0002

' Move to the first record ready to cycle through them

rs.movefirst

' Cycle through the banners until we've got the n'th one

' We can't do this with a SELECT statement as the record

' with an ID matching the RandomNumber may have been delete.

dim intLoop

For intLoop = 1 To RandomNumber - 1

rs.movenext

response.write "<HEAD>"

response.write "</HEAD>"

response.write "<BODY bgcolor='#" & BackgroundColor & "' topmargin='0' leftmargin='0'>"

response.write "<p style='vertical-align: text-top; border: 0px; margin-top: 0px; padding-top: 0px; padding-bottom: 0px'"

response.write "align='center'><a href='" & rs.fields("BannerURL") & "' target='main'>"

response.write "<img border='0' src='" & rs.fields("BannerImage") & "'"

response.write " width='" & rs.fields("BannerWidth") & "' height='" & rs.fields("BannerHeight") & "'></a></p>"

response.write "</BODY>"

response.write "</HTML>"

' Increment the display count for this banner

dim current

current = rs.Fields("BannerDisplayCount")+ 1

rs.Fields("BannerDisplayCount")= current

rs.update

' Check to see if the banner has expired - if it has delete its record

if rs.fields("BannerExpiryDate") < date() then

' Delete the record - the 1 is the equivalent value of adAffectCurrent

' from the adovbs.inc file which I haven't included here

rs.Delete 1

end if

' Finished with the recordset now - so close it

con.close

set con=nothing

%>

resopi · Setembro 1, 2003

Olha cara Se a pagina estiver no mesmo diretorio que esta a pagina você pode colocar apenas:

sDataSource = "banners.mdb"

falou!

X.bArArA.X · Setembro 1, 2003

Tipo, isso eu sei! O negohcio é q o ASP tah exigindo a linha de comando completa. Esse é o problema. Olha só o erro:

Microsoft JET Database Engine error '80004005'
Could not find file 'C:\WINNT\system32\banners.mdb'.
/teste/bannertop/banners.asp, line 11

X.bArArA.X · Setembro 2, 2003

Serah q alguehm pod me ajudah? B)

resopi · Setembro 4, 2003

:D olá desculpa a demora mas tente:

sDataSource = Request.ServerVariables("PATH_TRANSLATED") & "/banners.mdb"

:D falou

X.bArArA.X · Setembro 4, 2003

Vlewz, resopi, mas não resolveu. Olha só os erros:

sDataSource = Request.ServerVariables("PATH_TRANSLATED") & "/bannertop/banners.mdb"

Microsoft JET Database Engine error '80004005'
'D:\inetpub\wwwrootbonesecia\teste\index.asp\bannertop\banners.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/teste/bannertop/banners.asp, line 11

sDataSource = Request.ServerVariables("PATH_TRANSLATED") & "'D:\inetpub\wwwrootbonesecia\teste\bannertop\banners.mdb'"

Microsoft JET Database Engine error '80004005'
Not a valid file name.
/teste/bannertop/banners.asp, line 11

Entenda o seguinte... teste é o nome da pasta onde estão todas pages. A index.asp tem um include (top.htm) que está dentro da pasta teste/includes. Este top.htm por sua ver, tem outro include teste/bannertop/banners.asp. Dentro desta mesma pasta está o banners.asp.

resopi · Setembro 4, 2003

e é o include do banners q esta acessando o seu DB???

X.bArArA.X · Setembro 5, 2003

Sim... Tem uma pasta chamada bannerstop. Dentro dela tem o banners.asp e o banners.mdb.

Eu não entendo o seguinte. Tipo, uma enquete que eu tenho aqui, do mesmo jeito, dentro duma pasta separada e tal, funciona. Não entendo porque os banners não.

X.bArArA.X · Setembro 9, 2003

Coloquei tudo na mesma pasta e essa b*** não funciona. O phodaz é q não acho um sistema de banners q c encaixe ao meu layout. Achei um bom. Porém, não tem escolher o tamanho da imagem. DAe já ferrou. Agora esse não acha o banco de dados sem q coloque o caminho todo. Q merda! :( :angry:

Entrar

Banner Rotator

Pergunta

Link para o comentário

Compartilhar em outros sites

16 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns