problema con controllo su campo

[val]

salve ragazzi,

in uno script genero un numero casuale compreso tra 1 e 5000. Successivamente estraggo dal database i campi dove il campo id è uguale al numero casuale generato. Dopodicchè verifico se un campo di tale tabella è vuoto o è pieno. Se è vuoto allora assegno ad una variabile un valore altrimenti ne assegno un'altro. Lo script è il seguente:

randomize
myvalore = Int((5000 * Rnd) + 1)
Set Cov = Server.CreateObject("ADODB.Connection")
cov.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb")
Set RSv = Server.CreateObject("ADODB.Recordset")
sqlv = "SELECT * FROM accesso where id = " & myvalore
RSv.Open sqlv, cov, adOpenKeyset
IF NOT RSv.EOF THEN
campo_occ = RSv("utente")
IF campo_occ <> " " THEN
response.write myvalore & "
"
response.write Email
valore_di_verifica = "1"
ELSE
valore_di_verifica = "0"
END IF
END IF
Rsv.close
cov.close


il problema è che non ottengo nessun risultato...perchè?

[Sypher]

probabilmente RSv.EOF = true

[albis]

Prova Così
set objConn= Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb"
objConn.Open()

set objRs= Server.CreateObject("ADODB.Recordset")


call objRs.Open("SELECT * FROM accesso",objConn,3,3)

randomize
myvalore = Int((objRs.RecordCount * Rnd) + 1)
objRs.Move(myvalore -1)
IF RSv.EOF = FALSE THEN
campo_occ = RSv("utente")
IF campo_occ <> " " THEN
response.write myvalore & "
"
response.write Email
valore_di_verifica = "1"
ELSE
valore_di_verifica = "0"
END IF
END IF
Rsv.close
cov.close

[val]

grazie ragazzi per l'aiuto ma il risultato è sempre lo stesso......

[albis]

Prova Così
set objConn= Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb"
objConn.Open()

set objRs= Server.CreateObject("ADODB.Recordset")


call objRs.Open("SELECT * FROM accesso",objConn,3,3)

randomize
myvalore = Int((objRs.RecordCount * Rnd) + 1)
objRs.Move(myvalore -1)
campo_occ = RSv("utente")
IF campo_occ <> " " THEN
response.write myvalore & "
"
response.write Email
valore_di_verifica = "1"
ELSE
valore_di_verifica = "0"
END IF
Rsv.close
cov.close

[val]

si ok adesso funziona...

Adesso deo fare in modo che se la variabile valore_di_verifica risulta essere = "0" deve ripescare un nuovo random...grazie per l'aiuto