Brug
<%Session.LCID = 1030%>
"SotD" <sotd_dude@hotmail.com> wrote in message
news:3cb9c060$0$11997$edfadb0f@dspool01.news.tele.dk...
> Hej...
> Jeg mangler et tidsscript til en amerikansk server, som kan vise den
danske
> tid.
> Jeg har fundet dette ude på
www.activeserverpages.dk, men tiden bliver
> stadig 13.00 hvis klokken herhjemme er 19.00.
> Hvad skal jeg gøre???
> <script language="VBScript" runat="Server">
> Function DKDato(nDato, nFormat)
> If isDate(nDato) = False Then
> DKDato = nDato
> Exit Function
> End If
> Dim arrMinth
> Dim arrDays
> arrMonth =
>
"januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,
> december"
> arrMonth = Split(arrMonth,",")
> datDay = PutZero(Day(nDato))
> datMonth = PutZero(Month(nDato))
> datYear = Year(nDato)
> datHour = PutZero(Hour(nDato))
> datMin = PutZero(Minute(nDato))
> datSec = PutZero(Second(nDato))
> Select Case nFormat
> Case "#1"
> DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)
> Case "#2"
> DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&"
> "&datHour&":"&datMin
> Case "#3"
> DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&"
> "&datHour&":"&datMin&":"&datSec
> Case "#4"
> DKDato = datDay&"-"&datMonth&"-"&datYear
> Case "#5"
> DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
> Case "#6"
> DKDato = datDay&"-"&datMonth&"-"&datYear&" |
> "&datHour&":"&datMin&":"&datSec
> Case "#7"
> DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear
> Case "#8"
> DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
> "&datHour&":"&datMin
> Case "#9"
> DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
> "&datHour&":"&datMin&":"&datSec
> Case Else
> DKDato = nDato
> End Select
> End Function
>
> Function PutZero(value)
> If Len(value) = 1 Then value="0"&value
> PutZero = value
> End Function
> </script>
> <html>
>
> <head>
> <title>Tid</title>
> </head>
>
> <body>
> <%
> dtmNow = Now
> For num = 6 to 6
> Response.Write ""&DKDato(dtmNow,"#"&Num) & "<br>"
> Next
> %>
> </body>
>
> </html>
>
> Det skal lige siges, at jeg har valgt at få vist tiden som #6 metode.
>
> Håber nogen kan hjælpe mig :)
>
> Venlig hilsen
> Martin
>
>