Sub Kullanımı
If request.Form("Submit")="Delete" Then
Call Del()
End If
Sub Del()
Dim num
Dim i
Dim Total_Del
num = Request.Form("num")
For i = 1 To num
id = Request.Form("d" & i)
If id<>"" Then
rs.Open "Delete From ProductCategories Where CategoryID=" & id, cn
Total_Del = Total_Del + 1
End If
Next
msg = Total_Del & " record(s) deleted"
End Sub![]()