<% IF SESSION("SYSTEM_ID") = "" Or SESSION("SYSUSER") = "" Then 'Time out %> <% Response.End End If Dim up_cat Dim s_index Dim t_index Dim category_cd Dim category_name Dim order_by Dim active_YN up_cat = Trim(Request("up_cat")) s_index = Trim(Request("s_index")) t_index = Trim(Request("t_index")) category_cd = Trim(Request("category_cd"&s_index)) category_name = Trim(Request("category_name"&s_index)) category_name = Replace(category_name,"'","''") order_by = Trim(Request("order_by"&s_index)) active_YN = Trim(Request("active_YN"&s_index)) 'Response.write category_cd 'Response.end Dim objModify Set objModify = New objDB_Modify Dim strWhereCondition Dim sFlag sFlag = Trim(Request("sFlag")) Dim objQuery Select Case sFlag Case "del" Set objQuery = GetDBConn() Dim arrProtect arrProtect = funcGetModelProductSearchForCategory(objQuery, category_cd) Call CloseDBConn(objQuery) IF isArray(arrProtect) Then MsgView "You can not delete this category. Because this category has some products.",-1 Else strWhereCondition = " category_cd = '" & category_cd & "' and up_cat = '" & up_cat & "' " CALL objModify.subExecDelete("E_Category", strWhereCondition) OnlyMsgView("The category has been deleted.") ReFresh("category_iFrame_edit.asp?pCode="&up_cat) End IF Case "edit" Dim arrFieldName(3) Dim arrFieldValue(3) Dim i 'Response.write t_index 'Response.end For i = 0 to t_index strWhereCondition = " category_cd = '" & Trim(Request("category_cd"&i)) & "' and up_cat = '" & up_cat & "' " arrFieldName(0) = "S:category_name" arrFieldName(1) = "S:active_YN" arrFieldName(2) = "N:order_by" arrFieldName(3) = "D:update_date" arrFieldValue(0) = Trim(Request("category_name"&i)) arrFieldValue(1) = Trim(Request("active_YN"&i)) arrFieldValue(2) = Trim(Request("order_by"&i)) arrFieldValue(3) = "getdate()" CALL objModify.subExecUpdate("E_Category", arrFieldName, arrFieldValue, strWhereCondition) Next OnlyMsgView("The category has been modified.") ReFresh("category_iFrame_edit.asp?pCode="&up_cat) End Select Set objModify = Nothing %>