formatering af datoer i ASP

http://www.activeserverpages.dk/aspdigital/kapitel1/formatdate.asp

jeg har lavet denne (noget omstændige) funktion:

function userDateTimeToStr(dt)

    dim h,n,s,d,m,y,dtStr

    h = DatePart(\"h\",dt)
    n = DatePart(\"n\",dt)
    s = DatePart(\"s\",dt)
    d = DatePart(\"d\",dt)
    m = DatePart(\"m\",dt)
    y = DatePart(\"yyyy\",dt)

    if CInt(d) < 10 then
        dtStr = \"0\" & d
    end if
    dtStr = dtStr & d & \"-\"
   
    if CInt(m) < 10 then
        dtStr = dtStr & \"0\"
    end if
    dtStr = dtStr & m & \"-\" & y & \" \"

    if CInt(h) < 10 then
        dtStr = dtStr & \"0\"
    end if
    dtStr = dtStr & h & \":\"
    if CInt(n) < 10 then
        dtStr = dtStr & \"0\"
    end if
    dtStr = dtStr & n & \":\"
    if CInt(s) < 10 then
        dtStr = dtStr & \"0\"
    end if
    dtStr = dtStr & s   

    userDateTimeToStr = dtStr

end function

- som returnerer en DateTime i formattet:

dd-mm-yyyy hh:mm:ss

Lav den selv:

Dansk dato dd-mm-yyyy
dato = Day(date) & \"-\" & Mounth(Date) & \"-\" Year(Date)

Kig evt. på funktionen:

FormatDateTime(Date[, NamedFormat])

i dokumentationen til PWS/IIS.
-søren

Du kan prøvet at sætte dette ind i toppen af alle dine .asp sider:
<% session.LCID=1030 %>