<% response.expires = 0 %> <% if session("login") <> "true" then response.redirect "login2.asp" End If %> <% Dim StrQuery Dim SQL, objRS StrQuery = Trim(Request.QueryString("id")) If StrQuery = "" then response.write "error" Else dim db, strConnection Set db = Server.CreateObject("ADODB.Connection") strConnection = "driver={MySQL 3.22.32};server=localhost;uid=root;pwd=cobalt-mysql;database=css" db.open strConnection SQL = "DELETE FROM content WHERE content_id = '"&strquery&"';" set objRS = DB.Execute(SQL) db.close set objRS = nothing set db = nothing End if response.redirect("default.asp?id=2") %>