Ciclo che non si arresta

[Grinder]

Non riesco ad arrestare questo ciclo:

Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_remtech_STRING
rs2.Source = "SELECT * FROM configurazioni WHERE modello = '"&session("modello")&"'"
rs2.Open()

do while not rs2.eof

for each item in request.queryString()

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_remtech_STRING
rs.Source = "SELECT * FROM componenti WHERE cod_art = '" & request.queryString(item) & "'"
rs.Open()

on error resume next
response.write "<div style=""margin-bottom:10px;""><span class=""testoarancionemini"" id=""testoarancionemini"">"&replace(rs("cat"),"_","") & ":</span><span id=""testomini"" class=""testomini"">" & rs("desc_art") & "</span></div>"

rs.Close()
Set rs = Nothing

next

rs2.movenext
loop

rs2.Close()
Set rs2 = Nothing

Esso si ripete un numero di volte pari al numero di oggetti inviati per stringa. In un certo senso ne ho bisogno, ma voglio che non si ripeta mai e i risultati vengano mostrati una sola volta!