gradi di fedeltà

[Stanislao]

vorrei assegnare agli utenti un grado di fedeltà tipo senior etc etc..
in base alla data di iscrizione

così...ho buttato giu un po' di codice

<%
' gradi agli utenti

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
    Set rs=Server.CreateObject("ADODB.RecordSet")

        sql="Select * from Iscritti "
    rs.Open sql , Conn ,3 ,3
    do while not rs.eof
                                
    if DateDiff("d",rs("Data_Iscrizione"),date())>600 then
    rs("Status")= "Friend"
                                                                                                           
    end if                            
    rs.MoveNext                
        loop
    rs.close


    set rs=Nothing
    Conn.close
    Set Conn=nothing
    %> 

del quale però non so come impostare il date diff ..
ossia se l'utente è iscritto da piu di 4 mesi allora rendi Friend..altrimenti no fare nulla

e poi però vorrei omettere 4 record...che sono quelli del amministrazione e dello staff
che non devono cambiare..

come posso fare?

grazie infinitosassimamente

[Ugly Mau]

Perché non usi i mesi invece che i giorni

if DateDiff("m", rs("Data_Iscrizione"), Date()) > 4 Then ......


I record che vuoi omettere come fai a identificarli??


oaiC

[Stanislao]

Originariamente inviato da Ugly Mau
Perché non usi i mesi invece che i giorni

if DateDiff("m", rs("Data_Iscrizione"), Date()) > 4 Then ......


I record che vuoi omettere come fai a identificarli??


oaiC

potrei identificarli con ID o USER

[santino83]

beh potresti crearti una tabella TipiUtente e una tabella di raccordo iscritti-tipiUtente. In tipi Utente metti: Moderatore - Friend - Miononno - Caio - Superadmin - SuperGRanFigDePut - etc, e poi raccordi gli iscritti ai tipi

l'aggiornamento del tipo utente lo effettui solo sugli utenti che hanno il tipoUtente <> da quello del moderatore etc

[Stanislao]

infatti grazie!!!

ho fatto così...siccome al momento della registrazione io assegno member

ho fatto solo

sql="Select * from Iscritti where Status='MEMBER'"
    rs.Open sql , Conn ,3 ,3
    do while not rs.eof
                                
    if DateDiff("m",rs("Data_Iscrizione"),date())>4 then
    rs("Status")= "Friend" 

così lo staff e admin non lo calcola proprio

[cworld]

Dovresti prima identificare quanti gradi di utenza vuoi avere ad ognuno gli assegni un numero identificativo che si avicina più allo 0 in base all'importanza del grado, successivamente nel record della tabella utenti inserisci un campo che di default sia il grado minore.
.........