Dato

<%
FUNCTION findMonth(sNow)
    findMonth = month(sNow)
    SELECT CASE findMonth
        CASE 1
            findMonth = "januar"
        CASE 2
            findMonth = "februar"
        CASE 3
            findMonth = "marts"
        CASE 4
            findMonth = "april"
        CASE 5
            findMonth = "maj"
        CASE 6
            findMonth = "juni"
        CASE 7
            findMonth = "juli"
        CASE 8
            findMonth = "august"
        CASE 9
            findMonth = "september"
        CASE 10
            findMonth = "oktober"
        CASE 11
            findMonth = "november"
        CASE 12
            findMonth = "december"
    END SELECT
END FUNCTION
FUNCTION findDay(sNow)
    findDay = weekday(sNow)
    SELECT CASE findDay
        CASE 1
            findDay = "søndag"
        CASE 2
            findDay = "mandag"
        CASE 3
            findDay = "tirsdag"
        CASE 4
            findDay = "onsdag"
        CASE 5
            findDay = "torsdag"
        CASE 6
            findDay = "fredag"
        CASE 7
            findDay = "lørdag"
    END SELECT
END FUNCTION

datotid = now() 'indsæt dit udtræk her i stedet for now()
datotid = findDay(datotid) & ", d. " & day(datotid) & " " & findMonth(datotid) & " " & year(datotid) & " Kl. " & hour(datotid) & ":" & minute(datotid)
%>