<% Option Explicit If not Session("isLoggedIn") Then response.redirect("/ecommerce/default.asp?returnUrl=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))) End If %> <% Dim strSortCat, strSortOrder, strOldSortOrder Dim rsItemCategory, arrDBData, strSQL Dim iRecFirst, iRecLast, iFieldFirst, iFieldLast Dim I, J strSortCat = "itemCategoryDesc" strSortOrder = "" strOldSortOrder = "" If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "EXEC stpItemCategorySelectAll -1" Set rsItemCategory = Server.CreateObject("ADODB.Recordset") rsItemCategory.CursorLocation = 3 rsItemCategory.Open strSQL, dbconn, 3, 3 rsItemCategory.Sort = strSortCat & " " & strSortOrder strOldSortOrder = strSortOrder If strSortOrder = "ASC" Then strSortOrder = "DESC" Else strSortOrder = "ASC" End If arrDBData = null If rsItemCategory.EOF Then strErrMsg = "
  • no items
  • " isErr = true Else arrDBData = rsItemCategory.GetRows() iRecFirst = LBound(arrDBData, 2) iRecLast = UBound(arrDBData, 2) iFieldFirst = LBound(arrDBData, 1) iFieldLast = UBound(arrDBData, 1) End If ' not EOF rsItemCategory.Close Set rsItemCategory = Nothing %> Galuku Cocopeat

    Item Category List

    Sorted in <%= Lcase(strOldSortOrder) %>ending order

    <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% If not isNull(arrDBData) Then For I = iRecFirst To iRecLast 'itemID, itemName, itemDesc, isActive, itemCategoryDesc %> <% Else %><%= "listAltItem" %><% End If %>"> <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% Next End If %>
    itemCategory
    <%= arrDBData(1,I) %>edit | <% If arrDBData(2,I) = true Then %>de<% End If %>activate

     

    ^ back to top