Bilgisayar Bölümü ASP Kod ve Script Arşivi


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

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2020 Bilgisayarbolumu.com