problem med at indsætte i DB

hej jeg kan ikke få det til at virke... jeg kan ikke finde ud af hvordan jeg få denne side til at indsætte data ind i db.

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Inetpub/wwwroot/data/PtoAinternet.mdb"

set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select FAG.Fag from ELEVER, HLEL, HOLD, FAG WHERE ELEVER.ElevId=HLEL.ElevID AND HLEL.HoldId=HOLD.HoldId AND HOLD.FagId=FAG.FagId AND ELEVER.ElevId=" & Request.Querystring("ElevId"), conn
%>

<%
Response.Write("Navn:" & Fornavn & Efternavn & "<br>")
spkarakter=Request.Form("spkarakter")
%>
<form name="spkarakter" action="test5.asp" method="post">
<table width="622px" border="0" cellspacing="0">

<tr bgcolor="#FFFFCC">
  <td width="20%" rowspan="2"><strong class="overskrift1">Fag</strong></td>
  <td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Meget <br />
  tilfredsstillende</font></div></td>
  <td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Tilfredsstillende</font></div></td>
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Mindre <br />
  tilfredsstillende</font></div></td>
<td width="31%" rowspan="2"><div align="center" class="overskrift1"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><strong>Bemerkning</strong></font></div></td>
</tr>
<tr bgcolor="#FFFFCC">
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
  <td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
  </tr>
    <% do until rs.EOF %>
 
<tr>
<%    for each x in rs.fields %>
  <td colspan="8"><table width="100%" cellspacing="0"  border="0">
<%
intBg = 0
if bg mod 2 = 0 then
    Bgcolor = "bgcolor=#fffffc"
else
    Bgcolor = "bgcolor=#ffffcc"
End if
%>
<tr <% Response.write bgcolor %>>
<%
bg = bg + 1
%><%
intI = 1
intE = 2
if i <> e then
    i = i + 2
    e = e + 2
else
    i = i + 1
    e = e + 2
End if
%>

    <td width="20%">
    <%
        Response.write(x.value)
    %>  </td>
<td width="8%"><div align="center">
    <input type="radio" name="<%=i%>" value="name1" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="<%=e%>" value="name2" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="<%=i%>" value="name3" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="<%=e%>" value="name4" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="<%=i%>" value="name5" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="<%=e%>" value="name6" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="31%">&nbsp;</td>
    </tr>
  </table>
    <div align="center">
        <%
next
rs.MoveNext
loop %>
        <br><input name="submit" type="submit" class="knap" value="GEM">
    </div></td>
  </tr>
</table>

<div align="center"></div>
</form>
<!-- her nede skal man nok lave om på hvordan man udskriver resultatet, er i tvivl hvordan -->
<%
if spkarakter<>"" then

  Response.Write("<p>Dine givne karakter er: " & spkarakter)%>
<%end if
%>

<%
rs.close
conn.close
%>