Ottimizzazione script delete record

[slay]

Ciao a tutti!
Ho il seguente script che mi va a prelevare i record da una tabella e li confronta con un'altra, se nn viene trovata corrispondenza il record viene cancellato .. lo script ha sempre funzionato con pochi record .. però ora lancio la pagina ma sta li a caricare .. caricare .. come lo potrei ottimizzare?
Db Mysql
la tabella punti_hotel ha circa 14.000 record
la tabella sab_hotel ha circa 14.000 record

Set rs = Server.CreateObject("ADODB.Recordset") 
    sql = "select hotel_id from punti_hotel"
    rs.open sql, objConn

    if not rs.eof then
    
    do until rs.eof
       response.write rs("hotel_id")&"
"
        Set rs_confcodc = Server.CreateObject("ADODB.Recordset") 
        sql_confcodc = "select id from sab_hotel where hotel_id="&rs("hotel_id")&""
        rs_confcodc.open sql_confcodc, objConn
        
        if not rs.eof then
            ' se trovo il record non faccio niente
            Response.write "Record trovato! 
"
        else
            ' se non lo trovo elimino il record da punti_hotel
            Updcitta = "Delete from punti_hotel where hotel_id="&rs("hotel_id")&""
            objConn.Execute (Updcitta)
            response.write "Hotel id "&rs_confcodc("hotel_id")&" eliminato da punti_hotel!
"
        end if
        
        rs_confcodc.close 
        set rs_confcodc=nothing 
        
    rs.movenext
    loop

    end if
    rs.close 
    set rs=nothing 

qualche idea..