<%
Case "addforum"
%>
<% IF Request.Form = "" Then %>
Forum Info
Please fill out the following form to add a new forum to the
SoberCity.com message board system.
<% ELSE %>
<%
Sub InsertForum()
'Insert new forum into database
Dim conForum, rstForumInsert, f_insertSQL, forum_name, forum_description
forum_name = ReplaceChr(Request.Form("forum_name"))
forum_description = ReplaceChr(Request.Form("forum_description"))
Set conForum = Server.CreateObject("ADODB.Connection")
conForum.Open strCon
f_insertSQL = "INSERT INTO tblForums(ForumName, ForumDescription) Values("
f_insertSQL = f_insertSQL & "'" &forum_name& "', '" &forum_description& "');"
SET rstForumInsert = conForum.Execute(f_insertSQL)
Set rstForumInsert = NOTHING
conForum.Close
set conForum = NOTHING
END Sub ' InsertForum
'Call subroutine to insert forum
InsertForum
%>
The new forum, <%=Request.Form("forum_name")%> has been inserted into
the database
Return to menu
<% END IF %>
<%
Case "removeforum"
%>
<% IF Request.QueryString("subaction") = "select" THEN %>
<%
'sub to output forum names to select
Sub PrintForums()
Dim conForum, rstForum, strSQL
Set conForum = Server.CreateObject("ADODB.Connection")
conForum.Open strCon
strSQL = "SELECT ForumName, Forum_id FROM tblForums"
Set rstForum = conForum.Execute(strSQL)
Response.Write("
Please click on the forum that you would like to remove, ")
Response.Write("along with all of the posts associated with it.
")
'cycle through and print forum names
DO Until rstForum.EOF
Response.Write("
")
rstForum.Movenext
Loop
'clean her up
rstForum.close
set rstForum = NOTHING
conForum.Close
set conForum = NOTHING
End Sub 'PrintForums
PrintForums
ELSEIF Request.QueryString("subaction") = "remove" THEN
Sub RemoveForum()
Dim conForum, rstDelete, id, strSQL
id = Request.QueryString("id")
Set conForum = Server.CreateObject("ADODB.Connection")
conForum.Open strCon
strSQL = "DELETE * FROM tblMessages WHERE forum_id=" &id
Set rstDelete = conForum.Execute(strSQL)
strSQL = "DELETE * FROM tblForums WHERE Forum_id=" &id
Set rstDelete = conForum.Execute(strSQL)
Set rstDelete = NOTHING
conForum.Close
Set conForum = NOTHING
Response.Write("
The selected forum and its associated messages have been removed.
")
Response.Write("Return to menu")
END SUB 'RemoveForum
RemoveForum
END IF %>
<%
Case "removemessage"
Sub RemoveMessage()
Dim conForum, rstRemove, strSQL, m_id, f_id, t_id
m_id = Request.QueryString("m_id")
f_id = Request.QueryString("f_id")
t_id = Request.QueryString("t_id")
Set conForum = Server.CreateObject("ADODB.Connection")
conForum.Open strCon
strSQL = "DELETE * FROM tblMessages WHERE message_id=" &m_id
Set rstRemove = conForum.Execute(strSQL)
Set rstRemove = NOTHING
conForum.Close
Set conForum = NOTHING
Response.Write("
The message has been deleted.
")
Response.Write("To menu")
End Sub ' RemoveMessage
RemoveMessage
%>
<% Case "removethread"
Sub RemoveThread()
Dim conForum, rstRemove, strSQL, f_id, t_id
f_id = Request.QueryString("f_id")
t_id = Request.QueryString("t_id")
Set conForum = Server.CreateObject("ADODB.Connection")
conForum.Open strCon
strSQL = "DELETE * FROM tblMessages WHERE thread_id=" &t_id
Set rstRemove = conForum.Execute(strSQL)
Set rstRemove = NOTHING
conForum.Close
Set conForum = NOTHING
Response.Write("
The Thread has been deleted.
")
Response.Write("To Forum ")
Response.Write("To menu")
End Sub ' RemoveThread
RemoveThread
%>
<%
End Select
%>