perdonami ora sono riuscito ad estrarre un record con questo script:
SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM ricette"
Dim objRSrnd
Set objRSrnd = dcnDB.Execute(SQL)
Dim maxID, minID, rndID
maxID = objRSrnd("MaxID")
minID = objRSrnd("MinID")
' calcoliamo l'ID casuale
Randomize
rndID = Int((maxID - minID + 1) * Rnd + minID)
' Impostiamo la query per etrarre il record casuale
SQL = "SELECT titolo,descrizione FROM ricette WHERE ID >= " & rndID
' Eseguiamo la query
Set objRSrnd = dcnDB.Execute(SQL) %>
<tr>
<td width="46%" height="19">
</p>
<%'Visualizziamo i risultati della queryobjRSrnd
Response.Write "
"%></td></tr>
<%Dim fld
For Each fld In objRSrnd.Fields
Response.Write " " & objRSrnd(fld.Name) & "
"
Next
dove devo mettere
Function DiffADate()
DiffADate = Abs (DateDiff("d", Now, "11/06/2004"))
End Function
![]()