0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	ID = Trim(Request.QueryString("ID"))
0008: GroupID = Request.Querystring("GroupID")
0009: 	
0010: 	Set cn = Server.CreateObject("ADODB.Connection")
0011: 	cn.Open Conn
0012: 	sqlString = "DELETE FROM mmDraft WHERE ID = " & ID
0013: 	cn.Execute sqlString, lngRecs, adCmdText + adExecuteRecords	
0014: 	cn.Close
0015: 	Set cn = Nothing
0016: 	
0017: 	Response.Redirect("DraftParticipants.asp?GroupID=" & GroupID)		
0018: %>