Jmail og glemt password

Jeg har en glemt password side som jeg får fejl på hvis den email som bliver indtastet ikke er til stede eller hvis den forekommer flere gange.
Ellers virker det.
Er der nogen der kan hjælpe?

<%

Dim  email, navn, brugernavn, Password

email=Replace(request.form("email"),"'","")
'email=(request.form("email"))
navn=request.querystring("navn")
brugernavn=request.querystring("Username")
Password=request.querystring("Password")
'navn=Replace(request.querystring("navn"),"'","")



set connect=server.createobject("adodb.connection")
connect.open"provider=microsoft.jet.oledb.4.0;data source=D:\web\domænenavn\db\login_2000.mdb"

Set RS = Server.CreateObject("ADODB.Recordset")
set RS=connect.execute("SELECT * From Users Where email='" & email & "';")

'sender brugernavn til email adressen

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "smtp.cliche.dk"
  JMail.Sender        = "jens@manving.dk"
  JMail.SenderName    = "Dykker Info"
  JMail.Subject      = "Her er dit password til Dykker "   
'Modtager
JMail.AddRecipient    Request.Form("email")
 
JMail.Body = JMail.Body & "Navn: "&rs("navn")&"  " & vbCrLf
JMail.Body = JMail.Body & "Brugernavn: "&rs("Username")&"  " & vbCrLf
JMail.Body = JMail.Body & "Password: "&rs("Password")&"  " & vbCrLf

'Send mailen
  JMail.Execute
 
  Set JMail = Nothing
end if

if rs.EOF or rs.BOF then
  Response.write "Ingen bruger fundet"
else
%>

<% end if %>

<table align="center" border="0">
    <tr>
        <td>Dine login data er nu på vej.
</td>
    </tr>
</table>

<%
Connect.Close
Set Connect = nothing
%>