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

[JuanRAPerez]

usa un simple "select * from tutabla where email = '" & request("email") "'"

suerte

[ezequielfmartin]

Necesitaba que me dijeras en que lugar del codigo va ese select y si el codigo en si esta bien...Soy novato en esto...Gracias

[teorico]

ese select va antes del while

[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

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

[3pies]

La propuesta de teorico es teóricamente -valga la redundancia-, la correcta, pero ¿qué pasaría si alquien pusiese este email en el formulario de acceso a esas páginas restringidas?:

Código:

' or '1'='1

La respuesta está en la sql injection.

[ezequielfmartin]

HOLA GENTE DISCULPEN LO PESADO QUE SOY PERO ESTE CODIGO QUE TENGO YO MAS LO QUE ME ACONSEJARON QUE HAGA SIGUE SIN FUNCIONAR, HAY OTRO CODIGO PARA VERIFICAR SI LOS DATOS QUE INGRESA EL USUARIO SON LOS REGISTRADOS EN EL base de datos?

ENCONTRE VARIAS DE ESAS FORMAS PERO NINGUNA ME FUNCIONO, ES MAS VARIABAN EN LA FORMA DE APERTURA DE LA BASE DE DATOS

SI SABEN ALGO MAS Y SI NO ES MOLESTIA ACEPTO CUALQUIER DATO QUE ME QUIERAN APORTAR...

MI CODIGO QUEDO ASI

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 TBL = DB.execute(strSql)
While NOT TBL.EOF

	If Request.Form("E-mail")=TBL("E-mail")then

	Response.Redirect("ACCESO PERMITIDO")

	Else

	Response.Redirect("ACCESO DENEGADO")
	End if

TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing
else
End If
%>

[JuanRAPerez]

usastes el codigo de teorico?

es muy bueno el codigo solo tendrias como dice 3pies que hacer una limpieza de caracteres en el request para poder evitar que violenten tu sitio

'TBL.Open "registrados" ,DB

esa linea esta comentariada

[ezequielfmartin]

Si Use El Codigo De El Amigo Pero No Sirvio, El Comentario Se Lo Saque Y Se Lo Coloque Pero No Modifica En Nada El Codigo. Estoy Usando Otros Codigos Asp Para Otras Funciones Sin Problemas Asi Que El Hosting, Lo Soporta. El Tema Es Que Probe Infinidad De Codigos De Otros Foros Y De Este Y No Me Lleva El Apunte En El Caso De Este Ultimo Que Probe A La Hora De Enviar Me Pone Pagina No Encontrada.


Saludos

[JuanRAPerez]

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