er datoen idag eller igår

idag
if dato = now() then

igår
if dato = DateAdd("d", -1, now())

nupppede nedenstående... men 0 bliver ikke vist... why

<%
            Dato = rs("sidstonline")
            Forskel = DateDiff("d", Dato, Date)
   
            If Forskel = 0 Then
            Response.Write "I dag kl.: " & Hour(rs("sidstonline")) & ":" & Minute(rs("sidstonline")) & ":" & Second(rs("sidstonline"))
            ElseIf Forskel = 1 Then
              Response.Write "I går kl.: " & Hour(rs("sidstonline")) & ":" & Minute(rs("sidstonline")) & ":" & Second(rs("sidstonline"))
            Else
            Response.Write rs("sidstonline")
            End If
            %>

løst.