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