Fejl i ASP login form

Hej!

Jeg har et lille problem med en lille login form... Det er meningen, at den skal kigge i db.mdb efter et username og password, som er indtastet i formen. Men det virker ikke helt... Er der nogen, der kan hjælpe mig?

Min kode ser sådan ud:

<%@ Language=VBScript %>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

Function checklogin(username,password)
    set check = Conn.Execute("SELECT * FROM Community WHERE username = '"& username &"' AND password = '"& password &"'")
    If check.EOF THEN
        Text = "Username or password not correct!"
    Else
        Session("login") = check("id")
        Response.Redirect("loggedin.asp")
    End If
End Function

Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
End Function
%>
Please log in:<br>
<form action="login.asp" method="POST">
<table border="0" cellpadding="0" cellspacing="0" width="120">
  <tr>
    <td width="120">Username:<br><input type="text" name="username" size="12"></td>
  </tr>
  <tr>
    <td width="120">Password:<br><input type="password" name="password1" size="12"></td>
  </tr>
  <tr>
    <td width="120">Retype password:<br><input type="password" name="password2" size="12"></td>
  </tr>
  <tr>
    <td width="120" align="right"><input type="submit" value="Submit"></td>
  </tr>
</table>

Håber der er, nogen der kan hjælpe mig!