Buscar y añadir registros a tabla access

[ciberpata]

He encontrado un error en una sentencia if
la he cerrado puesto que le faltaba un end if

de forma que el codigo quedo como sigue:
--------------------
For Each Fichero in ObCarpeta.files
encontrado = false
Ob_RS.movefirst
response.write fichero.name & "<br>"
'Buscamos si existe en la tabla
Do While (NOT encontrado AND NOT Ob_RS.EOF)
If fichero.name = Ob_RS("fotonombre") Then
encontrado = true
'aquí estaba el error se producía un bucle infinito....
Ob_RS.movenext
End if
Loop

'Sino existe agregamos
If Not encontrado Then
Ob_RS.addnew
Ob_RS("idusuario")=request.Form("idusuario")
Ob_RS("fotonombre")=fichero.name
Ob_RS.update
End If
Next

------------------



Pero me sigue dando el mismo error del principio:

carpeta: galeria
idusuario:
directorio es: ..\images
total es la suma de directorio y carpeta: ..\images\galeria
El directorio de búsqueda es: \galeria
1.jpg

Páginas Active Server error 'ASP 0113'

Tiempo de espera agotado para la secuencia de comandos

/galeriafotos/resultados.asp

Se excedió el tiempo máximo de espera para una secuencia de comandos. Para cambiar este límite especifique un nuevo valor para la propiedad Server.ScriptTimeOut o cambie el valor en las herramientas de administración de IIS.

Es que este codigo me tiene muerto... lo juro ;)