hvad er der galt her?

Hej hvad er der galt her:

<%
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 derharsvaret = Server.CreateObject("ADODB.Recordset")
derharsvaret.Open "SELECT * FROM indlæg WHERE svartype ='svaret' and mailid=" & id, conn, 1, 3
%>
<form method="POST" action="?tilfoej=ja&id=<%=request.querystring("id")%>">
<%do until derharsvaret.eof%>
<%=derharsvaret("brugernavn")%><input type="hidden" name="<%=derharsvaret("brugerid")%>" value="<%=derharsvaret("brugerid")%>"><input type="text" name="<%=derharsvaret("brugernavn")%>" size="20"><br>
<%derharsvaret.movenext
loop
%>
<input type="submit" value="Send"></form>
<%if request("tilfoej") = "ja" then%>
<%
do until derharsvaret.EOF
%>
<%
id = request(""& derharsvaret("brugerid") & "")
set brugerop2 = Server.CreateObject("ADODB.Recordset")
brugerop2.Open "SELECT * FROM bruger WHERE id=" & id, conn, 1, 3

pointtjent = brugerop2("pointtjent") + request(""& derharsvaret("brugernavn") & "")

brugerop2("pointtjent") = pointtjent
brugerop2.Update
%>
<%
derharsvaret.movenext
loop
%>

<%end if%>

Jeg får ikke nogen fejl

/Peppino