Ok entiendo pero eso lo estube biendo pero no tengo nada que le pueda estar pasando solo los valores que deberia, pero aca te dejo el codigo para que lo veas mas o menos hace una llamada a una function que es la que decodifica la clave
Código:
set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxxxxx.mdb")
if Request.querystring("salir")="" then
myUser=Request.querystring("username")
myPass =EncodeStr(Request.querystring("password"))
sql = "SELECT * FROM TBL_USUARIOS WHERE USU_USERNAME='" & LCase(myUser) & "' and USU_USERPWD='" & LCase(myPass) & "'"
set rs = Con.Execute(sql)
If rs.BOF And rs.EOF Then
rs.Close
Set rs = Nothing
Response.Write("2")
else
if rs("USU_USERNAME")=myUser and rs("USU_USERPWD")=myPass then
Session("usuario")=rs("USU_USERNAME")
Response.Write("1")
else
Response.Write("0")
end if
end if
else
myUser=Request.querystring("username")
sql = "SELECT * FROM TBL_USUARIOS WHERE USU_USERNAME='" & LCase(myUser) & "'"
set rs = Con.Execute(sql)
Session("usuario") = ""
Session.Abandon
Response.Write("1")
end if