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>