Formatera datum

Enlight mig skall detta funka.

dtmDatum som är taget ifrån en databas är av formatet DateTime(0000-00-00 00:00:00)

Om jag gör en post med dagens datum så används ändå den fetstilta koden nedan.. Alltså tror skriptet att postens datum inte är dagens av någon outgrublig anledning.

  If FormatDateTime(dtmDatum,2) = Date Then
    dtmDatum = "Idag "&FormatDateTime(dtmDatum,4)
  ElseIf FormatDateTime(dtmDatum,2) = Date - 1 Then
    dtmDatum = "Igår "&FormatDateTime(dtmDatum,4)
  Else
[B]    dtmDatum=(Weekdayname(Weekday(dtmDatum)) &"en "&FormatDateTime(dtmDatum,1) &" " &FormatDateTime(dtmDatum,4))[/b]
  End If

Tack på förhand

Denna kod fungerar för mig du får göra om den så den passar dig:

Dim check
check = DateDiff("d", Date, Rs("datum")) 
if check = 0 then
response.write "<font color='#FF0000'>Idag</font> klockan "& FormatDateTime(Rs("datum"), 4) &"" 
elseif check = -1 then 
response.write "Igår klockan "& FormatDateTime(Rs("datum"), 4) &"" 
Else 
Response.Write FormatDateTime(Rs("datum"), 2) &" ["& FormatDateTime(Rs("datum"), 4) &"]"
End If

Tack efter lite modefiering fungerar det prima
Mange takk

inga problem kul att kunna ge tillbaka av all den kunskap som man fått här. :)