Nye problemer med Dagens text
Nu får jeg denne fejl :Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'UgeDag\'
/dagenstext/Default.asp, line 47
Her er koden :
<%
\'opretter dato til genkendelse i Databasen
Dato = Day(Date) & \"0\" & Month(Date)
\'sætter nummer på ugens dage. søndag som nummer 1
UgeNummer = WEEKDAY(DATE)
\'sætter nummer på måneden
MaanedNummer = MONTH(DATE)
\'opretter forbindelse til databasen
Set Almanak = Server.CreateObject(\"ADODB.Connection\")
Almanak.Open \"DBQ=F:\\home\\domaene\\Almanak.mdb;DefaultDir=F:\\home\\domaene\\;Driver={Microsoft Access Driver (*.mdb)}\"
Set DagenIdag = Almanak.Execute(\"SELECT * FROM DagenIdag WHERE dBDato = \" & Dato & \" \")
WHILE NOT DagenIdag.EOF
Set UgeDag = Almanak.Execute(\"SELECT * FROM UgeDag WHERE ID = \" & UgeNummer & \" \")
WHILE NOT UgeDag.EOF
Set Maaned = Almanak.Execute(\"SELECT * FROM UgeDag WHERE ID = \" & MaanedNummer & \" \")
WHILE NOT Maaned.EOF
%>
<HTML>
<BODY>
<%
Response.Write(DagenIdag(\"DagensNavn\"))
%>, <%
Response.Write(UgeDag(\"UgeDag\"))
%> den <%=DAY(DATE)%>. <%
Response.Write(Maaned(\"Maaned\"))
UgeDag.MoveNext
Maaned.MoveNext
%> <%=YEAR(DATE)%>. Det er også dagen hvor <%
Response.Write (DagenIdag(\"Begivenhed\"))
DagenIdag.MoveNext
%>
</BODY>
</HTML>
<%
WEND
WEND
WEND
DagenIdag.Close
UgeDag.close
Maaned.Close
Almanaken.close
%>
