<% brukernavn = Request.form("bruker") passord = Request.form("pass") accepted = 0 Set Mlogin = Updb.Execute("SELECT * FROM brukere;") While Not Mlogin.Eof If Mlogin("login") = brukernavn Then If Mlogin("passord") = passord Then Session("bruker") = Mlogin("id") Session.Timeout = 30 Response.write (" " &br) Response.write ("
" &br) Response.write (" " &br) Response.write ("
" &br) Response.write (" " &br) %>
INNLOGGING OK
<% ' Response.write ("") accepted = 1 End If End If Mlogin.MoveNext Wend If accepted = 0 Then %>
LOGIN FAILED
<% Response.write("") End If %>