con questo codice estragggo dal database 3 prodotti di un determinato produttore

<%



strAccessDB = "mdb-database/prodotti.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 prodotti WHERE produttore='" & produttore & "' order by produttore"
rs.Open query,Conn,3,3
if not rs.EOF then

Response.Write "

Questi sono solo alcuni dei prodotti presenti nel database

"

N = 3 '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 "<table width='600' cellspacing='1'>"
Response.Write "<tr> "
Response.Write "<td width='120' height='35' valign='middle' align='center' >"
Response.write "[img]images/prodotti/" & rs.fields("immagine") & ".jpg[/img]

"
Response.Write "</td>"
Response.Write "<td width='480' valign='middle'>"

Response.Write"<font color='#006600'>"

Response.Write Rs("produttore")

Response.Write"</font>"
Response.Write " "
nome=Rs("nome")
Response.Write("
<a href='prodotto.asp?id=" & rs.fields("id") & "' target=''>" & _
nome & "</a>
" )


descrizione=Rs("descrizione")
if len(descrizione) > 55 then
descrizione1=left(descrizione,55)&" "&"..."
else
descrizione1=nome
end if
Response.Write descrizione1

Response.Write "</td>"
Response.Write "</tr>"




Response.Write "</table>"
rs.MoveFirst
next
end if


%>

tutto funziona, ma se nel dataase non ho almeno 3 prodotti di un determinato produttore mi rasha ... č normale visto che io ho impostato 3 ... come posso ovviare a questo problema?