Ver Mensaje Individual
  #4 (permalink)  
Antiguo 29/08/2003, 17:06
gadget
 
Fecha de Ingreso: noviembre-2002
Ubicación: Casa-Trabajo
Mensajes: 60
Antigüedad: 22 años
Puntos: 0
Aqui les pongo el código, hagan pruebas, please

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<center>
<br>
<form name=CapturaObjetivos action="CapturaDatosGenerales.asp" method=post>
<table border=0 cellspacing="0" cellpadding="3" bgcolor="#ebf1f5" class=Txt8Black width=600pt>
<tr>
<td class="Txt8Blue">
Objetivo:
<input style="width: 600; height: 22" maxLength="80" name="objetivo">
</td>
</tr>
<tr>
<td>
<input type=radio name=AutoPlan id="4" value=4>Normas y lineamientos&nbsp;&nbsp;
<input type=radio name=AutoPlan id="2" value=2>Estratégico&nbsp;&nbsp;
<input type=radio name=AutoPlan id="1" value=1>Autogestión&nbsp;&nbsp;
<input type=radio name=AutoPlan id="5" value=5>Ayudas económicas
<input type=radio name=AutoPlan id="3" value=3>Eventos al extranjero&nbsp;&nbsp;
</td>
</tr>
</table>
<br><br>
<input type=button Name="Siguiente" Value="Siguiente" class="txt8Black">
</form>
</BODY>
</HTML>

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

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



ElseIf CapturaObjetivos.AutoPlan.value = "" Then
var = MsgBox(" Debe seleccionar el programa", 64, " Captura")
CapturaObjetivos.AutoPlan.focus()
Exit Sub

End If
CapturaObjetivos.submit()
End Sub
-->
</script>