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")
%>
