Validacion de formularios con VBScript

[JoeYFuRiA]

Hola!! Tengo un pequeño problema. Tengo un formulario con muchos campos, y me he hecho una funcion en vbscript para que compruebe si estan o no vacios todos los campos. Si estan vacios, me saca una mensaje de error. Si estan todos llenos, hago esto: Form1.submit para enviarlo, pero me da un error, me dice que el objeto no acepta esa propiedad o metodo. Alguien puede decirme que estoy haciendo mal?
Aqui os pego el codigo de lo que he hecho:

Código:

 
<script language="VBScript">

<!-- 

Sub cmdOK_OnClick()

	Dim elemento

	For each elemento in form1.elements

		If elemento.value = "" then

			MsgBox "Por favor, no deje ningún campo vacío, gracias.", vbOKonly, "ERROR"
			form1.submit = False		
			Exit Sub
		
		End if
	
	Next
	
	form1.submit
	
End Sub
-->
</script>

<form name="form1" method="post" action="NuevoCliente.asp">

Muchas gracias de antemano, un saludo ;)

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[TioBeni]

Por lo pronto prueba a declarar el submit en el cuerpo del form.

Un salu23. :)

[JoeYFuRiA]

hola tiobeni, gracias por contestar.
el problema es que si lo declaro en el boton:

Código:

 <input type="submit" name="Submit" value="Enviar" onclick='cmdOK_OnClick()'>

de error o no en la funcion, el submit me lo hace. asi ke he kitado el submit del boton y lo he declarado como simple boton:

Código:

 <input type="button" name="Submit" value="Enviar" onclick='cmdOK_OnClick()'>

Pero claro,asi si la funcion no deja pasar no hace nada, pero si el formulario esta correcto me da error en la propiedad del form1, asi ke ya no se ke hacer...
si teneis alguna idea presto estoy para ponerlas en practica :P
Venga muchas gracias a todos

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[urjose]

Bueno esto &lt;input type=&quot;button&quot; name=&quot;Submit&quot; value=&quot;Enviar&quot; onclick='cmdOK_OnClick()'&gt;

el onClick ya no va ya que en el

Sub cmdOK_OnClick() ya le estas indicando que al dar Click en el boton con dicho nombre, prueba y nos cuentas.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
<p><font size=2 face=Arial color=#000066>Pronto
tus conocimientos tendrán un $[/CODE]</p>
</center>

[JoeYFuRiA]

hola ujose, no te he entendido muy bien, pero la llamada a la funcion onclick tal como la he puesto va perfectamente...el problema me viene cuando el formuñlario esta correctamente completado, ke me da un error en la propiedad del form1.submit
Me toi volviendo locoooooo :-p

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[JoeYFuRiA]

Tambien he pensado de poner el boton de tipo submit, y en la funcion que comprueba si cada campo esta lleno o vacio, pues si se encuentra alguno vacio, ke pare el submit... esto se puede hacer? si es asi y alguien sabe como agradeceria mucho ke me lo dijera... muchas gracias de antemano!!! <IMG SRC="images/futbol.gif" WIDTH="15" HEIGHT="15" HSPACE="3">

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[jjlallana]

Prueba así:

function RK_OnSubmit()
if MID(Document.RK.resultado.value)=&quot;&quot; then
MsgBox &quot;Selecciona el resultado de tu analisis&quot;, vbInformation, &quot;Analisis de reclamaciones&quot;
RK_OnSubmit = False
End if
End function

Espero que te sirva

Saludos

[TioBeni]

No habia caido pero como dice la persona anterior codifica el propio submit con las validaciones necesarias de tus campos.

[JoeYFuRiA]

muchas gracias jjlallama, he hecho un hibrido entre lo ke me has puesto tu y lo ke tenia yo, ya ke me daba error en el if ke me habias puesto, asi ke recorro los elementos komo habia puesto yo pero el resto he puesto lo ke me has dicho, y ya me funciona....MUCHAS GRACIASSSSS!!!!!
y muchas gracias a todos por contestar y perder vuestro tiempo ;)
un saludo a todosssss

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[jjlallana]

Siento mucho lo del error pero ya se sabe que las prisas nunca son buenas.

;)