%
execute "dim intCategoryID, objCategory"
intCategoryID = 0
if Len(Request.QueryString("Category_ID")) > 0 Then
on error resume next
intCategoryID = CLng(Request.QueryString("Category_ID"))
on error goto 0
elseif Len(Request.Form("Category_ID")) > 0 Then
on error resume next
intCategoryID = CLng(Request.Form("Category_ID"))
on error goto 0
end if
set objCategory = Server.CreateObject ("ACBStore.tCategory")
if not objCategory.Load(objToken, intCategoryID) then
set objCategory = nothing
appRedirect objToken.SharedURL & "error.asp" & objToken.SID_String & "Err=1100"
end if
%>
<%
objCategory.Reset
set objCategory = nothing
%>