Comprobar e-mail en base de datos

[ezequielfmartin]

GRACIAS PRIMERO POR TODAS LAS RESPUESTAS, PERO HICE LO QUE ME SUJIRIERON PERO NO FUNCIONA, ES MAS LA PAGINA NO SE PUEDE MOSTRAR (No se puede mostrar la página), EL CODIGO SEGUN LO QUE ME ACONSEJARON ME QUEDO ASI

<%
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

select * from registrados where E-mail = '" & request("E-mail") "'"
While NOT TBL.EOF
If Request.Form("E-mail")=TBL("E-mail")then
Response.Redirect("PAGINA PERMITIDA")
Else
Response.Redirect("acceso denegado")
end if

DB.MoveNext

wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

else
End If
%>


Mi idea es que el usuario ingrese su mail y si esta registrado en la base de datos que permita entrar a la pagina, caso contrario que salte a otra para que pueda registrarse (esta ultima la tengo hecha)

Gracias.....espero me puedan ayudar