dato i listbox

Jeg bruger følgende til at få datoerne fra 1 - 31 ind i listbox\'en:

Sub Date_FillBoxWithDays( nDefault )
    Dim nDay
    If nDefault = \"\" Then
        nDefault = Date_GetDayNo( Now() )
    End If
    For nDay = 1 To 31
        Response.Write \"<option\"
        If nDay = nDefault Then
            Response.Write \" selected=yes\"
        End If
        Response.Write \">\" & nDay & \"</option>\"
    Next
End Sub

Så udskriver jeg det med følgende:

Date_FillBoxWithDays Date_GetDayNo(Now())

Også kommer følgende fejl:

Typerne passer ikke sammen: \'Date_GetDayNo\'

En der kan finde fejlen der ?