<% ValidateAdmin %> <% ShowAdminTable %> <% Dim strSQL, iActiveMessageId iActiveMessageId = cInt(Request.Querystring("mid")) cnnAdmin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SERVER.MapPath("../database/forum.mdb") & ";" strSQL = "Select * FROM messages WHERE message_id=" & iActiveMessageId & ";" rsAdmin.Open strSQL, cnnAdmin, adOpenKeyset, adLockPessimistic, adCmdText If Not rsAdmin.EOF Then rsAdmin.MoveFirst rsAdmin.Delete adAffectCurrent end if rsAdmin.Close Response.Write("The message has been deleted.
Back to Forum") cnnAdmin.Close %>