*** Opdatering:
Jeg har lavet nogle ændringer, og tilføjet nogle ting:
- formen har nu fået navnet "frmOptions"
- et script er tilføjet (funktionen "RemoveAll")
- knapper er ændret, og ny knap tilføjet: "Fjern ALLE hak!" (fjerner alle hak)
Koderne skal bare erstatte det gamle kode.. husk dog at indsætte "der er x antal.." det rigtige sted..
---------------- Koden til siden med checkboxe:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gaest"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("gaestbogenfloorball.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
%>
<form name="frmOptions" action="Deleteall.asp?id=<%=rs("id")%>" method="post">
<!-- Dette er en test form: --><!-- <form name="frmOptions" action="doit.asp" method="post"> -->
<p style="margin-top: 0; margin-bottom: 0">
<input type="submit" value="Opdater databasen" name="Opdater">
<input type="reset" value="Nulstil til orginale vaerdier" name="Resetindhold">
<input type="button" value="Fjern ALLE hak!" name="btnRemoveAll" onclick="RemoveAll()">
</p>
<p style="margin-top: 0; margin-bottom: 0">
<%
Do While Not rs.EOF
%>
<input type="checkbox" name="Visindlaeg" value="<%=rs("id")%>"> (slet) <%=rs("Dato")%>
<input type="checkbox" name="Vises" value="<%=rs("id")%>"<% if rs("skjules") = True then response.write " checked"%>> (skjul)<br>
<%
rs.MoveNext
Loop
rs.close
Set rs = Nothing
set conn = nothing
else
response.write "Der er ikke noget i databasen!"
end if
%>
<script type="text/JavaScript">
function RemoveAll()
{
var el = document.frmOptions.elements;
for (i=0; i< el.length;i++) {
if (el[i].type == "checkbox") (el[i].checked = false);
}
}
</script>
---------------- Koden til "opdater"-delen:
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("gaestbogenfloorball.mdb")
Conn.Open DSN
' ---------- hent alle id'erne:
set rs = conn.execute("select * from gaest")
dim id_all
id_all = ""
if not (rs.bof or rs.eof) then
do while not rs.eof
id_all = id_all & rs("id") & ","
rs.movenext
loop
end if
' fjern det sidste ",":
id_all = left(id_all, len(id_all) - 1)
response.write "<br>id_all: " & id_all & "<br>"
' ---------- nulstil alle "skjules"-felter:
id_all = split(id_all, ",")
for i = 0 to ubound(id_all)
conn.execute("update gaest set skjules = false where id = " & id_all(i))
next
' ---------- her skjules de valgte indlæg:
dim arrSkjules
arrSkjules = ""
arrSkjules = request.form("vises")
if arrSkjules <> "" then
arrSkjules = split(arrSkjules, ",")
response.write "Skjules:<br><br>"
for i = 0 to ubound(arrSkjules)
response.write arrSkjules(i) & "<br>"
conn.execute("update gaest set skjules = true where id = " & arrSkjules(i))
next
end if
' ---------- her slettes de valgte indlæg:
dim valgte
valgte = ""
valgte = Request.Form("Visindlaeg")
if valgte <> "" then
valgte = Split(valgte, ",")
for i = 0 to ubound(valgte)
Conn.Execute("delete from gaest where id = " & valgte(i))
next
end if
'Luk database
Conn.Close
Set Conn = Nothing
Ny bruger
Nybegynder
Opret
Preview
