Login
Jeg har en login side som ser sådan her ud, er der nogen som kan hjælpe mig, så når man er logget ind står der (Davs \"Brugernavn\").koden til loginsiden ser sådan her ud.
<%
mode = Request(\"mode\")
Response.Buffer = True
%>
<html>
<head>
<title>Service</title>
</head>
<body>
<% if mode = \"\" then %>
<font size=4>Login</font><br><font size=2 color=red><%=Request.Querystring(\"error\")%></font><br>
<form method=post action=default.asp?mode=login>
Brugernavn: <input type=text name=Brugernavn><br>
Kodeord: <input type=password name=kodeord>
<input type=submit value=Login><br><br>
<a href=opret.asp>Opret ny bruger</a>
</form>
<% end if %>
<% if mode = \"login\" then
\'//Connection til databasen!
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"xxxxxxx.mdb\")
strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\"
Set rs = myConn.Execute(strSQL)
\'//Hvis der ingen bruger findes med det ønskede navn
If rs.BOF Or rs.EOF Then
Response.Redirect(\"default.asp?error=Ingen bruger med det navn!\")
end if
\'//Hvis kodeordet matcher kodeordet i databasen
if rs(\"brugerKodeord\") = Request.form(\"kodeord\") then
\'Laver session, med brugernavn og id
session(\"brugernavn\") = rs(\"brugernavn\")
session(\"id\") = rs(\"brugerid\")
session(\"login\") = yes
Response.Redirect(\"logged_in.asp\")
else
\'//Hvis kodeordet var forkert!
Response.Redirect(\"default.asp?error=Du har indtastet forkert password!\")
end if
\'//Lukker connection
myConn.Close
Set myConn = Nothing
end if %>
</body>
</html>
