Ho risolto!
Se a qualcuno serve posto qui il codice come esempio:

strsql="SELECT evento.idevento, evento.dataevento FROM evento ORDER BY evento.dataevento DESC"
rsusers.cursorlocation=3
rsusers.open strsql, adocon

do while not rsusers.EOF
diffdata=int(now() - rsusers.fields("dataevento"))
if diffdata < 0 then
response.write(rsusers.fields("idevento"))
end if
rsusers.movenext
loop
rsusers.close

:metallica