<%if not (editor or master or member) then response.redirect("/common/private_page.asp")%> <%if request("PageMode") = "cancel" then response.redirect("show_thread.asp?g="&g&"&ReplyID="&request("ReplyID")) %> <%=SiteName%> <% if request("PageMode") = "save this new reply" then VetMessage() OpenOleConn(datadir&"npc_forums.mdb") set rs = Server.CreateObject("ADODB.Recordset") sqlStr = "select * from tblMessages " rs.Open sqlStr, objConn, 2, 3 rs.addnew rs("forumID") = request("ForumID") rs("ReplyID") = request("ReplyID") rs("Subject") = request("Subject") if gUserLevel > 0 then rs("authorID") = gUserID rs("fromname") = gUserName rs("checked") = 1 else rs("authorID") = 0 rs("fromname") = request("fromname") & " (Guest User)" rs("checked") = 0 end if rs("dateposted") = now() rs("msgtext") = Request("msgtext") 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 ReplyID=" & request("ReplyID")) savlabel = "save this new reply" end if %>
From <%if Guest then %> (please enter your name or pseudonym) <%else %> <%=gUserName%> <%end if %>
Subject:

Content
  <%EditPointers()%>
 
<%EditButtons()%>
"> "> <%closedata()%>