questo il code come l'ho modificato, ma da sempre errore come sopra indicato...

if scelta="0" then
sSQL = "SELECT * FROM Prodotti WHERE TitoloProdotto='"&prodotto&"'"
else
sSQL = "SELECT * FROM Prodotti WHERE id="&prodotto&""
end if
set rs = conn.execute(sSQL)
if not rs.EOF then
id=(rs.Fields.Item("ID").Value)
end if

%>
<%
scelta= Request.QueryString("scelta")
if scelta="0" then
sSQL = "SELECT * FROM Clienti WHERE user like '"&user&"'"
end if
set rs2 = conn.execute(sSQL)
if rs.recordcount=0 then
response.redirect("login.asp")
end if

%>