Dato formatering udregning af dage til...

Hej Eksperter,

jeg har forsøgt at bikse et script sammen som farver datoen hvis
1) hvis datoen er indenfor de næste 4 dage
2) det er i dag = orange + fed
3) hvis datoen er overskredet = rød
4) hvis der ikke er angivet noget dato
5) viser datoen



strDato = objRec("opfoelgning")
    If strDato = now() then
        strFollowup = "<FONT COLOR=orange>" & objRec("opfoelgning") & "&nbsp;(" & DateDiff("d", Now(), strDato) & " i dag!)</font>"
   
    ElseIf DateDiff("d", Now(), strDato) < 0 then
        strFollowup = "<FONT COLOR=red>" & objRec("opfoelgning") & "&nbsp;(" & DateDiff("d", Now(), strDato) & " dage overskredet)</font>"
    ElseIf objRec("opfoelgning") = "" Then
        strFollowup = "<em>Ingen opf&oslash;lgning planlagt!</em>"
    Else
        strFollowup = objRec("opfoelgning")
    End If