% '============================= 'grab the requested post and display 'the data, then give an option to *hide* it 'NEVER edit a post only ever hide it '============================= 'dim some vars dim msg_user_name, msg_sig_file, msg_reg_tag, msg_title, msg_datestamp dim msg_started_date, msg_who_posted, msg_show_sig, msg_msg_body, msg_censored, msg_ip_user if Request.QueryString("update") = "yes" then 'ok, now update the status of the msg! if Request.Form("msg_censored") = "yes" then call update_msg_status(Request.QueryString("id"), true) else call update_msg_status(Request.QueryString("id"), false) end if end if call msg_details(Request.QueryString("id"), false) '======================================= 'the update msg status function switches on or off a post function update_msg_status(byval msg_id, censored) set con = Server.CreateObject("ADODB.Connection") con.Open(DSN) if censored then query = "UPDATE forum_msg " & _ "SET censored = 1 " & _ "WHERE id = " & cint(msg_id) else query = "UPDATE forum_msg " & _ "SET censored = 0 " & _ "WHERE id = " & cint(msg_id) end if con.Execute(query) con.Close Response.Redirect(Request.ServerVariables("PATH_INFO") & "?id=" & Request.QueryString("id") & "&clear=" & switch) end function %>
..::LvL Forum editing - removing the unwanted