Run-time Error 507...

Jeg får en mystisk fejlmelding når jeg kører det her script:
<%
Dim Connect, rs, ThisDay, Query, connString
Set Connect = Server.CreateObject(\"ADODB.Connection\")
connString = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../menu/menu.mdb\")
Connect.Open connString
\'ThisDay = CStr(Date)
ThisDay = Mid(Date,4,2) & \"-\" & Mid(Date, 1,2) & Mid(Date,7,2)
Query = \"SELECT * FROM menu WHERE Date=#\" & ThisDay & \"#\"
Set rs = Connect.Execute(Query)
%>
<font size=\"5\"><%=Ucase(Left(WeekdayName(WeekDay(rs(\"Date\"))),1)) & Mid(WeekdayName(WeekDay(rs(\"Date\"))),2,Len(rs(\"Date\")-1)) & \", \" & FormatDateTime(rs(\"Date\"),1)%>
</font><br>
Hovedret: <%=rs(\"MainCourse\")%><br>
Frugt: <%=rs(\"Fruit\")%><br>
Grønsag: <%=rs(\"Vegetable\")%><br>
Dessert: <%=rs(\"Dessert\")%><p>


Fejlmeldingen:

error \'80020009\'
Exception occurred.
/camilla/menuopg/menu2.asp, line 18

bemærk linie 18 er denne:
\"><%=Ucase(Left(WeekdayName(WeekDay(rs(\"Date\"))),1)) & Mid(WeekdayName(WeekDay(rs(\"Date\"))),2,Len(rs(\"Date\")-1)) & \", \" & FormatDateTime(rs(\"Date\"),1)%>


Hvad kan der være galt?