Tak for opmærksomheden.
Den er lidt rodet, men jeg håber du kan lokalisere fejlen.
**** Godkend.asp:
<% response.buffer = true %>
<html>
<head>
<title>Login</title>
<LINK REL="StyleSheet" HREF="default.css" type="text/css">
</head>
<body>
<%
Dim BrugerID, BrugerNavn, navn, fejl, adgangskode, username, password
fejl = false
navn = Trim(Replace(Request.Form("navn"), "'", "''"))
adgangskode = Trim(Replace(Request.Form("adgangskode"), "'", "''"))
If navn = "" Then
Response.Write "<p><font color=red>Indtast venligst dit brugernavn!</p></font>"
fejl = true
End If
If adgangskode = "" Then
Response.Write "<p><font color=red>Indtast venligst dit password!</p></font>"
fejl = true
End If
If fejl = true Then
Response.Write "<p><a href=java script:history.back()>Tilbage / Back</a>"
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=D:\Websider\resadmin\-\resultat.mdb;UID=;PWD=;"
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM bruger WHERE navn='" & navn & "' and adgangskode = '" & adgangskode & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Response.Write "<p><b>Login godkendt</b>"
Response.Write "<p>Du er nu logget på som '" & rs("navn") & "' </p>"
'Session("login") = TRUE
'Session("level") = objRec("level")
Session("login") = true
'Session("navn") = rs("navn")
'Session("userid") = rs("id")
'Emmas herunder - brugernavn
Session("BrugerID") = rs("id")
Session("BrugerNavn") = rs("navn")
Conn.Execute("UPDATE bruger SET sidste_login='" & Now & "' WHERE id=" & Session("BrugerID"))
'IF objRec.EOF THEN
' Session("loginerr")="Forkert brugernavn eller adgangskode<br>"
' Response.Redirect "login.asp"
'ELSE
' Session.timeout = 20
' Session("login") = TRUE
' Session("level") = objRec("level")
' Session("BrugerID") = objRec("id")
' Session("BrugerNavn") = objRec("navn")
%>
<p><A href="../velkommen.asp" onFocus="this.blur()">Til Startsiden</a></p>
<%
If request.form("save") = "on" then
Response.Cookies("Brugere")("navn") = session("navn")
Response.Cookies("Brugere")("adgangskode") = adgangskode
Response.Cookies("Brugere").expires = Date+365 'Information gemmes i cookie i et år, hvis brugeren har valgt at gemme information
Else
Response.Cookies("Brugere").expires = Date-1000 'Information slettes ved at sætte "expires" 1000 dage tilbage, idet brugeren har valgt at slette information
End If
Else
Response.Write "<p><font color=red>Du blev ikke logget ind! Du har muligvis indtastet forkert brugernavn eller password!</font></p>"
Response.Write "<p><a href=java script:history.back()>Tilbage</a></p>"
End If
Conn.Close
Set Conn = Nothing
End If
%>
</body>
</html>
