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>