Dato formattering med 3 karakterer for måned

Der er selvfølgelig flere måder at gøre det på...
En måde er:

strDatoStreng = "2006-02-19"

arrDato = Split(strDatoStreng, "-")

strDato = arrDato(2)
strMaaned = arrDato(1)
strAar = arrDato(0)

If strMaaned = "01" Then
strMaanedK = "JAN"
ElseIf strMaaned = "02" Then
strMaanedK = "FEB"
ElseIf strMaaned = "03" Then
strMaanedK = "MAR"
ElseIf strMaaned = "04" Then
strMaanedK = "APR"
ElseIf strMaaned = "05" Then
strMaanedK = "MAJ"
ElseIf strMaaned = "06" Then
strMaanedK = "JUN"
ElseIf strMaaned = "07" Then
strMaanedK = "JUL"
ElseIf strMaaned = "08" Then
strMaanedK = "AUG"
ElseIf strMaaned = "09" Then
strMaanedK = "SEP"
ElseIf strMaaned = "10" Then
strMaanedK = "OKT"
ElseIf strMaaned = "11" Then
strMaanedK = "NOV"
ElseIf strMaaned = "12" Then
strMaanedK = "DEC"
Else
strMaanedK = ""
End if



strDatoK = strMaanedK & strDato & strAar

Tjae... det er noget omstændigt men her er der et forslag:
<%
function dato(streng)
dato = streng
    if (dato <> "" AND isdate(dato)) then
dag = day(dato)
maaned = month(dato)
aar = year(dato)
    if (maaned = 1 OR maaned = 01) then
    maaned = "JAN"
    elseif (maaned = 2 OR maaned = 02) then
    maaned = "FEB"
    elseif (maaned = 3 OR maaned = 03) then
    maaned = "MAR"
    elseif (maaned = 4 OR maaned = 04) then
    maaned = "APR"
    elseif (maaned = 5 OR maaned = 05) then
    maaned = "MAJ"
    elseif (maaned = 6 OR maaned = 06) then
    maaned = "JUN"
    elseif (maaned = 7 OR maaned = 07) then
    maaned = "JUL"
    elseif (maaned = 8 OR maaned = 08) then
    maaned = "AUG"
    elseif (maaned = 9 OR maaned = 09) then
    maaned = "SEP"
    elseif maaned = 10 then
    maaned = "OKT"
    elseif maaned = 11 then
    maaned = "NOV"
    elseif maaned = 12 then
    maaned = "DEC"
    end if
dato = maaned & " " & dag & " " & aar
    else
dato = ""
    end if
end function
%>
<%="" & dato(now()) & ""%>
<br>
<%="" & dato("17-02-2006") & ""%>

Her er det lavet som en function hvor du kan bruge begge de metoder som du ser nederst...

\Dan

super cool Dan
jeg har brugt din løsning og det virker perfekt!
tusinde tak

link: http://www.because-test.dk/bead%2Dit/

Jamen det var da godt så!

- Jeg smider lige et svar så - hvis du synes jeg skal have point...

Godt det virker!

\Dan

:) tak
og god weekend til alle

Hej igen...
- Ja, vi lærer jo noget nyt hele tiden altid... Og det har jeg så også gjort og jeg vil hermed give dig en noget mere simpel og overskuelig function som kan præcis det samme!
<%
function dato(streng)
dato = streng
    if (dato <> "" AND isdate(dato)) then
dag = day(dato)
maaned = ucase(monthname(month(dato),true))
aar = year(dato)
dato = manned & " " & dag & " " & aar
else
dato = ""
end if
end function
%>