ADODB.Recordset error '800a0e7d'

[strip]

ora funziona, pero' a volte non compare niente come posso risolvere?



<%
SQL = "select Max(id) as maxid from tabella where val >= 1000"
rs.open SQL, cn, 3,3

If Not rs.Eof Then

dim maxID, valorernd
maxID = rs("MaxID")

else

maxid = 0
end if
rs.close
randomize timer
valorernd = cint(rnd * maxid)
sql = "select top 1 val2 from tabella where id = " & valorernd
rs.open SQL, cn, 3,3
if not rs.eof then
if valorernd <> "" then
valores = rs("val2")
response.write valores
end if
end if
rs.close
cn.close
set rs = nothing
set cn = nothing

%>

[Roby_72]

Fatti sempre stampare la query così quando non compare nulla ti rendi conto di quale VAL stai tentando di recuperare che di sicuro non esiste.

Roby

[strip]

fin li ci ero arrivato , mail problema è come faccio a non far pescare i valori che non esistono?

lui mi va a prendere ogni tanto l'id 0 che nel database non esiste parte dal numero 1

[strip]

up

[strip]

up

[Roby_72]

Perché devi dirgli che lo 0 non fa parte del range:

valorernd = cint(rnd * (maxid-1))+1

Roby

[strip]

invece per i valori che ho cancellato?

ho cancellato dei record e l'id me la ripesca ugualmente!

[Roby_72]

Prima di utlizzare gli id estratti in maniera random, dovei fare una query che accerti che l'id per quel valore esista.

Roby

[strip]

k grazie

[strip]

quindi...

SQL = "select Max(id) as maxid from tabella where val >= 1000 and id exist"



??????