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

Rispondi quotando