cancellare utenti in attesa

[yoyo87]

ho creato un modulo di registrazione con email di conferma.

Se l'utente non confermasse, come posso, tramite un select, eliminare gli utenti in attesa da 5 o più giorni, 30 o più giorni

Ho un campo Access di nome "ACTIVE" dove finchè non si è confermato c'è una stringa alfanumerica poi dopo la conferma "ATTIVO"

GRAZIE MILLE
J03

[maximum]

Puoi fare una cancellazione di questo tipo:

delect * from tabella_utenti
 where active <> "ATTIVO"

Se devi filtrare ulteriormente in funzione di date (dicevi di "eliminare gli utenti in attesa da 5 o più giorni, 30 o più giorni"), basta aumentare i filtri sulla query.

[yoyo87]

sono i proprio i filtri della query che non so usare...ho provato...ma nulla di buono, naturalmente nel db ho un campo che mi dice la data di rgistrazione

[maximum]

Posta la query di cancellazione che hai nel tuo codice.

[yoyo87]

Set RsUsr = Server.CreateObject("ADODB.Recordset")
Sql_UsrData = "SELECT * FROM user_LIST WHERE usr_ACTIVE <> 'ATTIVO'"
RsUsr.Open Sql_UsrData, Conn
			
oggi = GetDataOra(1, 0)
If NOT RsUsr.EOF then
Do While NOT RsUsr.EOF
DataUsr = RsUsr("usr_DATA_reg")
DataUsr = Year(DataUsr) & "/" & Month(DataUsr) & "/" & Day(DataUsr)
If request.Form("op") = "all" then
Sql_UsrDelete = "DELETE FROM user_LIST WHERE usr_ACTIVE <> 'ATTIVO'"
Conn.Execute(Sql_UsrDelete)
Else
If dateDiff("d",DataUsr,oggi) >= request.Form("att_user") then
						   
Sql_UsrDelete = "DELETE FROM user_LIST WHERE usr_ACTIVE <> 'ATTIVO' AND usr_DATA_reg < "& oggi &" "
Conn.Execute(Sql_UsrDelete)
End if
End if
RsUsr.MoveNext
Loop
Else
Response.Write "Nessun Utente in attesa!"
End if

GetDataOra(1, 0): una funziona che richiama la data corrente

[yoyo87]

nessun aiuto?

[santino83]

basta che usi una cosa del tipo:

Sql_UsrDelete = "DELETE FROM user_LIST WHERE usr_ACTIVE <> 'ATTIVO' AND cdate(usr_DATA_reg) < #"& cdate(dateadd("d",-30,now())) &"#"

se non funziona prova saenza cancelletti

[yoyo87]

Anche senza cancelletti non funziona:

[Microsoft][Driver ODBC Microsoft Access] Uso di Null non valido
line 21

21: la query che mi hai dato tu con i cancelletti o senza cancelletti

[maximum]

Fatti stampare la query e postala.

[yoyo87]

la query:

DELETE FROM user_LIST WHERE usr_ACTIVE <> 'ATTIVO' AND cdate(usr_DATA_regis) < #04/03/06#

Il cdate(usr_DATA_regis) viene stampato in modo giusto: gg/mm/aa