<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim sCategory_Id dim return_page %> <% sCategory_Id = trim(Request.QueryString("category_id")) ssql = "delete from tbl_category where category_id = '" & sCategory_Id & "'" conn.execute ssql conn.Close set conn = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>