Controllo Su Random

[longline]

Il problema sta nell'apertura del recordset, usa questa:

rs.open sql, conn, 3, 3

[edovox]

niente da fare mi ridà quest'errore:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

[longline]

In quale riga?

[edovox]

Praticamente corrisponde alla linea dell'apertura della connessione.

rs10.Source="select id, nome from Tabella"
 rs10.open sql, conn10, 3, 3
If Not rs10.eof then

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

random4.asp, line 23

[longline]

rs10.Source="select id, nome from Tabella"
rs10.CursorType = 3
rs10.open sql, conn10

[optime]

se si vuole eseguire la string sql, deve essere dichiarata!

'''''''''rs10.Source="select id, nome from Tabella"
'''''''''rs10.CursorType = 3

sql="select id, nome from Tabella"
rs10.open sql, conn10, 3, 3

[edovox]

Ciao Ragazzi per rispondere a tutti e due , ho provato
tutte e due le soluzioni l'errore che mostra con la soluzione di longline è il seguente:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

random4.asp, line 30

mentre con la soluzione di optime

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/banner/random4.asp, line 38

Rispettivamente la linea 30 è la seguente:

rs10.open sql, conn10

e la linea 38 è :

    rs10.Filter = "id NOT IN(" & strIdEstratti & ")"

io anche se incapace ho provato questa soluzione.

<%
Dim i, iElementiArray 
Dim Numero 
dim id
dim nome
dim strsxp
Dim MioIndice 
Dim meno
dim Conn10
set  Conn10 = server.createobject ("Adodb.Connection")
dim rs10
set rs10=server.CreateObject("Adodb.recordset")
Conn10.ConnectionString="provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath ("/mdb-database/data.mdb")& ";"
Conn10.Open

rs10.Source="select id,nome from Tabella  ;"
rs10.Open ,conn10
while not( rs10.eof)
id=rs10(0)
nome=rs10(1)
rs10.MoveNext 
wend
rs10.Close
 
Randomize 
Numero = 1 + int(Rnd * id) 
rs10.Source="select * from Tabella where id=("& Numero &") ;" 
rs10.Open,conn10
strsxp = rs10(1).value
rs10.Close

iElementiArray = id               'dichiaro il numero di elementi dell`array  
ReDim arrNumeri(iElementiArray)   'dimensiono l`array dinamico
arrNumeri(id) =strsxp
meno =  iElementiArray - strsxp 
MioIndice = Filter(arrNumeri,meno)
Risultati= UBound(MioIndice) 
For i= 0 To Risultati 'utilizziamo un ciclo FOR per riempire il nostro array 
											  
Response.Write (arrNumeri(i) & "
")       
Next 

Set rs10 = Nothing
Conn10.Close
Set Conn10 = Nothing
%>

Grazie per la pazienza spero che il nostro impazzire serva anche ad altri

[edovox]

Ciao ragazzi nessuna idea?

Avete visto l'ultima prova cosa ve ne pare?