Sono arrivato a questo ma mi dà errore:

Dim strRicerca
if request.form("sesso") = "ses_all" & request.form("Reg_res") = "reg_all" & request.form("Prov_res") = "prov_all" then
strRicerca = " ORDER BY Username"

else if request.form("sesso") <> "ses_all" then
strRicerca = " WHERE Sesso = '" &request.form("sesso")& "' ORDER BY Username"


else if request.form("sesso") = "ses_all" & request.form("Reg_res") <>"reg_all" then
strRicerca = " WHERE sesso = '"&request.form("sesso")&"' AND Regione residenza ='"&request.form("Reg_res")& "' ORDER BY Username"

else if request.form("sesso") <> "ses_all" & request.form("Reg_res") <>"reg_all" then
strRicerca = " WHERE sesso = '"&request.form("sesso")&"' AND Regione residenza ='"&request.form("Reg_res")& "' ORDER BY Username"

else if request.form("sesso") <> "ses_all" & request.form("Reg_res") <> "reg_all" & request.form("Prov_res") <> "prov_all" then
strRicerca = " WHERE Sesso = '"&request.form("sesso")&"' AND Regione residenza ='"&request.form("Reg_res")& "' AND Provincia residenza ='"&request.form("Prov_res")& "' ORDER BY Username"
end if
end if
end if
end if
end if
dim rs, strSQL
set rs = server.createobject("ADODB.Recordset")
strSQL = "SELECT Username FROM tab_utenti"
strSQL = strSQL & strRicerca


L'errore è il seguente:
Errore di sintassi (operatore mancante) nell'espressione della query 'sesso = 'ses_all' AND Regione residenza ='reg_all''.

Dove sbaglio?