<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "M2" Dim category category = Trim(Request("category")) %>

<% Call SubProductList(objQuery, category, "TRAVEL") %>

<% End Sub %>