
30/08/2003, 03:20
|
| | Fecha de Ingreso: agosto-2003
Mensajes: 20
Antigüedad: 21 años, 6 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. |