Comprobar e-mail en base de datos

[ezequielfmartin]

HOLA QUERIA SABER SI ME PODIAN DECIR COMO PUEDO HACER PARA COMPROBAR UN E-MAIL REGISTRADO EN MI BASE DE DATOS. EL CODIGO QUE USO ES EL SIGUIENTE:

<%
If Request.Form("E-mail") <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("registrados.mdb"))

TBL.Open "registrados" ,DB

While NOT TBL.EOF

If Request.Form("E-mail")=TBL("E-mail")then
Response.Redirect("URL PAGINA PERMITIDA")
Else
Response.Redirect("URL PAGINA NO PERMITIDA")
end if

TBL.MoveNext

wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

else
End If
%>

ESTE CODIGO SOLO ME TOMA EL PRIMER REGISTRO DE LA TABLA DE EMAIL LOS DEMAS ME APARACE QUE NO ESTAN REGISTRADOS. OSEA NO RECORRE LA TABLA PARA VERIFICAR EL REGISTRO

MUCHAS GRACIAS, MUY BUEN FORO LO RECOMIENDO