Ver Mensaje Individual
  #5 (permalink)  
Antiguo 30/08/2003, 03:20
JuanJo.d
 
Fecha de Ingreso: agosto-2003
Mensajes: 20
Antigüedad: 20 años, 8 meses
Puntos: 0
Hola.

Aquí te dejo el script de validación con unas pequeñas modificaciones, funciona, lo he probado.

<script LANGUAGE="VBScript">
<!--
Sub Siguiente_OnClick

If CapturaObjetivos.Objetivo.value = "" Then
var = MsgBox(" Debe teclear un objetivo", 64," Captura")
CapturaObjetivos.objetivo.focus()
Exit Sub

Else

for indice = 0 to 4
if CapturaObjetivos.AutoPlan.item(indice).checked = true Then
CapturaObjetivos.submit()
exit sub
end if
next
var = MsgBox(" Debe seleccionar el programa", 64, " Captura")
CapturaObjetivos.AutoPlan.focus()
End If

End Sub
-->
</script>

Saludos.