hola, esta excelente lo que pretendes ahora bien si te sale espero que lo aportes para los que lo necesitamos, entrando al tema de tu pregunta
quita esta linea
set mir1=Server.CreateObject("ADODB.Recordset&quo t;)
y en esta de donde recoges la variable id?
set mir1 = miconexion.execute("delete * from cli where idcli = '" & id & "'")
saludos