Loginsystem - Forbedre

Jeg har lavet et loginsys, men det lader til at der er huller i den :/ Ville gerne vide om der er nogle der har forslag til forbedringer?

login.asp:

<%
dim login
login = Request.Querystring("login")
if login = "" then
%>
<form action="admin.asp?login=ja" method="post">
Brugernavn: <input type="text" name="brugernavn">
<br>
Kodeord: <input type="password" name="kodeord"><br>
<input type="submit" value="OK">
<%
elseif login = "ja" then
%>

<%
    dim brugernavn, password
    brugernavn = request.form("brugernavn")
    password = request.form("kodeord")

    if brugernavn = "test" and password = "test" then
        session.contents("login") = 1
        session.contents("logintidspunkt") = now
        response.redirect "beskyttetfil.asp"
    else
        session.contents("login") = 0
        response.redirect "beskyttetfil.asp"
    end if
%>
<%
elseif login = "nej" then
%>
<!-- Fejl -->
Dine login dataer var forkerte...
<%
else login = ""
end if
%>


beskyttet fil:

<%
    if session.contents("login") <> 1 then
    response.redirect "login.asp?login=nej"
    end if
%>