Veckonummer

Jag vill beräkna fram veckonummer i ett ASP hack jag håller på med men hitter ingen direkt bra lösning för detta!
Dock så hittar jag följande VB kod....

MEN

Function myWeekNbr(myDate)
   Dim iWeek 
   Dim iYear 
    If IsDate(myDate) Then
        iWeek = Format(myDate, "WW", vbMonday, vbFirstFourDays)
        
        'Hantera specialfallen med felaktig vecka 53
        If iWeek > 52 Then
            If Format(CDate(myDate) + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then iWeek = 1
        End If
        
        'hantera årskifte
        If Mid(sDate, 6, 2) = "12" And iWeek = 1 Then
            iYear = CStr(CInt(Mid(myDate, 3, 2) + 1))
        Else
            iYear = Mid(myDate, 3, 2)
        End If        
        myWeekNbr = Right(iYear, 1) & Right(("00" & iWeek), 2)
  Else
    myWeekNbr = "000"
  End If
End Function

Någon som kan hjäpla mig med detta vad f a n gör "format"