Er den dum eller ?

Hmm den kan ikke finde ud af hvad uge dag det er:

Eks. Saturday - 6 Juli 2000  det passer vis ikke helt.

Se her:

http://www.clanworld.dk/nb/tagwall/

Lidt kode:

<% Response.Buffer = True %>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Tagwall.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Tagwall ORDER BY Date DESC"
    rs.Open strSQL, myConn, 1, 3
%>
<%
Select Case weekday(rs("Date"))
case 1 dag = "Sunday"
case 2 dag = "Monday"
case 3 dag = "Tuesday"
case 4 dag = "Wednesday"
case 5 dag = "Thursday"
case 6 dag = "Friday"
case 7 dag = "Saturday"
End Select

Select Case month(rs("Date"))
case 1 maaned = " Januar "
case 2 maaned = " Februar "
case 3 maaned = " Marts "
case 4 maaned = " April "
case 5 maaned = " Maj "
case 6 maaned = " Juni "
case 7 maaned = " Juli "
case 8 maaned = " August "
case 9 maaned = " September "
case 10 maaned = " Oktober "
case 11 maaned = " November "
case 12 maaned = " December "
End Select
%>

Her skriver jeg dag dato ud:

<% response.write  dag &  " - " & day(rs("Date")) & maaned & year(rs("Date"))%>

Håber at der er en der kan hjælpe lille wall :P

Mvh

<% Wall %>