immagini random da access

[mexican]

Ciao a tutti ho un piccolo problemino, devo tirar fuori delle immagini random da access ogni volta che si accede alla pagina, questa immagine deve essere diversa.

Ho una funzione ma non funge per nulla come posso fare?
Vi passo quello che ho:

Randomize()
randNum = (CInt(1000 * Rnd) + 1) * -1
id_img=Rnd(randNum)
strsql = "SELECT TOP 1 file_img FROM Immagini where id_img=" & id_img & " ORDER BY id_img"
rs.open strsql, conn,3,3
images=rs(0)
rs.close
response.write(images)

Grazie a tutti. Se avete altre soluzione(funzioni) va ebne lo stesso.

[santino83]

ma gli id delle immagini sono progressivi?

cmq prova:

sql="select id_img from immagini order by id_img asc"
rs.open sql,conn,1,1
arrid=rs.getrows()
rs.close

randomize
id_img=int(ubound(arrid)*rnd())
sql="SELECT file_img FROM Immagini where id_img=" & arrid(id_img)
rs.open sql,conn,1,1

if not rs.eof then images=rs(0)
rs.close:set rs=nothing
erase arrid

response.write images

[mexican]

cmq ho provato e mi da il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: 'arrid'
/lay/sondaggio.asp, line 27

[F84]

prova così

sql="select file_img from immagini"
rs.open sql,conn,1,1
num=rs.recordcount

randomize()
posizione=CInt((num)*rnd())

rs.Move+posizione
if not rs.eof then 

images=rs("file_img")

end if
rs.close

[mexican]

strsql = "SELECT Max(id_img) as id FROM Immagini"
set rs = conn.Execute(strsql)
'rs.open strsql, conn,3,3
If Not rs.Eof Then
MaxId = rs("id")
Else
MaxId = 0
End If
Rs.Close : Set rs = Nothing

Randomize
RandomNumber = Cint(Rnd * MaxId)

strsql = "SELECT TOP 1 * FROM Immagini WHERE id_img >= " & RandomNumber
set rs = conn.Execute(strsql)
If Not rs.Eof Then
immagine=rs("file_img")
Else
immagine="Nessun immagine da visualizzare"
End If

Grazie mille dell'aiuto :-) a disposizione

[santino83]

cmq avevo sbagliato una cosa:

id_img=int(ubound(arrid,2)*rnd())

se lo provi così va

[F84]

comunque con questo fai una sola interrograzione al db

sql="select file_img from immagini"
rs.open sql,conn,1,1
num=rs.recordcount

randomize()
posizione=CInt((num)*rnd())

rs.Move+posizione
if not rs.eof then 

images=rs("file_img")

end if
rs.close

[mexican]

Originariamente inviato da F84
comunque con questo fai una sola interrograzione al db

sql="select file_img from immagini"
rs.open sql,conn,1,1
num=rs.recordcount

randomize()
posizione=CInt((num)*rnd())

rs.Move+posizione
if not rs.eof then 

images=rs("file_img")

end if
rs.close