<%if not (editor or master or member) then response.redirect("/common/private_page.asp")%>
<%if request("PageMode") = "cancel" then response.redirect("show_thread.asp?ReplyID="&request("ReplyID")) %>
<%=SiteName%>
<%
if request("PageMode") = "save these changes" then
VetMessage()
OpenOleConn(datadir&"npc_forums.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
sqlStr = "select * from tblMESSAGES where MsgID=" & request("MsgID")
rs.Open sqlStr, objConn, 2, 3
if gUserLevel > 0 then
rs("checked") = 1
else
rs("checked") = 0
end if
rs("msgtext") = Request("msgtext")
if not (Editor or Master) then
rs("lastedit") = now()
end if
rs.update
CloseData()
response.redirect("show_thread.asp?ReplyID="&request("ReplyID"))
else
OpenOleConn(datadir&"npc_forums.mdb")
Set rs = objConn.Execute("select * from tblMESSAGES where MsgID=" & request("MsgID"))
savlabel = "save these changes"
end if %>