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: 	
0009: 	Set rs = Server.CreateObject("ADODB.Recordset")
0010: 	sqlString = "SELECT EmailAddress FROM mmEntries WHERE ID = " & ID
0011: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0012:     email = rs("EmailAddress").Value
0013: 	rs.Close
0014: 	Set rs = Nothing
0015: 	
0016: 	Set cn = Server.CreateObject("ADODB.Connection")
0017: 	cn.Open Conn
0018: 	sqlString = "DELETE FROM mmEntries WHERE ID = " & ID
0019: 	cn.Execute sqlString, lngRecs, adCmdText + adExecuteRecords	
0020: 	cn.Close
0021: 	Set cn = Nothing
0022: 	
0023: 	Set cn = Server.CreateObject("ADODB.Connection")
0024: 	cn.Open conn
0025: 	sqlString = "DELETE FROM mmPicks " & _
0026: 							"WHERE EmailAddress = '" & email & "' " & _
0027: 							"AND Season = " & season 
0028: 
0029: 	cn.Execute sqlString, lngRecs, adExecuteNoRecords
0030: 	cn.Close
0031: 	Set cn = Nothing
0032: 	
0033:    Set cn = Server.CreateObject("ADODB.Connection")
0034: 	cn.Open conn
0035: 	sqlString = "DELETE FROM mm2ndPicks " & _
0036: 							"WHERE EmailAddress = '" & email & "' " & _
0037: 							"AND Season = " & season 
0038: 
0039: 	cn.Execute sqlString, lngRecs, adExecuteNoRecords
0040: 	cn.Close
0041: 	Set cn = Nothing
0042: 
0043: %>
0044: <!-- #include FILE="include/ReturnPageUse.inc" -->	
0045: <%
0046: 	Response.Redirect("whoisin.asp")		
0047: %>