<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim strCartId
strCartId = Request.QueryString("CartId")
DIM mySQL, objRS
mySQL = "SELECT * FROM Cart Where CartId='"& strCartId &"'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
If objRS.EOF Then
Response.Write "Your shopping cart is empty." %>
<%
Response.End
Else
objConn.Execute "Delete From Cart Where CartID='"& strCartId &"'"
End If
Response.Redirect"shop.asp"
%>