Öncelikle Access veritabanımızı oluşturalım."ID = Otomatik Sayı,Veri = Not" şeklinde 2 adet field oluşturalım ve tablomuzu yine "veriler" ismiyle kayıt edelim.Veritabanı ismimizi de "database.mdb" şeklinde değiştirelim.

İlk olarak "Default.asp" sayfamımızı oluşturalım.Daha sonra bu sayfamızda veritabanındaki kayıtları döngü ile çekerek yanlarında otomatik olarak checkbox olacak şekilde sayfa tasarımımızı hazırlayalım.

Default.asp :

<%

Dim conn,rs,No

Set conn = Server.CreateObject("Adodb.Connection")

conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("database.mdb")

Set rs = conn.Execute("Select * From veriler")

If rs.EOF or rs.BOF Then

Response.Write("Veritabanında Kayıt Bulunamadı!")

Response.End()

End If

%>

<form action="Islem.asp" method="post">

<table border="1" align="center" cellspacing="0" cellspadding="0" width="350">

<tr>

<td align="center"><b>No</b></td>

<td align="center"><b>Veriler</b></td>

<td align="center"><b>Sil</b></td>

</tr>

<%

Do While Not rs.EOF

No = No +1

%>

<tr>

<td align="center"><%=(No)%></td>

<td align="center"><%=(rs("Veri"))%></td>

<td align="center">

<input type="checkbox" name="Sil" value="<%=(rs("ID"))%>">

</td>

</tr>

<%

rs.MoveNext

Loop

%>

</table><br />

<div align="center">

<input type="submit" value="Kayıtları Sil"> <input type="reset" value="Sıfırla">

</div>

</form>

Tasarım kısmını hazırladık.Şimdi ise asıl önemli olan checkbox'ları kullanıcı seçip butona bastığı zaman kayıtları silmesi olacak.Bu nedenle dikkat ettiyseniz formun action kısmında "Islem.asp" sayfasında verilerin işlenmesi gerektiğini söyledik.Yani asıl ASP'nin devreye gireceği yeri belirttik.Bu nedenle de "Islem.asp" sayfasını hazırlamamız gerekiyorki ortaya bir sonuç çıkabilmesi için veriler işlensin.Şimdi işlem sayfamız olan "Islem.asp" sayfasını hazırlayalım...

Islem.asp :

<%

Dim conn,X,tumkayit

Set conn = Server.CreateObject("Adodb.Connection")

conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("database.mdb")

If Request.Form("Sil") = "" Then

Response.Write("Lütfen Kayıt Silmeden Önce Kayıt Seçiniz!")

Response.End()

End If

For X = 1 To Request.Form("Sil").Count

tumkayit = Request.Form("Sil")(X)

conn.Execute("Delete From veriler Where ID="&tumkayit&"")

Next

Response.Redirect(Request.ServerVariables("HTTP_REFERER"))

%>