<% ValidateAdmin %> <% Response.Buffer = True %> <% ShowAdminTable %> <% Dim strSQL, strAction, iForumId, Item strAction = Request.Querystring("action") iForumId = Request.Querystring("fid") cnnForumAdmin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SERVER.MapPath("../database/forum.mdb") & ";" 'Depending on what is selected we display info select case strAction 'Ask if they are sure case "verify" strSQL = "Select forum_name FROM forums WHERE forum_id=" & iForumId & ";" rsForumAdmin.Open strSQL, cnnForumAdmin, adOpenStatic, adLockReadOnly, adCmdText %>

Are you sure you wish to delete the forum:

<% For Each Item in rsForumAdmin.Fields Response.Write("" & Item.Value & "") next %>

And all its' messages?

<% rsForumAdmin.Close case "cancel" 'If they want to cancel, close everything and send them back to forums cnnForumAdmin.Close Response.Redirect("admin_display_forum.asp") case "delete" '-------------Begin Delete Messages from Forum------------- strSQL = "Select * FROM messages WHERE forum_id=" & iForumId & ";" rsMessageAdmin.Open strSQL, cnnForumAdmin, adOpenKeyset, adLockPessimistic, adCmdText If Not rsMessageAdmin.EOF Then Do While Not rsMessageAdmin.EOF rsMessageAdmin.Delete adAffectCurrent rsMessageAdmin.MoveNext Loop end if rsMessageAdmin.Close '-------------End Delete Messages from Forum------------- '-------------Begin Delete Forum------------------------- strSQL = "Select * FROM forums WHERE forum_id=" & iForumId & ";" rsForumAdmin.Open strSQL, cnnForumAdmin, adOpenKeyset, adLockPessimistic, adCmdText If Not rsForumAdmin.EOF Then Do While Not rsForumAdmin.EOF rsForumAdmin.Delete adAffectCurrent rsForumAdmin.MoveNext Loop end if rsForumAdmin.Close '-------------End Delete Forum------------------------- Response.Write("The Forum has been deleted.
Back to Forums") cnnForumAdmin.Close End Select %>