[Visual Basic] Stampa e modifica record non funziona più

[kogaijy]

Salve a tutti. Sul mio portale è presente una pagina che mi permette di visualizzare tutti gli utenti registrati e disattivare/attivare i loro account manualmente. Fino a qualche giorno fa funzionava tutto alla perfezione, adesso la tabella non contiene più tutti i membri presenti sul mio mssql (366) ma circa 2/3 (266), inoltre anche cliccando sui tasti "attiva/disattiva" non funge più il processo, sul db non avvengono variazioni. La cosa strana è che se dal db aggiungo un nuovo utente, esso appare in lista sul sito. Qualcuno può darmi una mano?

<%@ Language=VBScript %>
<!--#include file="connessione.asp"-->
<H3>Elenco Utenti</H3>

<table border="1" align="center" width="90%">
    <tr>
        <th>Id</th>
        <th>Nome</th>
        <th>Cognome</th>
        <th>Codice Fiscale</th>
        <th>Comune</th>
        <th>Prov</th>
        <th>Telefono</th>
        <th>Mail</th>
        <th>Servizi</th>
        <th>Concentratore</th>
    </tr>
    <%
        if Cint(session("Ruolo")) <> 1 or session("Attivo") <> True then
            response.redirect("../Logout.asp")
        end if
            sql_UsrCF = "SELECT Utenti.Id as IdUtente, Utenti.Nome as NomeUtente, Utenti.Cognome as CognomeUtente, Utenti.CodiceFiscale as CFUtente, Utenti.Concentratore as Concentratore, Comuni.Nome as NomeComune, Province.Codice as Pr, Utenti.Telefono as TelefonoUtente, Utenti.Email as EmailUtente FROM Utenti Inner Join Province on Utenti.IdProvincia = Province.Id Inner Join Comuni on Utenti.IdComune = Comuni.Id"
            Set rs_UsrCF = Server.CreateObject("ADODB.Recordset")
            rs_UsrCF.Open sql_UsrCF, Connection ,3,3   
            
            do while not rs_UsrCF.eof
                response.write "<tr>"
                    response.write "<td>" & rs_UsrCF("IdUtente") & "</td>"
                    response.write "<td>" & rs_UsrCF("NomeUtente") & "</td>"
                    response.write "<td>" & rs_UsrCF("CognomeUtente") & "</td>"
                    response.write "<td>" & rs_UsrCF("CFUtente") & "</td>"
                    response.write "<td>" & rs_UsrCF("NomeComune") & "</td>"
                    response.write "<td>" & rs_UsrCF("Pr") & "</td>"
                    response.write "<td>" & rs_UsrCF("TelefonoUtente") & "</td>"
                    response.write "<td>" & rs_UsrCF("EmailUtente") & "</td>"
                    sql_UsrCFG = "SELECT * From AttivazioneGestionale where IdUtente = " & rs_UsrCF("IdUtente")
                    Set rs_UsrCFG = Server.CreateObject("ADODB.Recordset")
                    rs_UsrCFG.Open sql_UsrCFG, Connection ,3,3   
                        if rs_UsrCFG.bof and rs_UsrCFG.eof then
                            response.write "<td><a href=""../AttivaGestionale.asp?IdUtente=" & rs_UsrCF("IdUtente") & "&Azione=1"">Attiva</a></td>"
                         Else
                            response.write "<td><a href=""../AttivaGestionale.asp?IdUtente=" & rs_UsrCF("IdUtente") & "&Azione=0"">Disattiva</a></td>"
                        end if
                        
                    rs_UsrCFG.close
                    Set rs_UsrCFG = Nothing
                    response.write "<td>" & rs_UsrCF("Concentratore") & "</td>"
                    response.write "</tr>"
                rs_UsrCF.Movenext
            loop
            rs_UsrCF.Close
            Set rs_UsrCF = Nothing
            
    %>
</table>