Opdater chechbox ved markering
Jeg har en liste af medlemmer som bliver smidt ind i en database.Jeg henter dem så ud på min admin side hvor de så skal godkendes eller slettes.
Det jeg så gerne vil have hjælp til er hvordan man opdatere den enkelte bruger som godkendt lige så snart man krydser chechboxen af. eller omvendt...
Jeg har dette stykke kode...
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../../data/fans.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sqll = "SELECT * From medlemmer ORDER BY dato DESC"
Set rs = Con.Execute(Sqll)
%>
<tr>
<td width="30%" align="left" class="tekst_fed">Navn</td><td width="30%" align="left" class="tekst_fed">E-mail</td>
<td width="20%" align="left" class="tekst_fed">By</td>
<td width="10%" align="center" class="tekst_fed">Godkend</td>
<td width="10%" align="center" class="tekst_fed">Slet</td>
</tr>
<% Do While Not rs.EOF
strID = Request("ID") %>
<tr><td width="30%" align="left" class="tekst_fed"><%=rs("navn")%></td>
<td width="30%" align="left" class="tekst_fed"><%=rs("email")%></td>
<td width="20%" align="left" class="tekst_fed"><%=rs("city")%></td>
<td width="10%" align="center" class="tekst_fed"><input type="checkbox" class="forms" name="medlem" value="True" <%If RS("godkend") = "True" Then Response.Write "checked" End If%>></td>
<td width="10%" align="center" class="tekst_fed">Slet</td>
</tr>
<%
rs.MoveNext
Loop
rs.close
Set rs=nothing %>
