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