ASP: Weekday problem
Hej eksperterJeg er stødt ind i et problem med min ASP kode. Jeg ønsker at min kode skal udskrive åbningstiden på den pågældende ugedag, som følge af et tjek med en Access database, men jeg får flg. fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/cf/default.asp, line 41
Linie 41 er: Set rs = Conn.Execute(strSQL)
<%
Ugedag = (Weekday(Date,1))
if Ugedag = "1" then
UgedagDK = "Søndag"
elseif Ugedag = "2" then
UgedagDK = "Mandag"
elseif Ugedag = "3" then
UgedagDK = "Tirsdag"
elseif Ugedag = "4" then
UgedagDK = "Onsdag"
elseif Ugedag = "5" then
UgedagDK = "Torsdag"
elseif Ugedag = "6" then
UgedagDK = "Fredag"
elseif Ugedag = "7" then
UgedagDK = "Lørdag"
end if
response.write UgedagDK
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("cfd.mdb")
Conn.Open DSN
strSQL = "Select * From aabningstider Where dag = " & UgedagDK
Set rs = Conn.Execute(strSQL)
Response.write rs("start")
Conn.Close
Set Conn = Nothing
%>