Imports Extensiones
Partial Class ZDG_WhatsApp
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Request("p") IsNot Nothing AndAlso Request("p").ToString.Trim <> "" Then

            Dim Par As String = Request("p").ToString.Trim
            For Each Fol As String In Par.Split(","c)
                Dim Folio As Integer = Fol.Trim.ToEntero

                If Folio >= 20001 AndAlso Folio <= 45000 Then
                    Dim ObjDG As New ClsDG
                    If ObjDG.RegistrarVoto(Folio) Then
                        Response.Write("1")
                    End If
                    ObjDG.Dispose()
                End If
            Next


        End If

    End Sub

End Class