vil ikke indsætte data i database
Hej..Nedenståend kode, skal hente et "katalog nr" fra min database, virker ok, derefter retter jeg nr og trykker gem. Men når jeg trykker gem, så slette den det gamle nr og indsætter ikke noget nyt, så flettet bliver bare blankt.
<% mode = request("mode") %>
<% if mode = "" then %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/auktion.mdb")
Conn.Open DSN
%>
<body bgcolor="#FFFFFF" text="#000000" background="" bgproperties="fixed">
<table width="78%" border="1">
<% set rskunder1 = Conn.execute("SELECT * FROM salgsliste")
do until rskunder1.eof %>
<tr>
<td width="3%"> <font face="Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder1("id")%>
</font></td>
<td width="30%"> <font face="Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder1("beskrivelse")%>
</font></td>
<td width="13%"><font face="Arial, Helvetica, sans-serif" size="2"><img border="0" src="img/<%=rskunder1("billede")%>" width="96" height="98"></font></td>
<td width="17%"> <font face="Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder1("pris")%>
kr. </font></td>
<td width="27%"> <font face="Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder1("navn")%>
<br>
<%Response.Write rskunder1("adresse")%>
<br>
<%Response.Write rskunder1("postnr")%>
 
<%Response.Write rskunder1("by")%>
<br>
<%Response.Write rskunder1("telefon")%>
<br>
<a href="mailto:<%Response.Write rskunder1("e-mail")%>">
<%Response.Write rskunder1("e-mail")%>
</a></font></td>
<td width="4%"> <font face="Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder1("katalognr")%>
<input type="text" name="katalognr" value="<%Response.Write rskunder1("katalognr")%>" size="5" maxlength="5">
</font></td>
<td width="6%"><font face="Arial, Helvetica, sans-serif" size="2"><a href="hh.asp?mode=gem&id=<%Response.Write rskunder1("id")%>">Gem</a></font>
</td>
</tr>
<%
rskunder1.movenext
loop
%>
</table>
<p> </p>
<p>
<br>
<%end if %>
<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/auktion.mdb")
Conn.Open DSN
set rskunder = server.createobject("adodb.recordset")
rskunder.open ("SELECT * FROM salgsliste WHERE id=" & request("id")), DSN, 1, 3
rskunder("katalognr") = request.form("katalognr")
rskunder.update
rskunder.Close
set rskunder = Nothing
Response.redirect("hh.asp")
end if
%>
