<%
	sub executeUpdate(db,query)
		dim con
		err.clear
		on error resume next
		set con=server.createObject("adodb.connection")
		con.open db

		con.execute query

		con.close
		set con=nothing
		response.write err.description
    end sub

    executeUpdate Application("Product"),"delete from basket  where ids='" & Session.SessionID & "' and idp=" & request("id")

	response.redirect("viewbasket.asp")
%>