Comprobar e-mail en base de datos

[teorico]

Prueba con este codigo compañero...

Código:

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

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

lista.MoveNext
wend

lista.Close
DB.Close

Set DB = Nothing
Set lista = Nothing
End If
%>