Foros del Web » Programando para Internet » ASP Clásico »

Validar que no queden vacios campos

 Estas en el tema de Validar que no queden vacios campos en el foro de ASP Clásico en Foros del Web. Hola espero alguine me pueda dar una mano, tengo un formulario en asp pero necesito que cuando los datos se envien se valide que no ...
  #1 (permalink)  
Antiguo 19/08/2004, 13:07
 
Fecha de Ingreso: agosto-2004
Ubicación: Tijuana, Baja California, Mexico
Mensajes: 72
Antigüedad: 19 años, 10 meses
Puntos: 0
Validar que no queden vacios campos
Hola espero alguine me pueda dar una mano, tengo un formulario en asp pero necesito que cuando los datos se envien se valide que no queden en blanco los campos
  #2 (permalink)  
Antiguo 19/08/2004, 13:31
 
Fecha de Ingreso: agosto-2004
Ubicación: Tijuana, Baja California, Mexico
Mensajes: 72
Antigüedad: 19 años, 10 meses
Puntos: 0
Este es el codigo que estoy usando

<HTML>
<HEAD>
<TITLE>Insertar clientes.asp</TITLE>
</HEAD>
<BODY>

<%
'Recogemos los valores del formulario
clave=Request.Form("clave")
razon= Request.Form("razon")
resp= Request.Form("resp")
domicilio= Request.Form("domicilio")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
codigo= Request.Form("codigo")
tel= Request.Form("tel")
fax= Request.Form("fax")
email= Request.Form("email")
fondo= Request.Form("fondo")
com= Request.Form("com")
%>


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\ es es el codigo que me dio un amigo pero a mi no me funciona
select case ""
case trim(nombre)
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("El nombre está en blanco!");
document.location.href = "javascript:history.back(1);";
//-->
</SCRIPT>

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
<%
'Instanciamos y abrimos nuestro objeto conexion le puse oConn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"

'Ahora creamos la sentencia SQL LE QUITE ssql
sSQL=" Insert Into CLIENTES (cve_cte, razon_cte,resp_cte,dom_cte,cd_cte,edo_cte,cp_cte,t el_cte,fax_cte,email_cte,fondor_cte,com_cte) values ('" & clave & "','" & razon & "','" & resp & "','" & domicilio & "','" & ciudad & "','" & estado & "','" & codigo & "','" & tel & "','" & fax & "','" & email & "','" & fondo & "','" & com & "')"

'oConn execute "Insert Into USUARIOS (nom_usu,id_usu,pass_usu,cve_cte,niv_usu) values ('" & nombre & "','" & id & "','" & password & "','" & clave & "','" & nivel & "')"

'Ejecutamos la orden le quite ssql
set RS = Conn.Execute(sSQL)
%>

<h1><div align="center">Cliente Insertado</div></h1>
<div align="center">
<p><a href="lectura%20clientes.asp">Visualizar el contenido de la base</a></p>
<p><a href="menu%20clientes.html">menu principal</a></p>
</div>

<%
'Cerramos el sistema de conexion le puse oConn
Conn.Close
%>

</BODY>
</HTML>
  #3 (permalink)  
Antiguo 19/08/2004, 14:29
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Function ValidaCampo(que_campo)
viene_vacio = false
If trim(campo) = "" Then
viene_vacio = true
End If
ValidaCampo = viene_vacio
End Function

Sub Verifica(que_campo)
mi_campo = ValidaCampo(que_campo)
If NOT mi_campo Then
%>
<script language=javascript>
alert("hay campos requeridos, corrige esto y vuelve a intentarlo");
history.back(-1);
</script>
<%
End If
End Sub

'Recogemos los valores del formulario
clave=Request.Form("clave")
razon= Request.Form("razon")
resp= Request.Form("resp")
domicilio= Request.Form("domicilio")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
codigo= Request.Form("codigo")
tel= Request.Form("tel")
fax= Request.Form("fax")
email= Request.Form("email")
fondo= Request.Form("fondo")
com= Request.Form("com")

'Llamas a los campos que son requeridos
Verifica clave
%>

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #4 (permalink)  
Antiguo 19/08/2004, 22:03
Avatar de sjam7  
Fecha de Ingreso: diciembre-2001
Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 22 años, 5 meses
Puntos: 16
lo mejor seria usar javascript para que esto se verifique antes de pasar a la siguiente pagina
__________________
CreandoWebs.com
www.creandowebs.com
PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO
  #5 (permalink)  
Antiguo 19/08/2004, 23:10
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Coincido contigo, pero como estamos en el foro de ASP...además creo que siempre es bueno tener las dos validaciones(javascript, VB server side), solo por si el cliente no soporta javascript

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #6 (permalink)  
Antiguo 20/08/2004, 13:06
 
Fecha de Ingreso: agosto-2004
Ubicación: Tijuana, Baja California, Mexico
Mensajes: 72
Antigüedad: 19 años, 10 meses
Puntos: 0
ya puedo validar que no queden vacios los campos pero ahora tengo otro problema necesito avisarle al usuario que dejo campos vacios, yo unico que hago es cuando valido los regresa al formulario de captura, pero el script no me funciona

uso el mismo codigo pero con una variante a la hoa de validar

el response.write no me manda nada y tampoco el script

lo que son las cosas arreglas una cosa y te sale otro problema a resolver je je je

<%@language=vbscript%>
<HTML>
<HEAD>

<TITLE>Insertar clientes.asp</TITLE>
</HEAD>
<BODY>

<%

'Recogemos los valores del formulario
clave=Request.Form("clave")
razon= Request.Form("razon")
resp= Request.Form("resp")
domicilio= Request.Form("domicilio")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
codigo= Request.Form("codigo")
tel= Request.Form("tel")
fax= Request.Form("fax")
email= Request.Form("email")
fondo= Request.Form("fondo")
com= Request.Form("com")

If Request.Form("clave") = "" OR Request.Form("razon") = "" OR Request.Form("resp") = "" OR Request.Form("domicilio") = "" OR Request.Form("ciudad") = "" OR Request.Form("estado") = "" OR Request.Form("telefono") = "" OR Request.Form("fax") = "" OR Request.Form("email") = "" OR Request.Form("fondo") = "" OR Request.Form("com") = "" then
Response.Write "dejaste vacio varios campos"
%>
<script>
alert("Dejaste campos vacios");
window.location = insertar clientes.html";
</script>
<%
Response.Redirect "insertar clientes.html"
end if

'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"

'Ahora creamos la sentencia SQL LE QUITE ssql
sSQL=" Insert Into CLIENTES (cve_cte, razon_cte,resp_cte,dom_cte,cd_cte,edo_cte,cp_cte,t el_cte,fax_cte,email_cte,fondor_cte,com_cte) values ('" & clave & "','" & razon & "','" & resp & "','" & domicilio & "','" & ciudad & "','" & estado & "','" & codigo & "','" & tel & "','" & fax & "','" & email & "','" & fondo & "','" & com & "')"

'oConn execute "Insert Into USUARIOS (nom_usu,id_usu,pass_usu,cve_cte,niv_usu) values ('" & nombre & "','" & id & "','" & password & "','" & clave & "','" & nivel & "')"

'Ejecutamos la orden le quite ssql
set RS = Conn.Execute(sSQL)
%>

<h1><div align="center">Cliente Insertado</div></h1>
<div align="center">
<p><a href="lectura%20clientes.asp">Visualizar el contenido de la base</a></p>
<p><a href="menu%20clientes.html">menu principal</a></p>
</div>

<%
'Cerramos el sistema de conexion le puse oConn
Conn.Close
%>

</BODY>
</HTML>

<body>

</body>
</html>
  #7 (permalink)  
Antiguo 20/08/2004, 13:43
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
If Request.Form("clave") = "" OR Request.Form("razon") = "" OR Request.Form("resp") = "" OR Request.Form("domicilio") = "" OR Request.Form("ciudad") = "" OR Request.Form("estado") = "" OR Request.Form("telefono") = "" OR Request.Form("fax") = "" OR Request.Form("email") = "" OR Request.Form("fondo") = "" OR Request.Form("com") = "" then
'Response.Write "dejaste vacio varios campos"
%>
<script>
alert("Dejaste campos vacios");
window.location = insertar clientes.html";
</script>
<%
'Response.Redirect "insertar clientes.html"
end if

Deja solo el código de javascript para que no se ejecute antes el RW y el RR, si te imprime, pero como la siguiente línea server side es el redirect, te manda de regreso sin decirte nada...

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #8 (permalink)  
Antiguo 20/08/2004, 16:47
 
Fecha de Ingreso: agosto-2004
Ubicación: Tijuana, Baja California, Mexico
Mensajes: 72
Antigüedad: 19 años, 10 meses
Puntos: 0
Gracias me ayudo mucho ese tip, asi que el siguiente es el codigo completo para otro igual que yo que no sabia por donde andaba.

Este codigo me valida los campos en blanco y me envia un javascript diciendo que faltan de llenar algunos campos y me regresa a la forma.

Ya se soluciono un problema ahora vere que otros problemas me salen para atacarlos con un poco de mas confianza
gracias


<%@language=vbscript%>
<HTML>
<HEAD>

<TITLE>Insertar clientes.asp</TITLE>
</HEAD>
<BODY>

<%
Dim clave
If Request.Form("clave") = "" OR Request.form("razon") = "" OR Request.form("resp") = "" OR Request.form("domicilio") = "" OR Request.form("ciudad") = "" OR Request.form("estado") = "" OR Request.form("codigo") = "" OR Request.form("tel") = "" OR Request.form("fax") = "" OR Request.form("email") = "" OR Request.form("fondo") = "" OR Request.form("com") = "" then
%>
<script>
alert("Tienes campos vacios favor de llenar todos");
window.location = "insertar clientes.html";
</script>

<%
' Response.redirect "insertar clientes.html"
else

'Recogemos los valores del formulario
clave=Request.Form("clave")
razon= Request.Form("razon")
resp= Request.Form("resp")
domicilio= Request.Form("domicilio")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
codigo= Request.Form("codigo")
tel= Request.Form("tel")
fax= Request.Form("fax")
email= Request.Form("email")
fondo= Request.Form("fondo")
com= Request.Form("com")

'Instanciamos y abrimos nuestro objeto conexion le puse oConn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"

'Ahora creamos la sentencia SQL LE QUITE ssql
sSQL=" Insert Into CLIENTES (cve_cte, razon_cte,resp_cte,dom_cte,cd_cte,edo_cte,cp_cte,t el_cte,fax_cte,email_cte,fondor_cte,com_cte) values ('" & clave & "','" & razon & "','" & resp & "','" & domicilio & "','" & ciudad & "','" & estado & "','" & codigo & "','" & tel & "','" & fax & "','" & email & "','" & fondo & "','" & com & "')"

'oConn execute "Insert Into USUARIOS (nom_usu,id_usu,pass_usu,cve_cte,niv_usu) values ('" & nombre & "','" & id & "','" & password & "','" & clave & "','" & nivel & "')"

'Ejecutamos la orden le quite ssql
set RS = Conn.Execute(sSQL)


'Cerramos el sistema de conexion le puse oConn
Conn.Close
End if
%>

<h1><div align="center">Cliente Insertado</div></h1>
<div align="center">
<p><a href="lectura%20clientes.asp">Visualizar el contenido de la base</a></p>
<p><a href="menu%20clientes.html">menu principal</a></p>
</div>

</BODY>
</HTML>

<body>

</body>
</html>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 18:40.