Beat klok

<%
    Function InternetTime()
        M = Array(\"Januar\", \"Februar\", \"Marts\", \"April\", \"Maj\", \"Juni\",\"Juli\", \"August\", \"September\", \"Oktober\", \"November\", \"Decemeber\")
        D = Array(\"Søndag\", \"Mandag\", \"Tirsdag\", \"Onsdag\", \"Torsdag\",\"Fredag\", \"Lørdag\")

        ITime = CInt((Hour(Time) + Minute(Time) / 60 + Second(Time) / 3600) / 24 * 1000)
        ITime = ITime & \"00\" & ITime

        InternetTime = D(Weekday(Date)) & \" d. \" & Day(Date) & \" \" & M(Month(Now) - 1) & \" \" & Year(Now) & \" @ \" & Right(ITime, 3)
    End Function

    REsponse.WRite InternetTime
%>

Der var en fejl i den men den har tpiil rettet, men tak alligevel tdaugaard, her de 15 point

Måske nok fordi jeg havde taget den fra et VBScript (.vbs) ;-)