<% Call subMain() Sub subMain() Dim objQuery Dim objQueryFunc Dim pCode '//Create Objects Set objQuery = GetDBConn() pCode = Trim(Request("pCode")) '//Print Java Script CALL subWriteJAVAScript() '//Print List CALL subPagePrint(objQuery, pCode) Call CloseDBConn(objQuery) End Sub Sub subWriteJAVAScript() %> <% End Sub Function funcGetType(byRef objQuery, byVal pCode) Dim strQuery strQuery = " SELECT idx_cat, category_cd, category_name, active_YN, order_by, cat_lev, " &_ " up_cat, insert_date, img_path, img_name1, img_name2, img_YN, category_type, read_cnt " &_ " FROM E_Category " &_ " WHERE category_cd='"&pCode&"' " funcGetType = arrGetDBResult(objQuery, strQuery) End Function Function funcGetSub(byRef objQuery, byVal up_cat) Dim strQuery strQuery = " SELECT idx_cat, category_cd, category_name, active_YN, order_by, cat_lev, " &_ " up_cat, insert_date, img_path, img_name1, img_name2, img_YN, read_cnt " &_ " FROM E_Category " &_ " WHERE up_cat='"&up_cat&"' Order by order_by ASC" 'Response.write strQuery funcGetSub = arrGetDBResult(objQuery, strQuery) End Function Sub subPagePrint(byRef objQuery, byVal pCode) Dim arrCategory arrCategory = funcGetType(objQuery, pCode) IF isArray(arrCategory) Then %> <%'==========================================================================================================================================%>

<%=arrCategory(2, 0)%> Main Informaion Category Name Category Type <%IF Trim(arrCategory(12, 0)) = "N" Then %>Normal<%Else%>Special<%End IF%> Category Code <%=arrCategory(1, 0)%> Level <%=arrCategory(5, 0)%> Order By > Active Y/N Yeschecked<%End IF%>>   No checked<%End IF%>> Page Read <%=Trim(arrCategory(13, 0))%>  (Access Count)   Delete     Update  Sub Category <% Dim arrSubCategory, z arrSubCategory = funcGetSub(objQuery, pCode) IF isArray(arrSubCategory) Then %> <% For z = 0 to Ubound(arrSubCategory, 2) %> <% Next %> Order By Category Name Read Active Edit > <%=arrSubCategory(12, z)%> Yeschecked<%End IF%>>   No checked<%End IF%>>  Edit   Del  <% Else %> No sub category in this category. <% End IF %> Add Sub Category (Name)   Add  <%'======================================================================%>

<%Else%>

<-- Select a Category

<% End IF End Sub %>