Fast dato

Dim today, maaneder(12), kortarr, kort, tid;
today = now()
maaneder(0) = "Januar"
maaneder(1) = "Februar"
'...og så videre
kort = FormatDateTime(today, 2)
kortarr = Split(kort, "/")
tid = FormatDateTime(today, 4)
Response.write(kort(1) & " " & maaneder(kort(0)) & " " & kort(2) & " Kl: " & Join(Split(tid, ":"), ""))

Prøv med det :)

hov, der skal lige stå maaneder(Cint(kort(0)-1) i nederste linie i stedet for :) Ellers siger den nok en måned for højt.

Det okay bare skriv et svar fandt et andet men det der er sikkert os godt nok så du får bare de point der.

ok, men det skcipt jeg har skrevet skriver i hvert fald præcis hvad du vil have :)