magari qualcuno potrebbe incolparmi che ho aperto 2 3d uguali...non è colpa mia, nell'altro non riuscivo a ricevererisposte per colpa del titolo

comunque ho un problema in questo codice
codice:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/db.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
uguali=0
do while uguali<>1
  continente = Int((5*rnd)+1)
  stato = Int((10*rnd)+1)
  citta = Int ((10*rnd)+1)
  coordinate=continente&stato&citta
  set objRs = objConn.Execute("SELECT * FROM mappa WHERE COORD= "&coordinate&"")
  if objrs("NOME")=null then
   uguali=1
  end if
  if objrs("NOME")<>null then
   uguali=0
  end if
loop 
response.write coordinate
il problema è che il ciclo va in loop infinito ma non riesco a capire perchè

potrei avere un aiuto?

grazie