<% If request.form("laest_brev") = "OFF" Then set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb") strSQL = "update post set laest=true where post_id IN ("& request.form("laest_brev")&")" Conn.Execute(strSQL) Conn.Close end if %> Sådan ser det der skal køres ud, og sådan ser mine checkbokse ud <% if rs("laest")=true then%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>" checked><%else%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>"><%end if%>
<% If len(request.form("laest_brev"))>0 Then set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb") strSQL = "update post set laest=true where post_id IN ("& request.form("laest_brev")&")" Conn.Execute(strSQL) Conn.Close end if %> Sådan ser det der skal køres ud, og sådan ser mine checkbokse ud <% dim checked if rs("laest")=true then checked=" checked" else checked="" end if%> <input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>"<%=checked%>>
Muligvis fordi den KUN har en default value, der hedder "on", så!
No_doubt,
Hvis det er rigtigt, så skal du lige ændre lidt mere i din kode:
<% If not request.form("laest_brev") = "isON" Then set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb") strSQL = "update post set laest=true where post_id IN ("& request.form("laest_brev")&")" Conn.Execute(strSQL) Conn.Close end if %>
Det skal ganske enkelt være sådan at hvis man fjerne krydset skal det pågældene id's laest kolonne sættes til false.. thats it.. og jeg ønsker at bevare den nuværende kode ved checkboksene
<% If request.servervariables("REQUEST_METHOD") = "POST" Then set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb") strSQL = "update post set laest="&request.form("laest_brev")>0&" where post_id IN ("& request.form("laest_brev")&")" Conn.Execute(strSQL) Conn.Close end if %> Sådan ser det der skal køres ud, og sådan ser mine checkbokse ud <% if rs("laest")=true then%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>" checked><%else%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>"><%end if%>
<% If request.servervariables("REQUEST_METHOD") = "POST" Then set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb") strSQL = "update post set laest="&len(request.form("laest_brev"))>0&" where post_id IN ("& request.form("laest_brev")&")" Conn.Execute(strSQL) Conn.Close end if %> Sådan ser det der skal køres ud, og sådan ser mine checkbokse ud <% if rs("laest")=true then%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>" checked><%else%><input type="checkbox" onclick="this.form.submit(this)" name="laest_brev" value="<%=rs("post_id")%>"><%end if%>
Kort: Alle læse breve har et kryd i laest_brev checkboksen Fjerner man det kryds skal det være unmarked OG ulaest (=false) i databasen, de andre skal være som før klikket
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.