Giusto perché siamo sotto PASQUA
codice:
<%
strAccessDB = "/mdb-database/TuoDB.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
Conn.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM NomeTabella"
rs.Open query,Conn,3,3
if not rs.EOF then
N = 1 'numero di record casuali da visualizzare
Randomize
max = rs.RecordCount-1
redim arr(max)
'popolo l'array da 0 al numero di record
for i=0 to max
arr(i)=i
next
'mischio i numeri in modo casuale
for i=0 to max
casuale = Int((max)*Rnd)
temp = arr(i)
arr(i) = arr(casuale)
arr(casuale) = temp
next
'visualizzo gli N record casuali
for i=0 to N-1
rs.Move arr(i)
Response.Write rs("Campo") & "
"
rs.MoveFirst
next
end if
%>
Però la prossima volta fatti prima una ricerca sul forum!
e Buona Pasqua