cuando dices no sirvio
a que te refieres?????
entonces el error es de lectura y de poca explicacion
utilicemos el mismo codigo y hace lo siguiente
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"))
strSql = "select * from registrados where E-mail = '" & request("E-mail") &"'"
set TBL = DB.execute(strSql)
While NOT TBL.EOF
If Request.Form("E-mail")=TBL("E-mail")then
Response.Redirect("entrar.asp")
Else
Response.Redirect("salir.asp")
End if
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
else
End If
%>
crea tu las paginas entrar.asp y salir.asp para que no te de error de
"Pagina No Encontrada."
suerte