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>