Ayuda por favooooooor!!! (desesperada)

[mona]

Hola a todos, sigo con mi duda, hice este codigo para comparar si el password que ingresa el usuario desde un formulario que permite el ingreso a usuarios a una pagina, es identico al que yo tengo almacenado en mi base de datos(esto es respetando mayusculas y minusculas) pero me marca error, m codigo es:

<% Dim cn
Set cn = ConexionAbre

Dim A
Dim I
Dim P
Dim C

Dim sql
sql = "Select Nick, Password, IDUsuario, Nombre from Usuarios where Nick='" & request.form("Nick") & "' and Password ='" & request.form("Contrasena") & "'"
Dim rs
Set rs = cn.Execute(sql)


'Armamos la sentencia SQL, seleccionar de la tabla usuarios los campos usuario y password de los registros cuyos campos sean como lo inicamos


Dim login
if not rs.eof then
Session("UsuarioNickname") = rs("Nick")
Session("UsuarioID") = rs("IDUsuario")
A=Len(request.form("Contrasena"))
For I = 1 To A
P = Mid(rs("Password"), I, 1)
C = Mid(request.form("Contrasena"), I, 1)
if Asc("P") <> Asc("C") then

login = false
else
login = true
end if
Next
end if
%>
me marca error en la conexion q es un archivo txt aparte, espero puedan ayudarme, realmente estoy atorada en esto..

[u_goldman]

Pues entonces el problema es en tu conexión y no en este código, por qué mejor no nos pones la descrípción del error?

Salu2,

[mona]

Este es mi archivo.inc pero siemrpe me a funcionado de maravilla, solo me empezo a fallar desde q quice utilizar este for, lo q pasa es q mi uda principal es q codigo puedo utilizar para que al momento de q el usuario ingrese su login y password yo pueda comparar que el password exactamente igual a como se dio de alta(esto es q respete mayusculas y minusculas), espero puedan ayudarme...

<%
Function ConexionTexto
ConexionTexto = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(".") & "\bd\info.mdb"
End Function

Function ConexionAbre
Dim strConn

strConn = ConexionTexto

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn

Set ConexionAbre = Conn
End Function
%>

[u_goldman]

pero cual es el error???

[Myakire]

Pues aquí hay un error de lógica, con que la última letra coincida, login será igual a true.

Código:

A=Len(request.form("Contrasena"))
For I = 1 To A
   P = Mid(rs("Password"), I, 1)
   C = Mid(request.form("Contrasena"), I, 1)
   if Asc("P") <> Asc("C") then
     login = false
   else
    login = true
   end if
Next

[yiyocastro]

no coloques funciones de base de datos en .inc lo pueden bajar los usuarios como un txt... nooooooooooooooooooooooooooooooooooooooo

[mona]

Este es el error que me envia:
Error Type:
Provider (0x80004005)
Unspecified error
/incs/Conexion.inc, line 14


Y de la logica, le quite el else pero marca el mismo error, ya no se q haceeeeer......

O alguine podria ayudarme con alguna otra idea para pode comparar q mi password respete mayusculas y minusculas de acuerdo a lo q tengo dado de alta en mi base de datos

[yiyocastro]

support.microsoft.com

[u_goldman]

Bueno, el unspecified error puede deberse a una gran cantidad de cosas je je

Para empezar trata abriendo la base de datos en modo de lectura escritura

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3
Conn.Open strConn

Si no funciona, sigue esta ruta:

http://www.aspfaq.com/show.asp?id=2009

[yiyocastro]

http://support.microsoft.com/default...d=kb;es;273482

esta es la solucion.. visitalo...

[mona]

Entre ahi, pero creo q mi error no es en la conexion, porq amtes de agregarle el pedacito apartir del dim login, osea sin comparar, me dejaba entrar a mi pagina, solo q no me respetaba mayusculas y minusculas

[Myakire]

¿Deseas una comparción sensible a mayúsculas y minúsculas? Pues un simple IF.
¿Deseas una comparción insensible a mayúsculas y minúsculas? Pues un simple IF encerrando ámbos argumentos del operador booleando con un UCase.

[u_goldman]

Pero el error todavía no es a la hora de ejecutar nada, no llega a la parte del recordset, se queda antes de abrir la base de datos...paso a paso(small moves sparks! je je) primero abre la DB y luego nos peleamos con lo demás...

[mona]

A gracias, pero si utilizo el if, pero no entiendo mas bien a que te refieres...

[yiyocastro]

if campoformulario=cambobd then
server.transfer("autenticado.asp")
else
server.transfer("rechazado.asp")

[Myakire]

Mirando mas detalladamente to código, esto tambien esta mal: if Asc("P") <> Asc("C") then

Debería ser: if Asc(P) <> Asc(C) then, sinj las comillas, ya que son variables.

[mona]

Muchas gracias yiyocastro, pero si lo hago asi me sigue sin respetar las mayusculas ni minusculas es decir le da igual

Lo que necesito es por ejem en mi base de datos yo tengo

LOGIN: Juan
PASSWORD: juanito

y si el usuario entra al formulario y pone

LOGIN: Juan
PASSWORD: JUANITO

No lo deje ingresar a la pagina, hasta q lo teclee identico