Hej hej!!
När jag försöker logga in med denna koden så fungerar det bara att logga in för en person.
Om jag har 3 st i databasen så fungerar d bara att logga in för den som har ID 1.
Om´loggar in med ID 2´s Användarnamn och Lösenord så säger den att d e fel användarnamn..

Varför??

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& strDatabase &";pwd="& strDatabase_pass

Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open "SELECT * From Medlemmar", Connect, 1, 3

'--------Sorterar dom som inte loggat ur------------------

If RecSet("Status") = "Online" AND DateDiff("n", RecSet("Datum"), Now) > 45 Then
RecSet("Status") = "Offline"

RecSet.Update
End If

Do Until RecSet.EOF

RecSet.MoveNext
Loop

RecSet.Close


'-------------Kollar inloggningen-----------

RecSet.Open "SELECT * From Medlemmar", Connect, 1, 3

Do Until RecSet.EOF

If Request.Form("username") = "" AND Request.Form("password") = "" Then
Response.Redirect("default.asp?Login=failure&Username=empty&Password=empty")

ElseIf Not Request.Form("username") = RecSet("Användarnamn") Then
Response.Redirect("default.asp?Login=failure&Username=wrong")

ElseIf Not Request.Form("password") = RecSet("Lösenord") Then
Response.Redirect("default.asp?Login=failure&Password=wrong")

ElseIf Request.Form("username") = RecSet("Användarnamn") AND Request.Form("password") = RecSet("Lösenord") Then

RecSet("Senast_Inloggad") = Now
RecSet("Status") = "Online"

RecSet.Update

Session("Namn") = RecSet("Förnamn") & " " & RecSet("Efternamn")
Session("Förnamn") = RecSet("Förnamn")
Session("Efternamn") = RecSet("Efternamn")
Session("Email") = RecSet("E-post")
Session("Bor_län") = RecSet("Län")
Session("Bor_stad") = RecSet("Stad")
Session("Bor_i") = RecSet("Bor_i")
Session("Bor_med") = RecSet("Bor_med")
Session("Bild") = RecSet("Bild")
Session("Ålder") = RecSet("Ålder")
Session("Kön") = RecSet("Kön")
Session("Civilstånd") = RecSet("Civilstånd")
Session("Äter") = RecSet("Äter")
Session("Användarnamn") = RecSet("Användarnamn")
Session("Lösenord") = RecSet("Lösenord")
Session("Login") = "Ok"
Session("ID") = RecSet("ID")
Session("Status") = "Online"

Session.TimeOut = 40 '<-- Kontrollera

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "index.asp"

End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

Vore tacksam för hjälp!!
MVH
//Jonnie

du måste ha med en WHERE-del också.

tex:<code>
SELECT * From Medlemmar WHERE Användarnamn='" & Request.Form("username") & "' AND Lösenord='" & Request.Form("password") & "' </code>

då slipper du att loopa igenom hela databasen för att leta upp användarnamn och lösenord.

Tack så mycket d fungerade....

Du kanske kan hjälpa mej med en sak till..?

Jag vill nämligen göra så att det kvittar om man skriver med små lr stora bokstäver i Username formet..man ska kunna logga in ändå..
jag vet inte riktigt hur jag ska använda LCase och UCase..

MVH
//Jonnie

Bara som ett exempel, kör ucase både på form-värdet och på rs-värdet

<code>

Ucase(Request.Form("username")) = Ucase(RecSet("Användarnamn"))

</code>