<% Dim new_catalog_id new_catalog_id = Request("catalog_id") If (Not isNumeric(new_catalog_id)) Or new_catalog_id = "" Then new_catalog_id = 1 End If new_catalog_id = CLng(new_catalog_id) %>