<%if not (editor or master or member) then response.redirect("/common/private_page.asp")%>
<%=SiteName%>
New Forum Message
<%if request("PageMode") = "cancel" then response.redirect("forums.asp?g="&g&"&ForumID="&request("ForumID")) mForumID = 1 : if len(request("ForumID")) > 0 then mForumID = cInt(request("ForumID")) %> <% if request("PageMode") = "save this new forum topic" 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 if len(request("ForumID")) = 0 then rs("forumID") = 1 else rs("forumID") = request("ForumID") end if 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("subject") = request("Subject") rs("dateposted") = now() rs("msgtext") = Request("msgtext") rs.update rs("ReplyID") = rs("MsgID") rs.update CloseData() response.redirect("forums.asp?g="&g&"&ForumID="&request("ForumID")) else OpenOleConn(datadir&"npc_forums.mdb") Set rs = objConn.Execute("select * from tblMESSAGES ") savlabel = "save this new forum topic" end if %>
From
<%if Guest then %>
(enter your name or pseudonym) <%else %>
<%=gUserName%>
<%end if %>
Forum
<%for n=1 to ubound(mForumNames,1)-2 if mForumID = n then %>
<%=mForumNames(n,0)%>
<%else %>
<%=mForumNames(n,0)%>
<%end if next %>
(select the most appropriate forum for your post)
Subject
(please be descriptive !)
Content
<%EditPointers()%>
<%EditButtons()%>
<%closedata()%>