Hov, der manglede lige en logud-knap:
***********************************************************
1)
<%
Response.Buffer = True
' ÅBEN DIN DATABASE
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
Response.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0//EN'><HTML><HEAD><TITLE>LOG IND ELLER UD</TITLE></HEAD><BODY>"
'BRUGERENS SESSION OG COOKIE TØMMES VED LOG UD
If Request.Querystring("logout") = "true" Then
Response.Cookies("user")("brugernavn") = ""
Response.Cookies("user")("password") = ""
Session("User") = ""
End If
If Request.Querystring("action") = "validate" Then
strBrugerNavn = Request.Form("brugernavn")
strPassword = Request.Form("password")
strPassword = Replace(strPassword,"'","''")
strBrugerNavn = Replace(strBrugerNavn,"'","''")
strLogIN = Request.Form("login")
SQL = "Select Brugernavn,Password From profiltabel Where Brugernavn = '" & strBrugernavn & "'"
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then
If rs("Password") = strPassword Then
' LOGIN - OK!
If strLogIN = "true" Then
Response.Cookies("user")("brugernavn") = rs("Brugernavn")
Response.Cookies("user")("password") = rs("Password")
Response.Cookies("user").Expires = Date+365
End If
Session("User") = rs("Brugernavn")
Response.Write "Du er nu logget ind!"
Else
Response.Write "Brugernavn og/eller password er ikke korrekt angivet!<br>"
End If
Else
Response.Write "Brugernavn og/eller password er ikke korrekt angivet!<br>"
End If
Set rs = Nothing
End If '****************************************************************************
Response.Write "<form method='POST' action='brugere.asp?action=validate' name='form'>"
Response.Write "Brugernavn: <input type='text' value='" & strBrugerNavn & "' name='brugernavn'>"
Response.Write "Password: <input type='password' value='" & strPassword & "' name='password'>"
Response.Write "<input type='checkbox' name='login' value='true'> Kryds af her for at blive logget ind automatisk fremover.<br><br>"
Response.Write "<input type='submit' name='submit' value='Log ind'><a href='brugere.asp?logout=true'>Log ud</a>"
Response.Write "</form>"
Response.Write "</BODY></HTML>"
%>
************************************************
Jo, lav en ny database med navnet "database" og opret en tabel heri med navnet "profiltabel". I denne tabel laver du to kolonner (til at starte med) med navnene "Brugernavn" og "Password" og af datatypen "text".
Og gem så ovenstående kode i en tom fil, som du kalder "brugere.asp".
Det skulle være det...
