<% Dim strCat, strSubCat strCat = 5 strSubCat = 2 %>