ho scritto questo codice per far si che a seconda della categoria e sottocategoria di una lista di articoli mi visualizzi i top 3,1...

solo che per
rs.Open "select TOP 3 ART_NAME

mi spara a video tutti i record! cosa ho sbagliato? :master:

codice:
<%

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/MDB-DATABASE/DUARTICLE.mdb")
Dim rs, ART_NAME, ART_ID, ART_TYPE, ART_DATED

Set rs = Server.CreateObject("ADODB.Recordset")


rs.Open "select TOP 3 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 66 OR ART_SUBTYPE = 88 order by ART_DATED desc", conn
IF not RS.EOF THEN
response.write "<div>"
response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">"
response.write	"<tr>"
response.write  "<td bgcolor=""#FFD83C"">"
response.write	"<p style=""margin-top: 2px; margin-bottom: 2px"">"
response.write	"[img][/img]"
response.write	"NEWS IN EVIDENZA"
response.write	"</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"<tr>"
response.write	"<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">"
response.write	"<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">"
FOR i = 1 to 1000
IF NOT RS.EOF THEN
ART_NAME=rs("ART_NAME")
ART_ID=rs("ART_ID")
ART_TYPE=rs("ART_TYPE")
response.write  "[img][/img]" & ""
response.write  "" & ART_NAME & "
"
RS.moveNext
END IF
NEXT
END IF
rs.close
response.write  "</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"</table>"
response.write "</div>"
response.write  "
"
%>

<%


rs.Open "select TOP 3 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 67 OR ART_SUBTYPE = 89 order by ART_DATED desc", conn
IF not RS.EOF THEN
response.write "<div>"
response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">"
response.write	"<tr>"
response.write  "<td bgcolor=""#FFD83C"">"
response.write	"<p style=""margin-top: 2px; margin-bottom: 2px"">"
response.write	"[img][/img]"
response.write	"INIZIATIVE SINDACALI"
response.write	"</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"<tr>"
response.write	"<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">"
response.write	"<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">"
FOR i = 1 to 1000
IF NOT RS.EOF THEN
ART_NAME=rs("ART_NAME")
ART_ID=rs("ART_ID")
ART_TYPE=rs("ART_TYPE")
response.write  "[img][/img]" & ""
response.write  "" & ART_NAME & "
"
RS.moveNext
END IF
NEXT
END IF
rs.close
response.write  "</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"</table>"
response.write "</div>"
response.write  "
"
%>
<%


rs.Open "select TOP 1 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 64 OR ART_SUBTYPE = 85 order by ART_DATED desc", conn
IF not RS.EOF THEN
response.write "<div>"
response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">"
response.write	"<tr>"
response.write  "<td bgcolor=""#FFD83C"">"
response.write	"<p style=""margin-top: 2px; margin-bottom: 2px"">"
response.write	"[img][/img]"
response.write	"RASSEGNA STAMPA"
response.write	"</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"<tr>"
response.write	"<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">"
response.write	"<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">"
response.write  ""
response.write	"<font face=""Verdana"" size=""1"" color=""#0C75B2"">" 
response.write  "rassegna stampa aggiornata dalla nostra redazione"
response.write  "</font>"
response.write  ""
FOR i = 1 to 1000
IF NOT RS.EOF THEN
ART_NAME=rs("ART_NAME")
ART_ID=rs("ART_ID")
ART_TYPE=rs("ART_TYPE")
response.write  "
"
response.write  "[img][/img]" & ""
response.write  "" & ART_NAME & "
"
RS.moveNext
END IF
NEXT
END IF
rs.close
response.write  "</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"</table>"
response.write "</div>"

%>


						
<% rs.Open "select TOP 1 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 49 OR ART_SUBTYPE = 66 order by ART_DATED desc", conn
IF not RS.EOF THEN
response.write "<div>"
response.write "<table border=""0"" id=""table3"" width=""100%"">"
response.write	"<tr>"
response.write  "<td bgcolor=""#E9E9D2"">"
response.write	"<p style=""margin-left: 5px; margin-top: 5px; margin-bottom: 5px"">"
response.write	"CONVEGNI E WORKSHOP"
response.write	"</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"<tr>"
response.write	"<td width=""95%"" style=""border-left:1px solid #E9E9D2; border-right:1px solid #E9E9D2; border-bottom:1px solid #E9E9D2; background-position: left top; background-color: #FFFFFF; background-image:url('images/sfumagray.gif'); background-repeat:repeat-x"">"
response.write	"<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">"
FOR i = 1 to 1000
IF NOT RS.EOF THEN
ART_NAME=rs("ART_NAME")
ART_ID=rs("ART_ID")
ART_TYPE=rs("ART_TYPE")
response.write  "[img][/img]" & ""
response.write  "" & ART_NAME & "
"
RS.moveNext
END IF
NEXT
END IF
rs.close
response.write  "</p>"
response.write	"</td>"
response.write	"</tr>"
response.write	"</table>"
response.write "</div>"


set rs = nothing

conn.close
set conn = nothing
%>