<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "M5" %>

<% End Sub %>