Hai provato così:

codagenzia=session("age")

If ISNULL(codagenzia) Then
codagenzia = "0"
end if

response.write "-" & codagenzia & "-" & session("age") & "-"

strsql="select * from Categorie where idage=0 or idage=" & codagenzia & " order by idage,Categoria"