Ciao, vorrei una mano ad ottimizzare il funzionamento di questo codice.

Quando inserisco un nuovo utente nel db access, faccio così:

codice:
function convertDate(theDate)
if isDate(theDate) then
theYear = datePart("yyyy",theDate)
theMonth = datePart("m",theDate)
theDay = datePart("d",theDate)
if theMonth < 10 then theMonth = "0" & theMonth
if theDay < 10 then theDay = "0" & theDay
convertDate = theYear & "/" & theMonth & "/" & theDay
end if
end function

strUser=request.form("user")
strCode1=request.form("code1")

myDate = date()
DataRegistrazioneUserCode = convertDate(myDate)
DataScadenzaUserCode = convertDate(DateAdd("y",90,DataRegistrazioneUserCode))
DataScadenzaSemestrale = convertDate(DateAdd("y",180,DataRegistrazioneUserCode))

			rs.addnew

			        rs(1) = strUser
				rs(2) = strCode1
				rs("DataRegistrazioneUserCode") = DataRegistrazioneUserCode
				rs("DataScadenzaUserCode") = DataScadenzaUserCode
				rs("DataScadenzaSemestrale") = DataScadenzaSemestrale
				rs("DataUltimoAccesso") = DataRegistrazioneUserCode
							
			rs.update
Come vedete oltre a registrare login (UserName) e password (UserCode), registro anche la data di registrazione, la data di scadenza e la data di scadenza semestrale del nuovo account.

Quando il nuovo utente si autentica ho previsto questo controllo:

codice:
strSql = "SELECT * FROM codici WHERE userName LIKE '"&strUser&"' AND userCode='"&strCode&"'"

myDate = date()
DataOdierna = convertDate(myDate)
DataScadenzaUserCode = convertDate(objRS("DataScadenzaUserCode")) 
DataRegistrazioneUserCode = convertDate(objRS("DataRegistrazioneUserCode"))
DataScadenzaSemestrale = convertDate(objRS("DataScadenzaSemestrale"))
DataUltimoAccesso = convertDate(objRS("DataUltimoAccesso"))
DataVariabile = (DateDiff("d",DataUltimoAccesso,DataScadenzaSemestrale)) 

if DataOdierna =  DataScadenzaUserCode OR DataVariabile > 180 then

response.write "password scaduta!"

else

....
Ma mi accorgo che se l'utente giusto il giorno in cui scade la sua registrazione non accede all'area riservata del sito tutti i controlli sulle scadenze delle date saltano...

Come posso ovviare a quest'inconveniente ??

Grazie