Andet format til et datofelt

<%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)

  response.write "<SELECT NAME="Dato">

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>
  %>

//>Rune

response.write "Det er "

if weekday(now, vbmonday) = 1 Then
response.write "Mandag"
End IF

if weekday(now, vbmonday) = 2 Then
response.write "Tirsdag"
End IF

if weekday(now, vbmonday) = 3 Then
response.write "Onsdag"
End IF

if weekday(now, vbmonday) = 4 Then
response.write "Torsdag"
End IF

if weekday(now, vbmonday) = 5 Then
response.write "Fredag"
End IF

if weekday(now, vbmonday) = 6 Then
response.write "Lørdag"
End IF

if weekday(now, vbmonday) = 7 Then
response.write "Søndag"
End IF

response.write " d. " & formatdatetime(now, vblongdate)

hov det kan jo gøres meget nemmere ;P

<%
response.write "Det er " & weekdayname(weekday(now)) & " d. " & FormatDateTime(now, vblongdate)
%>