Ver Mensaje Individual
  #19 (permalink)  
Antiguo 18/05/2007, 03:54
basterillo
 
Fecha de Ingreso: diciembre-2003
Mensajes: 71
Antigüedad: 21 años, 4 meses
Puntos: 0
Re: Recuperar usuario y contraseña

He probado a quitar del código de login.asp unas líneas dejándolo así:
Código HTML:
<%
Dim Usuario, Contraseña, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp


   'Conectamos a nuestra BD.
   Set oConn = Server.CreateObject ("ADODB.Connection")
   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kimuusers.mdb"))

   'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
   sql = "SELECT * FROM usuarios WHERE Usuario = '"& Usuario &"'"
   Set RS = Server.CreateObject ("ADODB.RecordSet")
   RS.Open sql, oConn

   'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
   If (RS.EOF = true) then
      Response.Write "Ese usuario no existe"
   ElseIf RS.Fields("Contraseña") = Contraseña then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
      Response.Write "Te logueaste con exito... Bienvenido <B>"& Usuario &"</B>"
   Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
      Response.Write "Esa contraseña no concuerda con el usuario ingresado"
   End If

   'Limpiamos y cerramos.
   RS.Close
   oConn.Close
   Set RS = Nothing
   Set oConn = Nothing
End If
%> 
Y al cargar ahora login.asp me sale este error:

Error occured at: 18/05/2007 12:02:41

Referred from: http://www.dominio.com/pagina/foro.asp

Url: /pagina/login.asp

Categoria:
Error de compilación de Microsoft VBScript

Nombre del fichero:
/kimu/login.asp

ASP Codigo:

Numero:
-2146827256

Source:
Dim Usuario, Contraseña, oConn, RS

Numero de linea:
2

Columna:
21

Descripcion:
Carácter no válido

ASP Descripcion:

All HTTP: HTTP_ACCEPT:text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 HTTP_ACCEPT_LANGUAGE:es-es,es;q=0.8,en-us;q=0.5,en;q=0.3 HTTP_CONNECTION:keep-alive HTTP_HOST:www.dominio.com HTTP_REFERER:http://www.dominio.com/pagina/foro.asp HTTP_USER_AGENT:Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.0.11) Gecko/20070312 Firefox/1.5.0.11 HTTP_COOKIE:phpbb2mysql_data=a%3A2%3A%7Bs%3A11%3A% 22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22use rid%22%3Bs%3A1%3A%222%22%3B%7D; ASPSESSIONIDQAQBDAAR=ENHAJFNBMBAHONPCOELLMNLH HTTP_CONTENT_LENGTH:42 HTTP_CONTENT_TYPE:application/x-www-form-urlencoded HTTP_ACCEPT_ENCODING:gzip,deflate HTTP_ACCEPT_CHARSET:ISO-8859-1,utf-8;q=0.7,*;q=0.7 HTTP_KEEP_ALIVE:300