<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Discussion.asp" -->
<%
PostID = Request.Form("numPostID")

sql = "DELETE FROM tblReply WHERE numPostIDFK = " & PostID
SET rcdDelete = Server.CreateObject("ADODB.Command")
rcdDelete.ActiveConnection = MM_Discussion_STRING
rcdDelete.CommandText = sql
rcdDelete.Execute       
SET rcdDelete = nothing

sql = "DELETE FROM tblPosts WHERE numPostID = " & PostID
SET rcdDelete = Server.CreateObject("ADODB.Command")
rcdDelete.ActiveConnection = MM_Discussion_STRING
rcdDelete.CommandText = sql
rcdDelete.Execute       
SET rcdDelete = nothing

Response.Redirect("admin.asp")
%>