Registro y Login

[Tomillo]

Buenas, antes que todo voy a decir que soy novato con este lenguaje de programacion. Hice un sistema de registro usando usuario y contraseña, para que lo grabe en un txt, y luego desde un Login que lea los datos de ese txt.

El problema es cuando quiero loguearme, no lee bien los datos... acá esta subido..

http://reitmann.argos.com.ar/txt_registro/

Este es el archivo form2.asp el login.

Código:

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("contador.txt"), 1)

do while f.AtEndOfStream = false
user=(f.ReadLine)
pass=(f.ReadLine)
if request.form("user") = user then
   if request.form("contrasena") = pass then
      Response.Write "Bienvenido usuario"
   else
      Response.Write "Esta mal su contraseña"
   end if
else
      Response.Write "Esta mal su usuario y contraseña"
end if

loop

f.Close
Set f=Nothing
Set fs=Nothing
%>

Espero su ayuda...Gracias

[ElAprendiz]

a mi me funciona de lo mas bien, quiza no estas recibiendo bien los datos, pero lee bien el archivo.


saludos

[Tomillo]

Iniciado por ElAprendiz

a mi me funciona de lo mas bien, quiza no estas recibiendo bien los datos, pero lee bien el archivo.


saludos

Si, probé creando una nueva carpeta para los archivos del login..y ahi funciono perfecto...

Ahora mi otra pregunta es como hago para cuando tengo mas de 2 cuentas en el txt para que no me imprima "Esta mal su usuario y contraseña. Bienvenido usuario"... si no me entienden..prueben registrandosé http://reitmann.argos.com.ar/txt_registro/ y van a ver ese error.

Saludos

[ElAprendiz]

deberias crear una base de datos mas o menos asi

usuarioTabpassword

es como yo lo hacia, donde Tab es el caracter que va a separar los datos, en este caso el tabulador

Código:

do while f.AtEndOfStream = false
   linea=split(f.ReadLine, vbtab)
   user=linea(0)
   pass=linea(1)
   'ahora si comparas
   if request.form("user") = user then
      if request.form("contrasena") = pass then
         Response.Write "Bienvenido usuario"
         exit do
      else
         Response.Write "Esta mal su contraseña"
      end if
   else
      Response.Write "Esta mal su usuario y contraseña"
   end if
loop

mas o menos asi


saludos