Online bruger liste.

Jeg kan ikke få denne kode til at udtrække de rigtige brugere.
jeg skal ha udtrukket de brugere som sidst har været set for 1 time siden f.eks. eller en dag. men problemet er at den også udtrækket brugere som er over 3 månedere gammel. Hvad gør jeg forkert...?

<%
formDato = now()
konveretDato = Year(formDato) & "-" & Month(formDato) & "-" & Day(formDato) & " " & Hour(formDato) & ":" & Minute(formDato) & ":" & Second(formDato)

sql = "Select * From brugere Where sidst_set > " & Datediff("d", -1, konveretDato)
set rs3 = Connect.execute(sql)
Do
Response.Write(rs3("username") & "<br>")

rs3.MoveNext
Loop While Not rs3.EOF
%>