<% '============================= '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 %> [ admin ]

..::LvL Forum editing - removing the unwanted
+---------------------

?update=yes&id=<%=Request.QueryString("id")%>" method="post">
msg title: <%=msg_title%>
user name (registered): <%=msg_user_name%>
who posted (unregistered): <%=msg_who_posted%>
users ip#: <%=msg_ip_user%>
date of post: <% if hours_from_now(msg_datestamp) < 25 then Response.Write(hours_from_now(msg_datestamp) & " hrs ago") else Response.Write(days_from_now(msg_datestamp) & " days ago") end if %>
body of post: <%=msg_msg_body%>
current status: <% if msg_censored then Response.Write("not shown!") else Response.Write("shown") end if %>
make this post: <% if msg_censored then %>hide it, no one show see it| show the world this fine post! <% else %>hide it, no one show see it| show the world this fine post! <% end if %>