login

Laver den fejl eller hvad. Hvis den gør kan du så ikke lige skrive fejlmeddelsen?

www.bekhoj.dk/code.asp

Der ligger et login system jeg har lavet som kører på en acess database

Brug da denne bid istedet.

<% Response.Buffer = True %>
<%
fejl = \"\"
If Request(\"Submit\")<>\"\" Then
    If Request(\"navn\") = \"Mark Mikkelsen\" and _       
        Request(\"password\")=\"gamma1495\" Then
        Session(\"Valid\") = Request(\"navn\")
        Response.redirect \"in.asp\"

    Else       
        fejl = \"Forkert brugernavn eller password. Prøv igen!\"   
    End If
End If
%>

ja men kan jeg ik få lavet en anden slags database for jeg vil ik have en acess database

Ups. Jeg havde vist ikke læst ordentligt... Er det OK, hvis du har bruger/kode stående i en tekstfil?

altså det vil være fint med en txt fil

Så må du lige give mig et øjeblik. Så skal jeg lige bikse noget sammen!

ok tak

<%
Set FileObj = Server.CreateObject(\"Scripting.FileSystemObject\")
Set FileName = FileObj.GetFile(Server.MapPath(\"bruger.txt\"))
Set File = FileName.OpenAsTextStream(1,0)
Do While Login = False
User = File.ReadLine
Pass = File.ReadLine
EndOfFile = File.ReadLine
If User = Request(\"login\") AND Pass = Request(\"password\") Then
Login = True
Exit Do
End If
If EndOfFile = \"END OF FILE\" Then Exit Do
Loop
Set File = Nothing
Set FileName = Nothing
Set FileObj = Nothing
If Login = True Then
Session(\"login\") = \"JA\"
Session.Timeout = 30
Response.Redirect(\"admin/admin.asp\")
Else
Session(\"login\") = \"fejl\"
Session.Timeout = 30
Response.Redirect(\"default.asp\")
End If
%>

bruger.txt:
Daniel
test

Mark Mikkelsen
gamma1495

minijensen1
asp
END OF FILE

sådan

Hey jeg kan ikke få det til at virke...