<%@ LANGUAGE = "VBScript" %> <% If NOT session("discussionlogin") Then response.redirect "login.asp" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr SQL = "Select * from forum_messages where id=" & int(request("id")) rs.Open SQL, dbConn ,1,3 If not session("userisadmin") Then If rs("AuthorEmail")<>session("useremail") then response.redirect "error.asp?message=" & "You dont have permission to delete this record." end if For each field in rs.Fields Response.Write "" & field.name & ": " & Field & "
" Next If not rs.EOF then rs.Delete rs.Update Response.Write "
Record was successfully deleted." Else Response.Write "Error: Unable to find record." End if rs.Close dbconn.Close Set dbConn = Nothing Set rs = Nothing %>

Next