E' che purtroppo non ho le conoscenze.. quindi mi resta difficile applicare i consigli.
Ora ho elaborato un pò più ma cmq so che mancano dei pezzi ma proprio non so cosa mettere. Lo so che per voi questo è un po come fare 1 + 1, ma per me no
codice:SQL = "SELECT COUNT(Estratto) FROM Archivio WHERE Estratto=0" If Count = "0" then UPDATE Archivio SET Estratto=0 rs.update rs.Close SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM NomeTabella" Dim maxID, minID, rndID maxID = objRSrnd("MaxID") minID = objRSrnd("MinID") Randomize rndID = Int((maxID - minID + 1) * Rnd + minID) SQL = "SELECT COUNT(*) FROM Archivio WHERE ID >= " & rndID " & Estratto=0 Set objRSrnd = objConn.Execute(SQL) Response.Write "Record casuale: " Dim fld For Each fld In objRSrnd.Fields Response.Write "" & fld.Name & ": " & objRSrnd(fld.Name) & " " Next UPDATE Archivio WHERE Id = rndid SET Estratto=1 objConn.Close Set objConn = Nothing %>
Rispondi quotando
