Har en databas i access med tabellen index med två kolumner i: ID och GRUPP.
Id med primärnyckel och grupp med true/false värde. Alltså en checkbox.
Jag vill göra en sida som listar alla id med en box bredvid så man kan klicka i och ändra värdet på true/false på flera samtidigt, alltså kanske klicka i 5 som man vill sätta som true och sen submitta det.
Någon som vill hjälpa? vore nice!
tack och glad första advent snart =)
<FORM ACTION="sida2.asp">
<%
'Databasanslutning och annat mojs
set rs=conn.execute("SELECT ID,Grupp from tabellen")
do until rs.eof
response.write "<INPUT TYPE=""CHECKBOX"" NAME="gruppcheck" VALUE=""" & rs("ID") & """"
if rs("Grupp") then response.write " CHECKED"
response.write ">" & rs("ID") & "<BR>"
rs.movenext
loop
'stäng anslutning etc
%>
<INPUT TYPE="SUBMIT" VALUE="SPARA">
</FORM>
Sida2.asp
<%
'Databasanslutning och annat mojs
mSQL="UPDATE tabell set grupp=1 WHERE ID IN(" & request("gruppcheck") & ")"
conn.execute mSQL
mSQL="UPDATE tabell set grupp=0 WHERE ID NOT IN(" & request("gruppcheck") & ")"
conn.execute mSQL
'stäng anslutning etc
%>
Uppdaterad!
okej lysande funkade perfa!
har skapat en tabell också som heter roll. där skall man kan mata in valfri text på varje.
Så bredvid varje checkbox en formtextruta där man kan mata in för respektive id som den hämtar och sen lagra det med checkboxens värdeockså.
<FORM ACTION="sida2.asp">
<%
'Databasanslutning och annat mojs
set rs=conn.execute("SELECT ID,Grupp,Kommentar from tabellen")
do until rs.eof
response.write "<INPUT TYPE=""CHECKBOX"" NAME=""gruppcheck"" VALUE=""" & rs("ID") & """"
if rs("Grupp") then response.write " CHECKED"
response.write ">" & rs("ID") & "<INPUT TYPE=""HIDDEN"" NAME=""ID"" VALUE=""" & rs("ID") & """><INPUT NAME=""kommentar"" VALUE=""" & rs("Kommentar") & """><BR>"
rs.movenext
loop
'stäng anslutning etc
%>
<INPUT TYPE="SUBMIT" VALUE="SPARA">
</FORM>
Sida2.asp
<%
'Databasanslutning och annat mojs
mSQL="UPDATE tabell set grupp=1 WHERE ID IN(" & request("gruppcheck") & ")"
conn.execute mSQL
mSQL="UPDATE tabell set grupp=0 WHERE ID NOT IN(" & request("gruppcheck") & ")"
conn.execute mSQL
for i=1 to request("ID").count
mSQL="UPDATE tabell set Kommentar='" & request("Kommentar")(i) & "' WHERE ID=" & request("ID")(i)
conn.execute mSQL
next
'stäng anslutning etc
%>
Uppdaterad!
259 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
