<% Option Explicit If not Session("isLoggedIn") Then response.redirect("/ecommerce/default.asp?returnUrl=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))) End If %> <% Dim strSortOrder Dim intItemCategoryID, blnDeactivate, intNewStatus Dim rsItemCategory, strSQL, intRows intItemCategoryID = CInt(Request("itemCategoryID")) blnDeactivate = CInt(Request("deactivate")) If blnDeactivate Then intNewStatus = 0 Else intNewStatus = 1 End If strSortOrder = "" If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "exec stpItemCategoryStatus " & intItemCategoryID & "," & intNewStatus Set rsItemCategory = dbconn.Execute(strSQL) If rsItemCategory.EOF Then ' no user with that userID strErrMsg = "item does not exist" isErr = true End If %> Galuku Cocopeat <% If not isErr Then %>
<% Else %>
item category status

Error: <%= strErrMsg %>

 

^ back to top


 
<% End If %>