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