Opdatere en flere RS via asp ?
Der er noget galt....Jeg er nok ingen haj til hverken asp eller SQL, men det må kunne lade sig gøre at opdatere flere records i den samme tabel, ad 1 gang...
jeg har forsøgt, men detvirker åbenbart ikke.
Min database er en MYSQL, og tabelen indeholder 3 felter:
AID (auto id), aktivitet, pris. min kode er som herunder:
<body class="text">
<p><center><h3></h3></center></p>
<%
if request.QueryString("step") = "" or request.QueryString("step") = 1 then
%>
<form action="?step=2" method="post">
<input type="submit" class="submit" name="Opdater" value="Opdater">
<table class="tabel">
<tr>
<th>
Aktivitet
</th>
<td> </td>
<th>Pris</th>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={MySql}; SERVER=localhost; DATABASE=****; UID=****; PWD=****"
conn.Open strConnect
strSQL= "SELECT * from aktivitet ORDER BY aktivitet"
set RS=Conn.Execute(strSQl)
dim tal, tal2
do until RS.EOF
tal2=tal2+1 ' Tæller til aktivitet
tal=tal+1 ' tæller til pris
%>
<tr>
<td>
<input name="id<% Response.Write RS("AID") %>" type="text" id="id" value="<% Response.Write RS("AID") %>" size="3" maxlength="1">
</td>
<td>
<% response.write RS.fields("aktivitet")%>">
<td>
</td>
<td>
<input type="text" name="Priser" size="6" value="<% response.write RS.fields("pris")%>">
</td>
</td>
<td> </td>
<td></td>
</tr>
</form>
<%
RS.movenext
loop
end if
if request.QueryString("step") = 2 then
'-------------------- Skriver pris -------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={MySql}; SERVER=localhost; DATABASE=****; UID=****; PWD=****"
conn.Open strConnect
For Each elem In Request.Form("id")
valu = Request.Form("Priser" & elem)
strSQL = "UPDATE <tabel> SET pris='"& valu & "' WHERE produkt_id='" & elem & "'"
conn.Execute(strSQL)
next
conn.close
set conn=nothing
end if
%>
</table>
</body>
