 Källkoden för /anders.enges/asp/dbdel.asp
 Källkoden för /anders.enges/asp/dbdel.asp 
<!--#include file="../inc/navstuff.asp" -->
Raderingar är enklast att utföra med "ren" SQL. En enkel DELETE sats gör allt som behövs.
<p>
Vi behöver inte ens en Recorsdet utan kan låta Connection direkt köra SQL DELETE satsen<p>
<div class=code>
<FONT COLOR=#006400><!-- #include file="connection.asp" --></font><br>
<span class=asp>
<%<br>
' SQL satsen för tabellen. <br>
<i>SQL</i> = "DELETE * FROM <i>TABELLNAMN</i> WHERE <i>ID_FÄLT</i>=<i>VÄRDE</i>"<br>
Set <i>Conn</i> = Server.CreateObject("ADODB.Connection")<br>
<i>Conn</i>.Open <i>strConn</i><br>
<i>Conn</i>.Execute <i>SQL</i>
<br>
<i>Conn</i>.Close<br>
Set <i>Conn</i> = Nothing<br>
%><br>
</span>
</div><p>
Men...<p>
Skall vi kunna radera via internet? Det låter lite farligt!<P>
I de system som jag konstruerat för databashantering via internet så använder jag ALDRIG
DELETE. Istället sätter jag in ett extra fält i tabellen med namnet <b>DELETED</b><p>
För att "radera" sätter jag en etta (1)  detta fält. och använder för alla listningar en 
SQL sats med följande grundkostruktion<br>
<div class=code>
<FONT COLOR=#006400><!-- #include file="connection.asp" --></font><br>
<span class=asp>
<%<br>
' SQL satsen för tabellen visning av "oraderade" poster. <br>
<i>SQL</i> = "SELECT * FROM <i>TABELLNAMN</i> <b>WHERE DELETED=0</b>"<br>
' resten av listningkoden
%><br>
</span>
</div><p>
Om någonting blivit raderat av misstag kan jag alltid öppna upp själva Access tabellen.<p>
Byter jag ut ettan till en nolla så kommer den raderade posten tillbaka. Jag sover betydligt
bättre på nätterna när ingenting NÅGONSIN raderas via intenet.<p>
För att ytterligare minska risken för diskussioner brukar jag oftast utföra "raderingar" på 
följande sätt<ul>
<li>Sätt in ett DELETED fält av type Number/Byte (Boolean skulle även duga>
<lI>Sätt in ett DELDATE fält av Date/Time typ
</ul>
Man kan då använda följande kod:<br>
<div class=code>
<FONT COLOR=#006400><!-- #include file="connection.asp" --></font><br>
<span class=asp>
<%<br>
' SQL satsen för tabellen. observera att man använder<br>
' Access egen NOW funktion för att säkerställa att det är EXAKT<br>
' den tid då själva "raderingen" sker<br>
<i>SQL</i> = "UPDATE <i>TABELL</i> SET DELETED=1, DELDATE=NOW WHERE <i>ID_FÄLT</i>=<i>VÄRDE</i>"<br>
Set <i>Conn</i> = Server.CreateObject("ADODB.Connection")<br>
<i>Conn</i>.Open <i>strConn</i><br>
<i>Conn</i>.Execute <i>SQL</i>
<br>
<i>Conn</i>.Close<br>
Set <i>Conn</i> = Nothing<br>
%><br>
</span>
</div><p>
<!--#include file="../inc/footer.asp" -->