Either BOF or EOF is True
Hvad er der lige galt når jeg får denne fejl:Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
Den skriver at det er i denne linje:
str = "Brugernavnet eller Adgangskoden er forkert!"
Her er min kode:
<%
Dim sSeed
Dim sValidBrugernavn
Dim sValidPassword
Dim sValidHash
Dim sBrugernavn
Dim sPassword
Dim sHash
Dim sGruppenavn
Dim sInitial
Dim sFornavn
Dim sEfternavn
Dim str
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("Login.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT Gruppenavn FROM Bruger WHERE Brugernavn='" & request("brugernavn") & "'"
rs.Open SQL, Conn
Session("auth_GruppenavnId") = rs("Gruppenavn")
rs.Close
SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn, Bruger.Email, Bruger.Brugerkode, Bruger.Initial, Bruger.Fornavn, Bruger.Efternavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId WHERE Brugernavn='" & request("brugernavn") & "'"
rs.Open SQL, Conn
if rs.EOF = true then
str = "Brugernavnet eller Adgangskoden er forkert!"
else
sValidBrugernavn = rs("Brugernavn")
sValidPassword = rs("Brugerkode")
sGruppenavn = rs("Gruppenavn")
sInitial = rs("Initial")
sFornavn = rs("Fornavn")
sEfternavn = rs("Efternavn")
sEmail = rs("Email")
sSeed = Session("auth_seed")
sValidHash = MD5(sSeed & sValidPassword)
sBrugernavn = Request.Form("brugernavn")
sPassword = Request.Form("password")
sHash = Request.Form("hash")
If sSeed = "" Then
str = "Din session er lukket. Du har enten venter for langtid eller også understøtter din browser ikke cookies."
ElseIf sBrugernavn = "" Then
str = "Brugernavnet eller Adgangskoden er forkert!"
ElseIf LCase(sBrugernavn) <> LCase(sValidBrugernavn) Then
str = "Brugernavnet eller Adgangskoden er forkert!"
ElseIf sHash = "" And sPassword <> "" Then
If sPassword <> sValidPassword Then
str = "Brugernavnet eller Adgangskoden er forkert!"
Else
Session("auth_granted") = "true"
Session("auth_Brugernavn") = sBrugernavn
Session("auth_Gruppenavn") = sGruppenavn
Session("auth_Initial") = sInitial
Session("auth_Fornavn") = sFornavn
Session("auth_Efternavn") = sEfternavn
Session("auth_Email") = sEmail
Response.Write "<script>top.document.location.href=""../intern/index.asp""</script>"
end if
ElseIf sHash <> "" Then
If sHash <> sValidHash Then
str = "Adgangskoden er ikke rigtig."
Else
Session("auth_granted") = "true"
Session("auth_Brugernavn") = sBrugernavn
Session("auth_Gruppenavn") = sGruppenavn
Session("auth_Initial") = sInitial
Session("auth_Fornavn") = sFornavn
Session("auth_Efternavn") = sEfternavn
Session("auth_Email") = sEmail
Response.Write "<script>top.document.location.href=""../intern/index.asp""</script>"
end if
else
str = "Der er sket en fejl. Prøv venligst igen. Hvis dette fortsætter så kontakt venligst webmaster@havneparken1vejle.dk"
End If
End if
%>
