Buon Anno!

Perchè questo code non rispetta le condizioni if ed estrae tutti i record dal dbase?
codice:
Set rec = Server.CreateObject("ADODB.Recordset")

cat = Request.querystring("cat")
uoat = Request.querystring("uoat")

cod = Request.querystring("cat")
cad = Request.querystring("uoat")
email = Request.querystring("email")

Dim Split1
Split1 = split(cod, "-")
cod0 = Split1(0)

Dim Split2
Split2 = split(cad, "-")
cad0 = Split2(0)

strSQL = "SELECT * FROM ListFiles WHERE 1=1"

If cat <> 0 then
   strSQL = strSQL & " AND id_cat = "&cod0
end if

If uoat <> 0 then
  strSQL = strSQL & " AND id_uoat = "&cad0
End If

rec.Open strSQL, OpenStr, 3, 3