<% 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 tpp",conn,1,3 rs.AddNew rs("tname")=trim(request.form("category2")) rs("pporder")=int(request.form("categoryorder2")) rs("id")=int(request.form("id")) if int(request.form("first2"))="" then rs("iview")=0 else rs("iview")=1 end if rs.Update rs.Close set rs=nothing response.Redirect "bppclass.asp" case "edit" set rs=server.CreateObject("adodb.recordset") rs.open "select * from tpp where id="&categoryid,conn,1,3 rs("tname")=trim(request.form("category")) rs("pporder")=int(request.form("categoryorder")) rs("iview")=int(request.form("first")) rs.Update rs.Close set rs=nothing response.Redirect "bppclass.asp" case "del" conn.execute ("delete from tpp where id="&categoryid) response.Redirect "bppclass.asp" end select %>