Kan du hjælpe mig?
Jeg har fundet dette script her på eksperten:<%
\'opretter dato til genkendelse i Databasen
Dato = Day(Date) & 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\\database.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
%> Jeg har selv lavt en database til scriptet
men når jeg smidet ud på min sice får jeg denne fejl \" Microsoft VBScript runtime error \'800a01a8\'
Object required: \'UgeDag\'
today.asp, line 47 \"
/mulle
