Ho il seguente codice e funziona.
Però è stilisticamente una schifezza. Vorrei proprio per imparare in futuro, capire come ottenere lo stesso risultato, ma con codice pulito.
Questo recordset raccoglie i dati di un form e a seconda di come sono impostati i campi "r_stato" e "r_prodotto" fa una determinata istruzione sql.

Grazie.

codice:
<%
Dim stato
set stato = Server.CreateObject("ADODB.Recordset")
stato.ActiveConnection = line
if request.QueryString("r_prodotto") = "TUTTI" AND request.QueryString("r_stato") = "TUTTE" then
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND (problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') ORDER BY "& ordinamento &" "& modo
elseif request.QueryString("r_prodotto") = "TUTTI" then
statocall.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND stato = '"&stat&"') ORDER BY "& ordinamento &" "& modo
elseif request.QueryString("r_stato") = "TUTTE" then
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND cod = '"&prod&"') ORDER BY "& ordinamento &" "& modo
else
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND cod = '"&prod&"' AND stato = '"&stat&"') ORDER BY "& ordinamento &" "& modo
end if
stato.CursorType = 0
stato.CursorLocation = 3
stato.LockType = 1
stato.Open()
%>