Random e aggiunta record

[simoza]

TEmpo fa avevo scritto questo codice per l'estrazione di due record alla volta con un random ad ogni accesso:

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: