Login...

hvad er der galt med dette login script?

Code:
<!-- #include file=\"top.asp\" -->
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<div align=\"center\">
<center>
<table border=\"0\" width=\"234\" cellspacing=\"0\" cellpadding=\"0\">
<form method=\"post\" action=\"login.asp?mode=login\">
<tr>
<td width=\"85\">Brugernavn:</td>
<td width=\"151\"><input type=\"text\" name=\"brugernavn\"></td>
</tr>
<tr>
<td width=\"85\">Password:</td>
<td width=\"151\"><input type=\"password\" name=\"password\"></td>
</tr>
<tr>
<td width=\"85\"></td>
</center>
<td width=\"151\">
<p align=\"right\"><input type=\"submit\" value=\"Login\"></p>
</td>
</tr>
</table>
</div>
</form>
<% end if %>
<% if mode = \"login\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"data/eol.mdb\")
Conn.Open DSN

strSQL = \"Select * from medlemmer\"
Set rs = Conn.Execute(strSQL)

Do

If Request.Form(\"brugernavn\") = & rs(\"nick\") & AND Request.Form(\"password\") = & rs(\"password\") & Then
If & rs(\"rank\") & = \"webmaster\" then
Response.Cookies(\"login\")(\"login\") = \"ja\"
Response.Cookies(\"login\")(\"webmaster\") = \"ja\"
Response.Cookies(\"login\").Expires = Date+1
response.redirect \"privat.asp\"
else
Response.Cookies(\"login\")(\"login\") = \"ja\"
Response.Cookies(\"login\").Expires = Date+1
response.redirect \"privat.asp\"
end if
else


  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

response.redirect \"login.asp\"
end if
%>
<% end if %>
<!-- #include file=\"bund.asp\" -->