Banner Rotativo

[ruinas]

Quero Criar Um sistema de Banner Rotativo. Com Banco de Dados.

Me Passem o SCRIPT PRONTO se PUDER. E por Favor não mande eu pegar o codigo nesse site. Por que já viz isso e esta tudo em ingles e eu não entendi nada...

[caicai]

Olá de uma olhada neste código ae.

Ele é bem simples.

-------- Inicio --------

<%

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("banco.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='images\" & oRS("aPicture") & "'></a>"

set oRS = nothing

set oConn = nothing

%>

-------- Fim --------

Crie uma tabela com o nome: "Banners", com os campos: "alink e apicture"

só isso e estará rodando..

Espero goste.

T+

[Guest Guest]

Valeu Cara...

Eu tenho aqui varios Scripts de banners rotativos mais todos são dificeis de se manipular

[ruinas]

Tipo eu uso um meio diferente....

Eu criei um arquivo chamado conecta.asp ¤ Pra conectar com o banco.

--------------Arquivo-------------------

<%

Dim StrCon

Dim conexao

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

StrCon ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco")

Sub AbreConexao()

conexao.open StrCon

End sub

Sub FechaConexao()

Conexao.close

End Sub

%>

------------Fim------------------

No Caso Desse jeito eu tenho q colocar o escript assim:

Mas eu crio o Recordset

Assim:

Set rs = Conexao.execute(sql)

==================

<!--#Include file="conecta.asp"-->

<%

Response.Expires = -1000

Dim oRS, oConn,sSQL

Dim rndMax,rndNumber

AbreConexao

sSQL = "SELECT * FROM banners"

Set oRS = conexao.execute(sSQL)

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='images\" & oRS("aPicture") & "'></a>"

set oRS = nothing

set oConn = nothing

%>

é Assim q tem q ficar????

Mas esta dando erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e24'

O conjunto de linhas não dá suporte para busca regressiva

/inforoms/banner_rnd2.asp, line 15

O Que eu faço agora???????????????????????

[caicai]

Ruinas beleza,

Utiliza o Recordset original pois ele q vai mostrar o cursor para a busca no banco...

T+

[ruinas]

Sera q você pode me explicar mais sobre esses dois tipos de recodset.