Nu har jeg lavet et lille test-setup, og nu er det testet og det virker.
Jeg har været nødt til at ændre på din DNS, for at få det til at virke hos mig. Ogsåer de rettet et par småfejl.
Jeg måtte også ændre på
set rs = Conn.execute("SELECT * FROM salgsliste where liste='Bilauktionskatalog'")
i VisPoster.asp, da min testdatabase ikke indeholdt et felt der hed liste. Men det kan du jo selv ændre igen. Det jeg viser her virker på min lille database med kun de 3 felter ID, Beskrivelse og Katalognr.
VisPoster.asp:
<%Option Explicit
dim Conn, DSN, rs, n
Set Conn = Server.CreateObject("ADODB.Connection")
DSN="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db/auktion.mdb")
Conn.Open DSN
set rs = Conn.execute("SELECT * FROM salgsliste")
'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="gem.asp" method=post>
<%
while not rs.eof
n=n+1
Response.write(rs("ID") & " " & rs("beskrivelse") & "<br>" & "<input type=text name=Nr" & n & " value=" & rs("katalognr") & ">")
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="Indsend">
</form>
</body>
</html>
Gem.asp:
<%Option Explicit
dim Conn, DSN, n, antal, ID, Katnr, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
DSN="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & 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 katalognr='" & Katnr & "' where ID=" & ID
Conn.execute SQL
next
Conn.close
set Conn=nothing
'Nu er de nye katalognumre gemt i databasen.
Response.Redirect("VisPoster.asp")
%>
Jeg valgte, at redirecte til VisPoster.asp, for at kontrollere, at tingene faktisk var ændret.
