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