<%
dim rsMenu, rsSubMenu, SQLmenu, SQLSubmenu
SQLmenu = "SELECT ID, ParentID, STitle, LinkURL FROM " & STR_TABLE_GODOC
SQLmenu = SQLmenu & " WHERE ParentID= " & INT_GODOC_MENU & " and (Status='A') ORDER BY SortOrder "
set rsMenu = ConnOpenRS(SQLmenu)
'response.Write "strPageType = " & strPageType
if lcase(strPageType) = "store" then ' and RequestPoll("action") <> "login") then
%>
<% elseif lcase(strPageType) = "subpage" then
else
if (lcase(strPageType) = "custserv" and Request("action") <> "login") then %>
<% end if
end if %>