Dato og klokken kode

Dato Script->
<%Response.Write FormatDateTime(Now, vbLongDate)%>

Kl. Script->
<%Response.Write FormatDateTime(Now, vbShortTime)%>

1:

<%
Dim monthArr, toDay
monthArr = Array(\"Januar\",\"Februar\", \"Mars\", \"April\", \"Mai\", \"Juni\", \"Juli\", \"August\", \"September\", \"Oktober\", \"November\", \"Desember\")
toDay = Date()
Response.write( Day( toDay ) & \". \" & monthArr( Month( toDay ) ) & \" \" & Year( toDay ) )
%>

2)

<%= FormatdateTime( Time(), vbShortTime ) %>

/nute

Her er et script, som jeg har delt op i to filer.
- Med dansk text.

default.asp:
<!--#include file=\"date.inc\"-->
<html>
<body>
<% Response.Write DanskDatoTid(Now) %>
</body>
</html>

date.inc:
<%
Function DanskDatoTid(dato)

  \' Array med danske navne på dage
  arrDag = \",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag\"
  arrDag = Split(arrDag,\",\")

  \' Array med danske navne på måneder
  arrMaaned = \",Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December\"
  arrMaaned = Split(arrMaaned,\",\")

  \' Datoen sammensættes
  DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & \", \" & Day(dato) & \". \"  & arrMaaned(Month(dato)) & \" \" & Year(dato)
\'  DanskDatoTid = DanskDatoTid  & \" kl. \" & FormatDateTime(dato, vbShortTime)

End Function
%>

Du kan så selv bestemme om du vil have uge dage med.

Jeg vælger at give point for dette svar. Tak.

Nute - >> kan man ikke få uret til at gå, uden man skal opdatere siden?

sj10 >> nei, det er da klart. Til det skal du bruke JavaScript

/nute

Et ur skal du altid lade køre klient-site.

j.robert >> det er ingen regel som sier at du *alltid skal* kjøre et ur client-side. Det er fullt mulig å kjøre et dynamsik ur fra serveren, meeen...det er ikke særlig *smart*

;-)

Jeg har indført ordet \"lade\" i min tidligere sætning.

Dette betyder at man godt kan gøre noget andet, men det ikke er så smart.
- Men takker for information, selv om jeg ved det.