Error Type:Microsoft VBScript Runtime (0x800A000D)

I am trying to create a check the will first run, and look for a value which if found <>0 it will then transfer a warning page.

If the value = null or 0, then the next ode should be run, which will then delete the row. The problem is this:

The SQL Database table which is used in the deletion has primary key set on the ID - which when any reference is made to this ID, nothing could be done with it. I am now trying to display a warning that will tell the viewer that they first have to delete all the rows or info under the group before they can delete the group name. Code: