<%Option Explicit%>
<!--#include file="includes/top.inc"-->
<%
  closeConn()
  OpenConn( "forum.mdb" )
  Dim strSQL, rs
    
  set rs = server.createobject("ADODB.recordset")
	strSQL = "DELETE * FROM Fora WHERE ID = " & Trim(Request.QueryString("ID"))
  rs.Open strSQL,conn
  
  
	strSQL = "DELETE * FROM Data WHERE ForumID = " & Trim(Request.QueryString("ID"))
  rs.Open strSQL,conn
  
%>
<!--#include file="includes/bottom.inc"-->
<%
	Response.Redirect("forum_opdater.asp?pageid=4")
%>