Ciao Ragazzi, chi sa applicare il metodo filter nello script seguente, per filtrare il valore già uscito?
Lo script che segue estrae da un db valori a caso, con filter devo fare un controllo per non far ripetere i valori se non prima di averli estratti tutti
codice:
<%
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
dim id
dim nome
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
Dim Numero
Randomize
Numero = 1 + int(Rnd * id)
rs10.Source="select * from Tabella where id=("& Numero &") ;"
rs10.Open,conn10
arrtabella=rs10.GetRows()
For iRiga=0 to ubound(arrtabella, 2)
For iColonna=0 to ubound(arrtabella, 1)
Response.Write("<td>"&arrtabella(iColonna,iRiga)&"</td>")
Next
Next
%>