Prova con questo:
codice:
<%
Dim Num_img_random
Num_img_random=6
%>
<body topmargin="0">
<%
strAccessDB = "database.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 Tua_Tabella"
rs.Open query,Conn,3,3
if not rs.EOF then
N = Num_img_random '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)
Dim images
testo= rs("testo")
scelta=rs("scelta")
%>
<div align="center">
<table border="0" width="250" id="table1" cellspacing="0" cellpadding="2">
<tr>
<td bgcolor="#CCCCCC" align="center" height="22">
<font size="1" face="Verdana" color="#FFFFFF"><%=scelta%> <%=testo%></font></td>
</tr>
</table>
</div>
<font face="Verdana" style="font-size: 2pt"> </font>
<%
rs.MoveFirst
next
end if
%>
Permessi di invio
Rispondi quotando