Något är fel. HMMMM

Här är något fel tydligen. Men jag vet inte vad. kanske något i SQL satsen? Kan någon hjälpa mig.

Tack
<!-- #include virtual="\jwl\top.inc" -->
<!-- #include virtual="\jwl\adovbs.inc" -->
<center>
<TABLE width="300" border="0" cellspacing="0" cellpadding="1" bgcolor="#003300">
<tr>

<center><font class=trean>
Fråga:<p>
</center>
</tr>
<%
Dim slump
Randomize
slump = Int(Rnd * 3)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jwl\db\fragan.mdb"))
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM fragan WHERE id = slump "
RecSet.Open Addera, Conn, adOpenStatic, adLockOptimistic %>

<%dim varb, vara, varc, vard, vare
vara=RecSet("fraga")
varb=RecSet("svara")
varc=RecSet("svarb")
vard=RecSet("svarc")
vare=RecSet("svard")%>
<font class=trean>
<%Response.Write(vara)%>
<FORM method="POST" action="rattning.asp">
<INPUT TYPE=RADIO NAME="svar" VALUE="a"><%Response.Write(varb)%><br>
<INPUT TYPE=RADIO NAME="svar" VALUE="b"><%Response.Write(varc)%><br>
<INPUT TYPE=RADIO NAME="svar" VALUE="c"><%Response.Write(vard)%><br>
<INPUT TYPE=RADIO NAME="svar" VALUE="d"><%Response.Write(vare)%><br>
<INPUT TYPE=SUBMIT VALUE="skicka">

</FORM>

\<%
RecSet.Close

Conn.Close

 %\>

<p>

</table>

</body>
</html>

felmeddelandet är:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/jwl/quiz.asp, line 21

------------------