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: 	DoNew = Trim(Request.QueryString("New"))
0009: 	
0010:    Set cn = Server.CreateObject("ADODB.Connection")
0011: 	cn.Open conn
0012: 	sqlString = "DELETE FROM mmBiggestLoser " & _
0013: 							"WHERE ID = " & ID
0014: 
0015: 	cn.Execute sqlString, lngRecs, adExecuteNoRecords
0016: 	cn.Close
0017: 	Set cn = Nothing
0018: 
0019: 	
0020: 'If DoNew = "Y" Then
0021: 	Response.Redirect("biggestloserPick_m.asp")
0022: ' Else	
0023: 	Response.Redirect("biggestloserstandings.asp")		
0024: ' End if
0025: %>