ciao a tutti devo eliminare i record doppy su una tabella mysql con + di 400.000 record .. questo è il codice che ho creato ... ma il tutto risulta veramente lentissimo .. forse mi sfugge qualcosa?

codice:
Set rs_conf2 = Server.CreateObject("ADODB.Recordset") 
sql_conf2 = "select * from sab_photohotel  ORDER BY id asc limit 0,500"
rs_conf2.open sql_conf2, objConn
		
		
if not rs_conf2.eof then
		
do until rs_conf2.eof
	rc_idora=rs_conf2("id")
	hotel_idora=rs_conf2("hotel_id")
	photo_idora=rs_conf2("photo_id")
		
	response.write conteggio&" - id ora: "&rc_idora&" "
			
	Set rs_conf = Server.CreateObject("ADODB.Recordset") 
	sql_conf = "select * from sab_photohotel where id <> "&rc_idora&" and hotel_id="&hotel_idora&" and photo_id="&photo_idora&""
	rs_conf.open sql_conf, objConn
		
	if not rs_conf.eof then
		'***Updimgh = "Delete from sab_photohotel where id <> "&rs_conf2("id")&" and hotel_id="&rs_conf2("hotel_id")&" and photo_id="&rs_conf2("photo_id")&""
		'***objConn.Execute (Updimgh)
		Response.write "<font color='#FF0000'>Foto doppie - Eliminata!</font>
"
	else
		Response.write "Foto non doppia!
"
	end if

	rs_conf.close 
	set rs_conf=nothing 
			
conteggio=conteggio+1
rs_conf2.movenext 
loop	

end if
	
rs_conf2.close 
set rs_conf2=nothing
qualche consiglio?