Database-forbindelse!

Hey !

Hvad er fejlen i dette:

<%
id = session("Id")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/db.mdb")
Conn.Open DSN

strSQL = "Select * From CommentsSystems Where BrusersId = " & Id
Set rs = Conn.Execute(strSQL)
%>
    <table>
<tr>
    <td>Comments-systems navn:</td>
    <td><input name="SystemNavn" value="<% Response.Write rs("SystemNavn") %>"></td>
</tr>
<tr>
    <td>Antal beskeder der skal vises:</td>
    <td><input name="AntalBeskeder" value="<% Response.Write rs("AntalBeskeder") %>"></td>
</tr>
<tr>
    <td>Overskriftens farve:</td>
    <td><input name="OverskriftFarve" value="<% Response.Write rs("OverskriftFarve") %>"></td>
</tr>
<tr>
    <td>Overskriftens bagrundsfarve:</td>
    <td><input name="OverskriftBagrund" value="<% Response.Write rs("OverskriftBagrund") %>"></td>
</tr>
<tr>
    <td>Beskedernes bagrundsfarve:</td>
    <td><input name="BeskederBagrund" value="<% Response.Write rs("BeskederBagrund") %>"></td>
</tr>
<tr>
    <td>Beskeder tekstfarve:</td>
    <td><input name="BeskederFarve" value="<% Response.Write rs("BeskederFarve") %>"></td>
</tr>
<tr>
    <td>Navnendes tekstfarve:</td>
    <td><input name="BeskederNavnFarve" value="<% Response.Write rs("BeskederNavnFarve") %>"></td>
</tr>
<tr>
    <td>Skriv-bagrund:</td>
    <td><input name="SkrivBagrund" value="<% Response.Write rs("SkrivBagrund") %>"></td>
</tr>
<tr>
    <td>SkrivTekstFarve:</td>
    <td><input name="SkrivTekstFarve" value="<% Response.Write rs("SkrivTekstFarve") %>"></td>
</tr>
<tr>
    <td>SkrivBeskedBagrund:</td>
    <td><input name="SkrivBeskedBagrund" value="<% Response.Write rs("SkrivBeskedBagrund") %>"></td>
</tr>
<tr>
    <td>SkrivBeskedFarve:</td>
    <td><input name="SkrivBeskedFarve" value="<% Response.Write rs("SkrivBeskedFarve") %>"></td>
</tr>
<tr>
    <td>Bagrunds farve:</td>
    <td><input name="Bagrund" value="<% Response.Write rs("Bagrund") %>"></td>
</tr>
<tr>
    <td></td>
    <td><input value="Opdater comments-system" type="Submit"></td>
</tr>
</table>
<%
Conn.Close
Set Conn = Nothing
%>


Fejlmedselsen er:
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'

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

/mikkel/nyt/commentssystem/rediger.asp, linje 69


/Firehat