Datum + tid...

Jag har lagt in ett datum i Access-databasen (now) och vill få datumet i formatet
Söndagen 16. Juni kl. 22:49
???

http://www.webforum.nu/showthread.php?s=&threadid=45080

Kolla här!

<%Response.write UCase(Left(WeekDayName(WeekDay(Date)), 1)) & Right(WeekDayName(WeekDay(Date)), Len(WeekDayName(WeekDay(date))) -1)&"en " & FormatDateTime(now,1)&" Kl. "& left(time(),5)%>

Skall man hålla på att frisera koden och lägga in "kl." osv så tror jag att det är svårt att lägga in den som den är, då är det bättre att lägga in den på vanligt sätt, alltså hela datumet inkl. tid och sen när du plockar ut det så gör du något liknande som jag gjort här ovan. (Byt ut "date" mot ditt recset istället.)
MVH Jesper

eller med reg.exp:

<%
Function Free(f2)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
f2 = Server.HTMLEncode(f2)

objRegExp.Pattern = date()
f2 = objRegExp.Replace(f2,"Idag")

objRegExp.Pattern = date()-1
f2 = objRegExp.Replace(f2,"Igår")

for i = 1 to 12
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, true)) & " $1") 
next

objRegExp.Pattern = "(..:..)(:..)"
f2 = objRegExp.Replace(f2,"<font class=""time""><i>kl:$1</i></font>")

	free = f2
End Function
%>

vad ska bytas ut da?