caricamento casuale banner

[raippl]

Salve ragazzi ho un problemino,
Voglio una pagina web che carica dei bannner a caso.
Ho quindi creato un DB con una tabella banner che ha come campi URL_IMMAGINE e LINK, cioè dove si trova il file che contiene il banner (una semplice immagine o un flash) e poi il link da aprire quando clicco sul banner.

Ora la mia funzione random se ho URL_IMMAGINE e LIMK cablati sul codice funziona mentre quando faccio la query e li recupero da db non và.

Vi spiego come ho fatto:

'FUNZIONANTE MA NOMI CABLATI NEL CODICE---------------------------
Dim Banner(10,1)
Path = "BannerClienti/Immagini/"
Banner(1,0)="banner1.jpg"
Banner(1,1)="http://www........"
..........................................
Banner(10,0)="banner2.jpg"
Banner(10,1)="http://www........."

'FUNZIONE RANDOM ININFLUENTE PERCHE' FUNZIONA
randomize()
nummin =1
nummax = 10
Indice = int(nummin + (rnd * ( nummax - nummin + 1 )))
If Instr(Banner(Indice,0),".swf")=0 Then
Response.Write "[img][/img]"
Else
---------------------------------------------------------------

'NON FUNZIONANTE-----------------------------------------------
SqlStr ="SELECT URLIMG,LINK FROM BANNER"
set rs = DBQuery(SqlStr)
for n = 1 to 10
Banner(n,0) = rs("URLIMG")
Banner(n,1) = rs("LINK")
next

//FUNZIONE RANDOM-----------------------------------------------
................................................
----------------------------------------------------------------

Premesso che la connessione funziona in quanto estraggo anche altre cose in questa pagina, cos'è che non va secondo voi?

Grazie in anticipo per la disponibilità.

Ciao

[laycg]

Che DB usi?

[raippl]

ACCESS

[laycg]

Premetto che non sono un grande esperto, però mi pare che il RecordeSet non sia aperto correttamente.
Qual'è il testo dell'errore che ti da?

[raippl]

Ho risolto grazie 1000

Dim Path
Dim Indice
Dim StrCode
Dim Banner(10,1)

SqlStr ="SELECT URLIMG,LINK FROM BANNER"
set rs = DBQuery(SqlStr)
i = 1

Do While Not rs.eof
Banner(i,0) = rs.Fields("URLIMG")
Banner(i,1) = rs.Fields("LINK")
i = i + 1
rs.movenext()
Loop
rs.Close
Set rs = Nothing