formattering af dato

dim dagArray("Mandag", "Tirsdag", "Onsdag"...)
dim maanedArray("januar", "februar", ...)

response.write(dagArray(day(now())-1)&"<br>"&date()&". "&maanedArray(month()-1)&" "&year())


burde virke

skrives det så på engelsk, hvis jeg ændrer i array til engelske dage og måneder - selvom serveren er dansk?

hotcut > jeg får en fejlmelding:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0402'

En heltalskonstant var ventet

/canedo/right.asp, linje 12

dim dagArray("Mandag", "Tirsdag", "Onsdag"...)
-------------^

... skal selvfølgelig erstattes med dagene; jeg var bare for doven til at skrive det

DO! kan godt se det, - tester lige igen

men jeg får samme melding:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0402'

En heltalskonstant var ventet

/canedo/right.asp, linje 12

dim dagArray("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Søndag")
-------------^

<%

'Sætter locale til dansk
Session.LCID = 1030

'Returnerer dagen med stort forbogstav
'Hvis det ikke er en valid dato, returneres en tom streng
Function FormatDag(dtmDato)
    If isdate(dtmDato) Then
        arrDage = Array("S&oslash;ndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","L&oslash;rdag")
        FormatDag = arrDage(weekday(dtmDato,1)-1)
    Else
        FormatDag = ""
    End If
End Function

'Returnerer en streng med teksten, der skal udskrives
Function FormatDato(dtmDato)
    If isdate(dtmDato) Then
        FormatDato = FormatDag(dtmDato) & "<br>"
        FormatDato = FormatDato & FormatDateTime(dtmDato,2)
    Else
        FormatDato = ""
    End If
End Function

'Udskriv datoen
Response.Write(FormatDato(Date()))

%>

kimiwan >
den udskriver:
Søndag
12-05-02

og ikke
Søndag
12. maj 2002

oops.. udskift FormatDateTime(dtmDato,2) med FormatDateTime(dtmDato,1)

Jeg har denne:

arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
datoStreng = arrDay(WeekDay(now)-1) & "<br>" & day(now) & ". " & arrMonth(CInt(month(now()))-1) & " " & Year(now)

Response.Write datoStreng

eagleeye:

Hvad har monthname(month(date())) gjort dig? ;o)

(husk på at på dansk skriver vi månedernes navne med lille)

Eagleeye > tak for det :-)