problemer med meget simpel loginform
Hvad er der galt med følgende kode!!!<%
if Session("login") = "loged_in" then Response.Redirect("main.asp")
%>
<%
If Request.QueryString("submit") <> "" Then
brugernavn = Trim(Replace(Request.QueryString("brugernavn"),"'","''" ))
adgangskode = Trim(Replace(Request.QueryString ("adgangskode"),"'","''" ))
%>
<%
Set database = Server.CreateObject ("ADODB.Connection")
database.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/staevner.mdb")
%>
<%
Set autoriseret = Server.CreateObject ("ADODB.Recordset")
autoriseret.Open "SELECT * FROM adgang WHERE brugernavn = '" & brugernavn & "' AND adgangskode = '" & adgangskode & "'", database
if not autoriseret.EOF then
Session("login") = "loged_in"
Session("brugernavn") = rs("brugernavn")
Response.Redirect("main.asp")
end if
end if
%>
<form name="form1" method="post" action="">
<center>
<table width="230" border="0" align="center">
<tr>
<td colspan="2"><strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><img src="../pic/user.gif" width="23" height="18">
Login til administration<br>
<img src="../pic/moerkeblaa.gif" width="250" height="2"></font></strong></td>
</tr>
<tr>
<td width="96"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Brugernavn:</font></td>
<td width="151"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="brugernavn" type="text" id="brugernavn" size="21">
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Adgangskode:</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="adgangskode" type="password" id="adgangskode" size="21">
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="submit" type="submit" class="knap" value="Login">
</font></td>
</tr>
</table>
</center>
</form>
