ho provato cosi...ma non cambia la situazione.

Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, 3, 3
Rs2.Open strSQL, Conn, 3, 3


<%=Server.HTMLEncode(rs2("concorrente"))%>
<%=Server.HTMLEncode(rs2("code"))%>
<%Response.write "" & Rs2 ("description") & "" & ""%>
<%Response.write "" & Rs2 ("code_oem") & "" & ""%>
<%Response.write "" & Rs2 ("grammi_sea") & "" & ""%>
<%Response.write "" & Rs2 ("grammi_con") & "" & ""%>
<%Response.write "" & Rs2 ("xnote") & "" & ""%>
<%Response.write "" & Rs2 ("price") & "" & ""%>
<%set Rs2=conn.execute ("Select MIN(prezzo_concorrenza + prezzo_promo)as minimo from Dati2 WHERE code='" & Cerca & "' ")%> <%response.write ""&Rs2("minimo")%>
<%
Rs2.MoveNext

Loop

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>
Seg