Lille dum detajle driller mig

Nu husker du vel også at inkludere selve funktionen

'************************************************
' InternetBeats v1.1
' Per Ragnar Edin
' www.boogiedesign.com
' 2002.08.22
'
' Returns the Internet Beat Time
'
' Synntax: InternetBeats(Time as DateTime)
' Example: InternetBeats(Now())
'************************************************

function InternetBeats(dtmTime)
    dim arrOfTime(4)
   
    'Converts input value to date object
    dtmTime = CDate(dtmTime)
   
    ' Index of arrOfTime
    ' 0: Hours
    ' 1: Minutes
    ' 2: Secounds
    ' 3: InternetBeats
   
    'Puts the time into array
    arrOfTime(0) = Hour(dtmTime) - 1
    arrOfTime(1) = Minute(dtmTime)
    arrOfTime(2) = Second(dtmTime)
   
    'Corrects the hour value
    if arrOfTime(0) = -1 then
        arrOfTime(0) = 23
    end If
   
    'Calculating the internet beat time
    arrOfTime(3) = Left(Round(((CInt(arrOfTime(0)) * 3600) + (CInt(arrOfTime(1)) * 60) + (CInt(arrOfTime(2)))) * (1000 / 86400)), 3)
   
    'Returning the value
    InternetBeats = "@" & arrOfTime(3)
end function

Skal nok lige sige, at man skal klikke på den blå knap "Kod" for at se kildekoden.  :-)

Ja, men virker det hos dig?
Man skal jo også indramme hele koden i
<%
%>
ikke også?

...og skrive
<% Session.LCID = 1053 %>
i toppen af dokumentet, for at angive et dansk datoformat, ikke?

Indrømmet: Jeg er ikke så god til ASP...  :-)

Session.LCID = 1053  skal være Session.LCID = 1033

Nåe ja, det er jo det svenske/norske datoformat.  :-)
Men det virker alligevel ikke af den grund.  :-(

Lukker nu pga. manglende besvarelse.