quando eseguo questo comando la pagina va in errore in "out of time"

ecco il codice della funzione:
codice:
function prevImage(id_gallery,id_photo)
	set rsPrevImage = server.CreateObject("ADODB.RecordSet")
	rsPrevImage.open "SELECT * from gallery_photo where id_gallery = " & id_gallery & " ORDER BY id" , dbc, adOpenDynamic			
	while not rsPrevImage.eof
		if not rsPrevImage.eof then
			if clng(rsPrevImage("id")) = clng(id_photo) then
				if not rsPrevImage.bof then
					rsPrevImage.movePrevious
					if not rsPrevImage.bof then prevImage = rsPrevImage("id")
				else
					prevImage = 0
				end if
			end if
		end if
		if not rsPrevImage.eof then rsPrevImage.movenext
	wend 
	rsPrevImage.close
	set rsPrevImage = nothing
end function