Hej!

Jag har ett knepigt problem.
På en sida som jag hjälper till administrera finns den en registrerings och inloggingsfunktion. Användarna sparas i en vanlig mdb-databas.

Registreringen fungerar fint men inloggningen fungerar bara för de första 147 posterna, det är 186 poster totalt.
Ändra man ordning så att en person som kan logga in hamnar längre ner i listan så kan den personen inte längre logga in medans första personen som inte kunde logga in nu kan det.

Jag har undersökt SQL-frågan som ligger till grund för att logga in och den fungerar helt korrekt.
Det som händer är att recordsetet är tomt när en person efter de första 147 försöker logga in.

Är det någon som kan hjälpa mig?


Koden för inloggingen ser ut så här:
<code>
'Kod för inloggning av användare.
'Finns användaren i databasen och är rätt lösenord inskrivet så sätts
'en sessionsvariabel: Session("InloggadNivå").
'Beroende på om medlemsavgiften är betald eller inte får variabeln
'olika värden: Inte medlem => Inte
' Medlem men inte betalt => Delvis
' Medlemsavgift betald => Full
'Markus Larsson 2003-10-10

if Request.QueryString("action") = "login" then
Dim logginConn 'as object
Dim logginConStr 'as string
Dim logginSQL 'as string
Dim logginName 'as sstring
Dim logginPwd 'as string
Dim logginRst 'as recordset

'Deklarera variabler för inloggningsnamn och lösenord
'Ta bort ogiltiga tecken från användarnamn och löseord (' och %)
logginName = Replace(Request.Form("userName"), "'", "''")
logginPwd = Replace(Request.Form("pwd"), "'", "''")
logginName = Replace(logginName, "%", "")
logginPwd = Replace(logginPwd, "%", "")

'Skapa databaskopplingen
Set logginConn = server.CreateObject("ADODB.Connection")
logginConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("../db/Flexbertklubben.mdb")
logginConn.Open logginConStr

'Välj ut användaren som har angivet användarnamn och lösenord
logginSQL = ""
logginSQL = logginSQL & "SELECT MedlemsID, Namn, Epost, Kontaktperson, MedlemsavgiftBetald, Admin FROM Medlemsforteckning "
logginSQL = logginSQL & "WHERE Namn = '" & logginName & "' AND Pwd = '" & logginPwd & "'"

'Öppna mitt recordset
Set logginRst = Server.CreateObject("ADODB.Recordset")
logginRst.Open logginSQL, logginConn, 3, 3

if (logginRst.EOF or logginRst.BOF) then 'Misslyckades inloggningen?

'Skicka tillbaka användaren till inloggnings-sidan med ett meddelande
Session("message") = "<font color=""red"">Misslyckad inloggning.<br>Försök igen. Tänk på att du måste registrera dig för att kunna logga in.</font>"
Session("InloggadNivå") = ""
'Response.Redirect("FelsidaAllman.asp")
Response.write "test<br>" & logginSQL & "<br>EOF: " & logginRst.EOF & "<br>BOF: " & logginrst.BOF

else 'Inloggningen lyckades

'Response.Write(logginSQL)

'Deklarera sessions som hjälper mig hålla reda på den inloggade användaren

Session("userID") = logginRst(0)
Session("userName") = logginRst(1)
Session("userEmail") = logginRst(2)
Session("userFullName") = logginRst(3)

If logginRst(5) = -1 Then
Session("Admin") = "Ja"
Else
Session("Admin") = "Nej"
End If
If (logginRst(4) = -1) Then
Session("InloggadNivå") = "Full"
Else
Session("InloggadNivå") = "Delvis"
End If


'Uppdatera information om användaren
logginSQL = ""
logginSQL = logginSQL & "UPDATE Medlemsforteckning SET "
logginSQL = logginSQL & "Inloggad = -1, " 'Användaren är inloggad
logginSQL = logginSQL & "SenasteInloggning = #" & Now() & "# " 'Användarens senaste inloggning
logginSQL = logginSQL & "WHERE MedlemsID = " & Session("userID")
'Response.Write("<br>" & logginSQL)
logginConn.Execute(logginSQL)

'Skicka användaren till startsidan
Response.Redirect("hem.asp")

end if

'Stäng recordset
logginRst.Close
Set logginRst = nothing
'Stäng databaskopplingen
logginConn.Close
Set logginConn = nothing

end if
</code>