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