ADODB.Recordset error '800a0e7d'

[strip]

<%

SQL = "select Max(id) as maxid, Min(id) as Minid from tabella where val >= 1000"

rs.open SQL, cn, 3,3

maxID = rs("MaxID")
minID = rs("MinID")

randomize()
dim valorernd

valorernd = Int((maxID - minID + 1) * Rnd + minID)

rs.close
cn.close


sql2 = "select val2 from tabella where id =" &valorernd
rs.open SQL2, cn, 3,3
val2 = rs("val2")
response.write val2
rs.close
cn.close

%>


mi da questo errore:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

alla linea 22

[Roby_72]

1) Questo

rs.close
cn.close

l'hai scritto due volte, togli la prima

2) Non aprire due discussioni sullo stesso argomento. In questo caso devi SEMPRE continuare la discussione precedente.

Roby

[strip]

ora mi da questo errore:

Operation is not allowed when the object is open.

[Roby_72]

 
<% 

SQL = "select Max(id) as maxid, Min(id) as Minid from tabella where val >= 1000" 

rs.open SQL, cn, 3,3 

maxID = rs("MaxID") 
minID = rs("MinID") 

randomize() 
dim valorernd 

valorernd = Int((maxID - minID + 1) * Rnd + minID) 

rs.close 

sql2 = "select val2 from tabella where id =" &valorernd 
rs.open SQL2, cn, 3,3 
val2 = rs("val2") 
response.write val2 
rs.close 
cn.close 

%>

Devi definire l'oggetto rs all'inizio... e distruggerlo alla fine.

Roby

[strip]

ora mi da errore nella select

Syntax error (missing operator) in query expression 'id ='.

[strip]

come mai mi da errore nella seconda select su id?????????

[Roby_72]

L'errore è chiaro: la viariabile non è valorizzata...
poi si potrebbe discutere anche sul fatto che non necessariamente il valore random estratto corrisponda ad un ID effettivo, visto che cancellando i record vi sarebbe un "buco"...

Roby

[strip]

infatti ho provato a mettere un response.write valorernd e non mi viene fuori nessun valore come mai? come risolvo questo inconveniente?

[strip]

<%
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

%>

funziona la funzione random ma mi riporta il risultato tra # cioè #risultato# e a volte non compare niente come posso risolvere questi problemi?

grazie

[strip]

up