\"Slet\" fra database option
Jeg fik for ca. to måneder siden eagleeye til at hjælpe mig med denne kode:<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td colspan=\"5\"><div class=\"Overskrift\">Se alle nyheder:<br><br></div></td>
</tr>
<tr>
<td><div class=\"Black\">Vis</td>
<td><div class=\"Black\">Dato:</td>
<td><div class=\"Black\">Headline:</td>
<td><div class=\"Black\"> </td>
<td><div class=\"Black\">Overskrift:</td>
</tr>
<tr> <form method=\"Post\" action=\"UpdateView.asp\">
<td colspan=\"5\" align=\"Left\"><hr width=\"90%\"></td>
</tr>
<%
set ObjConn = Server.CreateObject (\"ADODB.Connection\")
strConnDriver=\"Driver={Microsoft Access Driver (*.mdb)};\"
strConnPath=\"DBQ=\" & Server.MapPath (\"../../db/data.mdb\")
objConn.Open strConnDriver & strConnPath
set RS = Server.CreateObject (\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM news ORDER BY ID\"
RS.Open strSQL, objConn, 3, 1
if RS.EOF then
Response.Write \"<div class=\'Text\'>Der er endnu ingen nyheder.</div>\"
else
Do until rs.eof
%>
<tr>
<td valign=\"top\"><input type=\"checkbox\" name=\"visstatus\" value=\"<%=rs(\"ID\")%>\" <% if rs(\"vis\") = true then Response.Write \"checked\"%>></td>
<td valign=\"top\"><div class=\"Text\"><a href=\'./EditNews.asp?Id=<%=rs(\"ID\")%>\'><%=RS(\"Dato\")%></a></td>
<td valign=\"top\"><div class=\"Text\"><a href=\'./EditNews.asp?Id=<%=rs(\"ID\")%>\'><%=RS(\"Headline\")%></a></td>
<td valign=\"top\"><div class=\"Text\"> </td>
<td valign=\"top\"><div class=\"Text\"><a href=\'./EditNews.asp?Id=<%=rs(\"ID\")%>\'><%=RS(\"Overskrift\")%></a></div></td> </tr>
<tr>
<td colspan=\"5\" align=\"Left\"><hr width=\"90%\"></td>
</tr>
<%
RS.MoveNext
loop
end if
RS.Close
objConn.Close
set RS = nothing
set objConn = nothing
%>
<tr>
<td><input type=\"submit\" value=\"Opdatér\"></td>
<td colspan=\"4\" align=\"Left\"> </td>
</tr></form>
</table>
Nu vil jeg så gerne inkludere muligheden for at slette fra databasen.
Det skal foregå ved at man markerer checkboxen slet og trykker opdater.
