<% IF SESSION("SYSTEM_ID") = "" Then 'Time out %> <% Response.End End If Dim category_name, category_type, img_YN, active_YN category_name = Trim(Request("category_name")) category_name = Replace(category_name,"'","''") category_type = Trim(Request("category_type")) img_YN = Trim(Request("img_YN")) active_YN = Trim(Request("active_YN")) Dim objQuery Set objQuery = GetDBConn() Dim category_cd Dim arrExist arrExist = funcExistCategoryFirst(objQuery, category_name) IF isArray(arrExist) Then OnlyMsgView("The category name already exist. [" & category_name & "]") ReFresh("category_add.asp") Response.end Else Dim arrMainKey, order_by arrMainKey = funcGetMainKey(objQuery) Dim strSequence IF isArray(arrMainKey) Then IF Trim(arrMainKey(0, 0)) <> "" Then strSequence = Right(Trim(arrMainKey(0, 0)), 3) strSequence = Cint(strSequence) + 1 order_by = strSequence Select Case Len(strSequence) Case 1 strSequence = "00" & Cstr(strSequence) Case 2 strSequence = "0" & Cstr(strSequence) End Select Else strSequence = "001" order_by = 1 End IF Else strSequence = "001" order_by = 1 End IF category_cd = "C" & strSequence End If Call CloseDBConn(objQuery) Dim objModify Set objModify = New objDB_Modify Dim arrFieldName(9) Dim arrFieldValue(9) arrFieldName(0) = "S:category_cd" arrFieldName(1) = "S:category_name" arrFieldName(2) = "S:active_YN" arrFieldName(3) = "N:order_by" arrFieldName(4) = "N:cat_lev" arrFieldName(5) = "S:img_path" arrFieldName(6) = "S:img_YN" arrFieldName(7) = "S:img_name1" arrFieldName(8) = "S:img_name2" arrFieldName(9) = "S:category_type" arrFieldValue(0) = category_cd arrFieldValue(1) = category_name arrFieldValue(2) = active_YN arrFieldValue(3) = order_by arrFieldValue(4) = 1 arrFieldValue(5) = ENG_CAT_WEB_PATH arrFieldValue(6) = img_YN arrFieldValue(7) = img_name1 arrFieldValue(8) = img_name2 arrFieldValue(9) = category_type CALL objModify.subExecInsert("E_Category", arrFieldName, arrFieldValue) Set objModify = Nothing ReFresh("category_m.asp") %>