<% ValidateAdmin %> <% 'Find out what to do Dim strAction strAction = Request.Querystring("action") if strAction = "" then strAction = "start" end if 'Variables for new forum record Dim iForumName, iForumDescription, iForumStart, iForumGroup, strSQL iForumName = Trim(cStr(Request.Form("forum_name"))) iForumDescription = Trim(cStr(Request.Form("forum_description"))) iForumStart = Date() iForumGroup = Trim(cStr(Request.Form("forum_grouping"))) if iForumGroup = "" then iForumGroup = "none" end if %> <% ShowAdminTable select case strAction case "start" 'display form for adding a forum %>

Please fill out the following fields to add a forum

Name of Forum: Description: Grouping: For grouping by month and day, type: "7days"

<% case "done" 'create data connection %> <% 'open connection cnnAdmin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SERVER.MapPath("../database/forum.mdb") & ";" 'Build StrSQL strSQL = "" strSQL = strSQL & "INSERT INTO forums " strSQL = strSQL & "(forum_name, forum_description, forum_start_date, forum_grouping) " & vbCrLf strSQL = strSQL & "VALUES (" strSQL = strSQL & "'" & iForumName & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & iForumDescription & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & iForumStart & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & iForumGroup & "'" strSQL = strSQL & ");" %><%= strSQL %><% 'Add Record without returning any records. cnnAdmin.Execute strSQL, adCmdText Or adExecuteNoRecords cnnAdmin.Close 'Tell them that the forum has been created %>


The Forum <%= iForumName %> has been created <% End Select %>