UPDATE med WHERE IN?
Jeg laver et udtræk på nogle brugere, som jeg kører gennem en løkke som vist nedenfor.For at give formularfelterne unikke names og IDs, sætter jeg brugernes initialer ind bagved "name" og "id".
For ikke at skulle lave 200+ (9 formularfelter for hver bruger)
xxx='" & Request.Form("yyy") & "', ..............
i hånden, spekulerer jeg på, om man kan løse dette nemmere v.hj.a. WHERE IN?
Jeg håber du kan se hvordan jeg trækker alle brugere ud gennem én løkke. Det fungerer fint den vej. Tricket må være at kunne UPDAT nemmest muligt. Håber det kan lade sig gøre.
Og jeg håber mit spørgsmål og problemstillingen er til at forstå. Ellers spørg :)
<%
Set RSEast = Conn.Execute("SELECT * FROM [TABEL] ORDER BY initials ASC")
If Request.Form("mode") = "updatenow" Then
Dim allowdp
If LCase(Request.Form("allow") = "on" Then
allowdp = 1
Else
allowdp = 0
End If
SQL = "UPDATE [TABEL] SET [kolonne]='" & Request.Form("activity1<%=initEast%>") & "', allow=" & allowdp & " WHERE userID =" & Request.Form("foid") & ""
Response.Redirect("/............")
End If
%>
<html>
<body>
<%
If Not RSEast.EOF Then
Do Until RSEast.EOF
Dim initEast
initEast = LCase(RSEast("initials"))
%>
<form name="xxx" action="yyy" method="post">
<div><%=UCase(initEast)%></div>
<div><input type="hidden" name="foid" id="foid"></div>
<div>
<select size="1" name="activity1<%=initEast%>" id="activity1<%=initEast%>" class="selbox">
<option value="xxxx">.....</option>
</select>
</div>
<div><input type="text" name="act<%=<%=initEast%>" id="act<%=<%=initEast%>"></div>
<div><input type="checkbox" name="allow<%=initEast%>" id="allow<%=initEast%>" checked>
<div><input type="submit" name="xxx" value="yyy"></div>
<form>
<%
RSEast.MoveNext
Loop
End If
RSEast.Close
Set RSEast = Nothing
%>
</body>