Internettime

Jeg har et lille internettime script. Jeg vil gerne have lavet sådan at den kører med en slags internettime sekunder eller hvad man nu kalder det. Her er mit script.

<script LANGUAGE="VBScript" RUNAT="Server">
FUNCTION InternetTime(TheTime)
    dim ITime
    ITime = CInt((Hour(TheTime)+Minute(TheTime)/60+Second(TheTime)/3600)/24*1000)
    ITime = ITime & "00" & ITime

    InternetTime = "@" & Right(ITime,3)
END FUNCTION
</script>

15 point til den venlige sjæl der kan sætte sekunder på mit script.

Mvh
Etle