Using Delete Statement to Delete Records.

In this example we are deleting one record with the ID we want to delete.

The SQL statement is the key and by changing that you can delete whatever you want includng multiple records. As long as records meet your SQL criteria they will be deleted.

<% ID = 4 %>

<%
' declaring variables
' not neccesary but a good habit
Dim DataConn
Dim CmdDeleteRecord
Dim MYSQL
   
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdDeleteRecord = Server.CreateObject("ADODB.Recordset")
   
' The line below shows how to use a system DSN instead of a DNS-LESS connection
' DataConn.Open "DSN=System_DSN_Name"
DataConn.Open "DBQ=" & Server.Mappath("../_database/database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
MYSQL = "DELETE FROM some_table WHERE (ID = " & ID & ")"
   
CmdDeleteRecord.Open MYSQL, DataConn
   
' closing objects and setting them to nothing
' not neccesary but a good habit
DataConn.Close
Set DataConn = Nothing
%>