si le barze sono in un database, la chiave ID esiste gia, anche la colonna estratto.
Il codice che ho ora è questo
codice:
<%@Language=VBScript%>
<%Option Explicit%>
<%
Dim objConn, objRSrnd, strProvider, strPathDB, SQL
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0; data source="
strPathDB = "d:\rootdatabase\database.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strProvider & strPathDB
SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM tabella"
Set objRSrnd = objConn.Execute(SQL)
Dim maxID, minID, rndID
maxID = objRSrnd("MaxID")
minID = objRSrnd("MinID")
Randomize
rndID = Int((maxID - minID + 1) * Rnd + minID)
SQL = "SELECT * FROM tabella WHERE ID >= " & rndID
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
objConn.Close
Set objConn = Nothing
%>
Questo fa solo l'estrazione random.
Come faccio per passare il valore di "estratto" da zero a uno?