Glemt password - tjek email adresse

Hej Eksperter - jeg håber i kan hjælpe mig her:

Jeg har en lille glemt password funktion men mangler at tjekke email. Har prøvet med

IF Not send_brugerinfo.EOF Then

response.write ("email findes ikke i databasen")

Else

(kør jmail)
end if

Men så skriver den at email ikke findes selvom den gør og hvis jeg skriver en der ikke ifndes får jeg en fejlside

Min kode:

Dim send_brugerinfo
Dim send_brugerinfo_numRows

Set send_brugerinfo = Server.CreateObject("ADODB.Recordset")
send_brugerinfo.ActiveConnection = MM_conn_STRING
send_brugerinfo.Source = "SELECT itembrugernavn, itememail, itemnavn, itempassword FROM itembruger where itememail ='" & Request.Form ("email") & "'"
send_brugerinfo.CursorType = 0
send_brugerinfo.CursorLocation = 2
send_brugerinfo.LockType = 1
send_brugerinfo.Open()

send_brugerinfo_numRows = 0

Set JMail          = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.server.dk"
JMail.Sender        = "itv@ebberup.dk"
JMail.Subject      = "Glemt password"
JMail.AddRecipient  send_brugerinfo("itememail")

JMail.Body = "Hej " & send_brugerinfo("itemnavn") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Du har anmodet om brugernavn og password som er:" & vbCrLf
JMail.Body = JMail.Body & bodyStr
JMail.Body = JMail.Body & vbCrLf
JMail.Body = JMail.Body & "Brugernavn: " & send_brugerinfo("itembrugernavn") & vbCrLf
JMail.Body = JMail.Body & "Password: " & send_brugerinfo("itempassword") & vbCrLf
JMail.Body = JMail.Body & "Med venlig hilsen" & vbCrLf
Jmail.Body = Jmail.Body & "Sort & Gratis"
JMail.Execute

Set Jmail = Nothing


send_brugerinfo.Close()
Set send_brugerinfo = Nothing

Response.Redirect("brugerinfo_sendt.asp")