On Error

Jeg er gennem et tidligere spørgsmål kommet frem til nedenstående kode. Meningen er at hvis der kommer en error, så skal scriptet forsøge at gennemføre kode til error'en er væk eller til n=10000. hvis jeg nu henter data fra pc 1 og samtidig data fra pc 2 får pc 2 error, det skulle så være meningen at pc 2 skulle går i "stand by" til pc 1 var færdig, min kode ser sådan her ud:
--------------------------------
<%
On Error resume next
c = ADODB.connection
r = ADODB.Recordset

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\inetpub\wwwroot\xxx\login.mdb"
do
  err.clear
  c.Open objConn
  rs.Open "login", c, adopenkeyset, adLockOptimistic
  n = n +1
loop until err = 0 or n=10000
%>
----------------------