Ciao a tutti.

Ho una difficoltà che non riesco a superare, provo a spiegarmi:

- Ogni mattina entro una certa ora 4 persone diverse caricano, tramite un form, una serie di dati in una tabella mysql, dati che si riferiscono al giorno prima;

- Alle ore 10:00 se non sono stati caricati i 4 records, ho previsto sul server un operazione pianificata che invia un msg email agli indirizzi delle persone che non hanno ancora provveduto, sollecitando a completare la registrazione.

Ha tutto sempre funzionato tutto bene perchè almeno uno dei quattro la mattina provvedeva al caricamento di competenza: oggi però che nessuno dei 4 soggetti ha caricato i dati, il msg email di sollecito non è partito.

Questo è il codice ASP, come potrei ovviare al problema?

codice:
'//QUERY SULLA TABELLA EVENTI ESTRAZIONE ULTIMO REC INSERITO
sSQL = "SELECT * FROM "
sSQL = sSQL & " tbl_S "
sSQL = sSQL & " ORDER BY ID DESC "

Set RS = CreateObject("ADODB.Recordset") 
RS.Open sSQL, cn

If Not RS.eof Then

'//QUERY LEFT OUTER JOIN 
SQL = " SELECT "
SQL = SQL & " tbl_C.ID, "
SQL = SQL & " tbl_C.CO "
SQL = SQL & " FROM "
SQL = SQL & " tbl_C "
SQL = SQL & " LEFT OUTER "
SQL = SQL & " JOIN tbl_S "
SQL = SQL & " ON tbl_S.ID_CO = tbl_C.ID "
SQL = SQL & " AND "
SQL = SQL & " DATA_r = " & formatDBDate(rs("DATA_r"), "mysql") & " " 
SQL = SQL & " WHERE "
SQL = SQL & " tbl_S.ID_CO IS NULL "

Set objRS = CreateObject("ADODB.Recordset")
objRS.Open SQL, cn

If Not objRS.eof Then

   objRs.MoveFirst()
      Do While not objRs.eof 

'//CODICE INVIO MSG EMAIL


     objRs.MoveNext()
   Loop 
     
     objRs.Close()
     set objRs = nothing

end if
end if

  Rs.Close()
  Set Rs = Nothing  

  Cn.Close()
  Set Cn = Nothing