codice:
strSql = "SELECT COUNT(id_messaggi) AS tot_msg_user FROM nome_tabella WHERE Id_utente = id_utente" (l'id dell'utente interessato)

set rs = my_Conn.Execute (strSql)

tot_msg_user = rs("tot_msg_user")

If tot_msg_user >= 100 Then
      fai visualizzare un messaggio che comunica all'utente lo stato della sua cartella 'piena'.

Else
      puoi fargli ricevere altri messaggi.
End if