<% ' This include file is mostly used for displaying shop sub categories when a shop category has been selected. ' It's to output the UL and LIs which is then styled up using CSS. 'Response.Write("numcat1ID: " & numcat1ID) CALL s_DbaseConnect() SQLQuery = "SELECT m_id, m_active, m_category, m_name FROM shop2cat WHERE m_category = '" & numcat1ID & "' AND m_active = 'Y';" CALL s_RSConnect(RS, SQLQuery, "adOpenForwardOnly", "adLockReadOnly") IF NOT RS.EOF THEN %> <% ELSE %>

No product subcategories.

<% END IF CALL s_RSClose(RS) CALL s_DbaseClose() %>