<% call databaseConnect(SERVER) 'set rsp = SERVER.CREATEOBJECT("ADODB.recordset") ' used for individual posts ' get the from values back_url = Request.Form("back_url") action = Request.Form("action") object_id = Request.Form("object_id") ' also check for any details passed in the URL if request.querystring("back_url") <> "" then back_url = request.querystring("back_url") end if if request.querystring("action") <> "" then action = request.querystring("action") end if if request.querystring("object_id") <> "" then object_id = request.querystring("object_id") end if if action = "delete_comment" then call deleteComment(object_id) elseif action = "delete_tag" then call deleteTag(object_id) else RESPONSE.WRITE("
Command not recognised: " & action) end if sub deleteComment(object_id) dim sql sql = "update COMMENTS set deleted='1'" sql = sql & " where comment_id=" & object_id RESPONSE.WRITE("SQL: " & sql) conn.Execute sql end sub sub deleteTag(object_id) dim sql sql = "update TAGS set deleted='1'" sql = sql & " where tag_id=" & object_id RESPONSE.WRITE("SQL: " & sql) conn.Execute sql end sub %>