Código fuente de 'Formulario correcto.asp'


<html>

<head>
<title>Formulario correcto - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<body style="font-family: Arial; font-size: 11pt">

<center><b><font face="Arial" size="3">Formulario correcto</font></b></center><br>


Evitar que se envíen los datos del formulario antes que los datos sean correctos:


    <SCRIPT language="VBScript">
    sub cmdOK_onClick
    If Len(document.form1.txtEmpNo.value) > 8 Then
    	document.form1.txtEmpNo.focus
    	alert"Has introducido un valor mayor que 8"
    	document.form1.cmdOK.disabled = True
    end if
    
    end sub
    
    sub Enable
    On Error Resume Next
    document.form1.cmdOK.disabled = False
    end sub
    
    </script>
    </head>
    <body onMouseMove="Enable">
    <form name="form1" method="POST" action="Formulario correcto.asp">
    <font size="2">Introduce texto (si la longitud es mayor que 8, visualizarás el error):</font><br>
    <input type="text" name="txtEmpNo">
    <input type="submit" name="cmdOK" value="Enviar" onControlSelect="cmdOK_onClick">
    </form>
    </body>
    </html>