login problem

hver gang jeg forsøger at logge ind, skriver den bare brugeren ikke fundet....

www.friserverplads.dk/medie-projekt/login.asp

E-mail : pedersen
password : kgp

hvis i fik lyst til at prøve....

jeg har lagt siderne nedenfor....

<--- Login.asp --->

<%@ Language=VBScript %>
<% Response.Buffer = True %>
<!--#INCLUDE FILE ="code_lib.asp" -->
<HTML>
<HEAD>
<TITLE>Sport / Idræt - Login</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then checklogin sqlreplace(Request.Form("email")),sqlreplace(Request.Form("password")) %>
<TABLE>
<TR>
<FORM ACTION="login.asp" METHOD="POST">
<TD>
E-mail
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="email" SIZE="20">
</TD>
</TR>
<TR>
<TD>
Password
</TD>
<TD>
<INPUT TYPE="PASSWORD" NAME="password" SIZE="20">
</TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="RIGHT">
<INPUT TYPE="SUBMIT" VALUE="Login">
</TD>
</FORM>
</TR>
</TABLE>
</BODY>
</HTML>


og dette er fra code_lib

<--- code_lib.asp --->
Function checklogin(email,password)
    set tjek = Conn.Execute("SELECT user_id FROM users WHERE user_email = '"& email &"' AND user_password = '"& password &"'")
    If tjek.EOF THEN
    Response.Write "Bruger ikke fundet"
    Else
    Session("mail_login") = tjek("user_id")
    Response.Redirect("login/default.asp")
    End If
End Function