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

Item Status

Error: <%= strErrMsg %>

 

^ back to top


 
<% End If %>