TEmpo fa avevo scritto questo codice per l'estrazione di due record alla volta con un random ad ogni accesso:
codice:
call apridb("SELECT ID, Foto, Homepage, Pag_info, Nome, Indirizzo FROM locale WHERE Homepage=true", rs, conn)
Dim numero1, numero2, massimo
massimo = rs.RecordCount
Randomize()
if massimo > 0 then
numero1 = Int(massimo*Rnd())+1
end if
if massimo > 1 then
do
numero2 = Int(massimo*Rnd())+1
loop while numero2 = numero1
end if
%>
<td valign="top">
<%if massimo>0 then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
for i = 1 to 2
if massimo >= i then
rs.MoveFirst()
rs.Move(eval("numero" & i)-1)
%>
<tr>
<% nome = rs("Nome")
nome1 = Server.URLEncode (nome)
If rs("Pag_info") = True Then%>
<td ........</td>
<%Else%>
<td ........</td>
<%End if%>
</tr>
<tr>
<td align="center" class="titolo"><div align="center"><%=rs("Nome")%></div></td>
</tr>
<tr>
<td align="center" class="testo"><div align="center"><%=rs("Indirizzo")%>
</div></td>
</tr>
<%
end if
next%>
Ma se voglio mostrarne tre? Cosa deve cambiare? :master: