får följande mess:Data type mismatch in criteria expression.
Bifogar koden och hoppas att någon kan applicera sina falkögon i kodgröten och hitta den felande länken....
session.timeout = 5
if session("a") <> "1" then
session("fest") = Datepart("ww", Date(),2)
session("a")="1"
end if
%>
Matsedel för vecka
<%fest=session("fest")
if fest =< cint("2") then
response.write "2"
elseif fest > cint("23") then
response.write "23"
else
response.write fest
end if
Set Con = Server.CreateObject("ADODB.Connection")
path = "DBQ=" & ("c:\wwwroot\inetpub\matsedel.mdb")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};" & path," ",""
if session("fest") =< cint("2") then
SQL= "SELECT* FROM tabell1 WHERE veckonummer = '2' ORDER BY dagensdatum"
elseif session("fest") > cint("23") then
SQL= "SELECT* FROM tabell1 WHERE veckonummer = '23' ORDER BY dagensdatum"
else
SQL= "SELECT* FROM tabell1 WHERE veckonummer = " & fest & " ORDER by dagensdatum"
end if
set rs=con.execute(SQL)
fest = cint(session("fest"))
if fest <= 2 then
SQL= "SELECT* FROM tabell1 WHERE veckonummer = 2 ORDER BY dagensdatum"
elseif fest > 23 then
SQL= "SELECT* FROM tabell1 WHERE veckonummer = 23 ORDER BY dagensdatum"
else
SQL= "SELECT* FROM tabell1 WHERE veckonummer = " & fest & " ORDER by dagensdatum"
end if