ekstra felt

Hej.
I nedenstående kode, jeg har lidt problemer med at få indsat et ekstra felt. Feltet er oprettet i databasen og hedder"kobnr"
Håber en kan hjælpe!

<%Option Explicit
dim Conn, DSN, rs, n


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

set rs = Conn.execute("SELECT * FROM salgsliste where liste='Udrykkerauktion' order by katalognr")


'rs  forventer jeg nu, er et recordset, som indeholder
'ID, beskrivelse og katalognr, hvis katalognr.
'findes ellers er rs("katalognr") en tom streng
%>
<html>
<body>
<form action="gem1.asp" method=post>
<%
while not rs.eof
  n=n+1
  Response.write("Beskrivelse: " & rs("beskrivelse") & "<br>" & " Katalognr.:" & rs("katalognr") & "<br>" & "Pris.: " & "<input type=text name=Nr" & n & " value=" & rs("bud") & ">")
  Response.write("<input type=hidden name=ID" & n & " value=" & rs("ID") & "><p>")
  rs.movenext
wend
response.write("<input type=hidden name=antal value=" & n & "><p>")
%>
<input type=submit value="Gem">
</form>
</body>
</html>

Gem1.asp:
<%Option Explicit
dim Conn, DSN, n, antal, ID, Katnr, SQL

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

antal=Clng(Request.form("antal"))
for n=1 to antal
  ID=Clng(Request.Form("ID" & n))
  Katnr=Request.Form("Nr" & n)
  SQL="Update salgsliste set bud='" & Katnr & "' where ID=" & ID
  Conn.execute SQL
next
Conn.close
set Conn=nothing
'Nu er de nye katalognumre gemt i databasen.
Response.Redirect("tilfojsalgadmin.asp")
%>