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