hola bueno esta es mi tercera publicacion espero me puedan ayudar
resulta que tengo un CustomValidator para validar nu,ero de cuotas segun la fecha le hago un seguimiento a la validacion y lohace bien pero no envia el mensaje de error al control tampoco parta el submit de la pagina de antemano muchas gracias (tengo dos controles de error el CustomValidator es el que me da problemas )
en el formulario tengo esto
<td align="left" style="width: 358px; height: 2px;">
<asp:DropDownList ID="Cuotas" AutoPostBack="true" runat="server" >
<asp:ListItem Text="Cuotas" Selected="True" />
<asp:ListItem Text="1" Value="1" />
<asp:ListItem Text="2" Value="2" />
<asp:ListItem Text="3" Value="3" />
<asp:ListItem Text="4" Value="4" />
<asp:ListItem Text="5" Value="5" />
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" BackColor="White"
ControlToValidate="Cuotas" ErrorMessage="Ingrese N°Cuotas...!" Width="91px"></asp:RequiredFieldValidator>
</td>
<td align="left" style="width: 358px; height: 2px">
<asp:CustomValidator ID="CustomValidator1" runat="server" ControlToValidate="Cuotas"
OnServerValidate="CustomValidator1_ServerValidate"
ErrorMessage="La Cuota no es valida ...!" Width="259px" BackColor="White" Font-Size="Medium"></asp:CustomValidator></td>
</tr>
y el codigo es este
Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate
Dim numerocuota As Integer
Dim fechaAux As Date
Dim dias As String
Dim ano As String
numerocuota = Me.Cuotas.SelectedValue
ano = Date.Now.Year
If Semestre.Text = "1" Then
Select Case numerocuota
Case "5"
fechaAux = Format("dd/MM/yyyy", "05/04/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "4"
fechaAux = Format("dd/MM/yyyy", "05/05/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "3"
fechaAux = Format("dd/MM/yyyy", "05/06/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "2"
fechaAux = Format("dd/MM/yyyy", "05/07/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "1"
fechaAux = Format("dd/MM/yyyy", "05/08/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
End Select
End If
If Semestre.Text = "2" Then
Select Case numerocuota
Case "5"
fechaAux = Format("dd/MM/yyyy", "05/09/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "4"
fechaAux = Format("dd/MM/yyyy", "05/10/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
Case "3"
fechaAux = Format("dd/MM/yyyy", "05/11/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
Response.Write("1")
args.IsValid = False
Else
args.IsValid = True
Response.Write("2")
End If
Response.End()
Case "2"
fechaAux = Format("dd/MM/yyyy", "05/12/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
Modulo.Text = dias
End If
Case "1"
ano = Convert.ToInt16(ano)
ano = ano + 1
fechaAux = Format("dd/MM/yyyy", "05/01/" & ano)
dias = DateDiff(("d"), fechaAux, Date.Now)
If dias > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
End Select
End If
End Sub