Hvad er der galt.

Her er koden:
-------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/db.mdb")
Conn.Open DSN
id = Request.QueryString("id")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM mail WHERE id=" & id, conn, 1, 3
if rs("tilhorer") = request("bruger") then
if rs("læst") = "ja" then
else
rs.update
rs("læst") = "ja"
rs("læstdato") = now()
rs.update
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/db.mdb")
Conn1.Open DSN
id = rs("emne")
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "SELECT * FROM mail WHERE dato = '" & rs("dato") & "' and til = '" & rs("til") & "' and fra = '" & rs("fra") & "' and mappe='Udbakke' and emne=" & id, conn1, 1, 3
If Not (rs1.BOF Or rs1.EOF) Then
rs1.update
rs1("læst") = "ja"
rs1("læstdato") = now()
rs1.update
else
end if
end if
end if
%>
<%=RS("besked")%>
----------------
Og jeg får denne fejl:
----------------
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'

[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.

/nyhp/laes.asp, linje 32
----------------

/Peppino
http://www.peppino.dk