Hola quiero hacer una funcion para validar si un cliente existe o no en la base de datos, pero tengo el siguiente error y no se que es. Lo que quiero es que el usuario no de de alta nombres de clientes repetidos.
Error Type:
ADODB.Connection (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/SIA InTech/Clientes/AddCliente.asp, line 31
<%
Dim Conn
Sub OpenInTech
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString ="DSN=INTECH"
Conn.Open
end sub
Sub CloseInTech
Conn.Close
Set Conn = Nothing
end sub
function Valido_Cliente(Cliente)
sqlString = "select * from Clientes where (Cliente ='"&Cliente&"')"
OpenInTech
Conn.Execute(sqlString)
If not Conn.eof Then (esta es la linea 31)
Valido_Cliente = False
else
Valido_Cliente = True
end if
CloseInTech
end function
SUB ErrorFormulario( Ferror )
%>
<meta name="Microsoft Theme" content="bars 1011">
<HTML>
<HEAD><TITLE>Error</TITLE></HEAD>
<BODY>
<font face="Tahoma" size="3"><b>
<%=Ferror %>
</b>
<FORM method="post" action="AltaClientes.asp">
<p>
<INPUT TYPE="submit" value="Regresar" style="font-family: Tahoma; font-weight: bold">
</FORM>
</BODY>
</HTML>
<%
Response.End
END SUB
' Recupera campos del formulario
Cliente = Request.Form("Nombre")
RFC = Request.Form("RFC")
Direccion = Request.Form("Dir")
Colonia = Request.Form("Col")
Ciudad = Request.Form("Cd")
Estado = Request.Form("Estado")
CP = Request.Form("CP")
Telefono = Request.Form("Tel")
Ingreso = date()
' Verifica los Campos Requeridos
IF Cliente = "" THEN
ErrorFormulario "¡No proporcionó el Nombre del Cliente !"
END IF
IF RFC = "" THEN
ErrorFormulario "¡No proporcionó el RFC del Cliente !"
END IF
IF Direccion = "" THEN
ErrorFormulario "¡No proporcionó la Direccion del Cliente !"
END IF
IF Colonia = "" THEN
ErrorFormulario "¡No proporcionó la Colonia del Cliente !"
END IF
IF Ciudad = "" THEN
ErrorFormulario "¡No proporcionó la Ciudad del Cliente !"
END IF
IF Estado = "" THEN
ErrorFormulario "¡No proporcionó el Estado del Cliente !"
END IF
IF CP = "" THEN
ErrorFormulario "¡No proporcionó el Codigo Postal del Cliente !"
END IF
IF Telefono = "" THEN
ErrorFormulario "¡No proporcionó el Telefono del Cliente !"
END IF
Existe = Valido_Cliente(Cliente) (aqui la mando llamar)
If Existe Then
ErrorFormulario "Error el Nombre del Cliente Ya Existe !"
else
sqlString = "INSERT INTO Clientes ( Cliente, RFC, Direccion, Colonia, Ciudad, Estado, Codigo, Telefono, Alta) values ('"&Cliente&"','"&RFC&"','"&Direccion&"','"&Coloni a&"','"&Ciudad&"','"&Estado&"','"&CP&"','"&Telefon o&"','"&Ingreso&"')"
OpenInTech
Conn.Execute(sqlString)
CloseInTech
end if
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<meta name="Microsoft Theme" content="bars 1011">
<%
Response.Buffer=true
%>
<HTML>
<HEAD><TITLE>Procesando Informacion .....</TITLE></HEAD>
<BODY>
<font face="Tahoma"><b>El Cliente fue dado de Alta en Base de Datos ... ! </b>
<%
Response.clear
response.redirect "default.asp"
%>
</BODY>
</HTML>
</font>
