estrazione casuale di record e condizioni

[maximino]

Buongiorno a tutti,
sto utilizzando il seguente script per estrarre un record casuale da una tabella.

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
'estrazione di record casuali

Dim Conn, strConn, rs, query, N, max, i, casuale, temp

Set Conn = Server.CreateObject("ADODB.Connection")
strConn = Application("dbconn")
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM inserzioni"
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)
%>			
  <table width="500" border="1" cellspacing="0" cellpadding="0">	
     <tr>
	    <td width="10%"><div align="center"><%= rs("COD") %></div></td>
		<td width="15%"><div align="center"><%= rs("DATA") %></div></td>
		<td width="40%"><div align="center"><%= rs("DESCRIZIONE") %></div></td>
		<td width="20%"><div align="center">[img]<%= rs([/img]" width="30" height="30"></div></td>
		<td width="15%"><div align="center">troverai questo e molti altri annunci tra gli articoli "<%= rs("ARTICOLO") %>" della categoria "<%= rs("CATEGORIA") %>"!</div></td>
    </tr>
  </table>
<%
    rs.MoveFirst 
  next
end if
%>

Così com'è funziona correttamente,
avrei bisogno però di modificarlo in modo che, nel caso in cui si verifichi la seguente condizione:

if rs("FOTO") = "no_img.gif"

vada ad estrarmi il record successivo o ripeta l'estrazione casuale.

Potete aiutarmi?

[Roby_72]

query = "SELECT * FROM inserzioni WHERE foto <> 'no_img.gif'"

Roby

[maximino]

Perfetto

grazie Roby!