<% dim action,categoryid categoryid=SafeRequest("id",1) action=FormatSQL(SafeRequest("action",0)) select case action case "add" set rs=server.CreateObject("adodb.recordset") rs.open "select * from adesigner",conn,1,3 rs.AddNew rs("class")=trim(request.form("category2")) rs("carorder")=int(request.form("categoryorder2")) rs.Update rs.Close set rs=nothing response.Redirect "bcarclass.asp" case "edit" set rs=server.CreateObject("adodb.recordset") rs.open "select * from adesigner where classid="&categoryid,conn,1,3 rs("class")=trim(request.form("category")) rs("carorder")=int(request.form("categoryorder")) rs.Update rs.Close set rs=nothing response.Redirect "bcarclass.asp" case "del" conn.execute ("delete from adesigner where classid="&categoryid) conn.execute ("delete from tdcatalog where dtypeway="&categoryid) response.Redirect "bcarclass.asp" end select %>