mira compadre.....sabes que lo probe y no me funciona....por favor dime donde estara mi error....por el momento solo para saber si hace la consulta bien o no le cree un if para que si la consulta es correcta aparezca el mensaje "usuario existe" o "el usuario no existe"......pero cuando la ejecuto....solo busca si el campo csr y el campo distribuidor contienen datos que existen en la tblcliente, o sea no permite hacerlo solo al ingresar csr o solo al ingresar distribuidor....... que estare haciendo mal ??
NOTA: el campo csr y distribuidor es varchar
NOTA2: los campos csr y distribuidor los recibo de un formulario llamado buscar.asp.....pero esta bien...solo que este formulario llamado validar.asp me genera el error
este es el codigo:
Cita: <HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Validar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<%
if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end if
dim dbConn
if Not IsEmpty(Request.form("csr")) then
csr = Request.form("csr")
end if
if Not IsEmpty(Request.form("distribuidor")) then
distribuidor = Request.form("distribuidor")
end if
On Error Resume next
Dim Rs, Cnn, strSQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")
strQuery = "Select * from Tblcliente where "
If Not(IsEmpty(csr)) Then
strQuery = strQuery & " csr = '" & csr &"'"
End If
If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"
End If
rs.Open strQuery, Cnn, 1, 2
If rs.EOF then
Response.Write("Usuario no existe")
end if
If Not rs.EOF then
Response.Write("usuario existe")
end if
Cnn.Close
set Cnn= nothing
set rs=Nothing
%>
<BODY>
</BODY>
</HTML>
cual sera mi error ??? por favor necesito ayuda !!!!