datum, klocka

								datum = rs2("datum") 
select case cdate(FormatDateTime(datum,vbShortDate))
 case date()
  response.write "- Idag " & FormatDateTime(datum, vbShortTime)
 case dateadd("d",-1, date())
  response.write "- Igår " & FormatDateTime(datum, vbShortTime)
 case else
[B]  response.write FormatDateTime(datum, vbLongDate)[/B]
end select

hur får jag med så att klockslaget också står i det markerade?