27 lines
765 B
VB.net
27 lines
765 B
VB.net
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
|