Hola amigos:
He conseguido crear un acceso restringido con Login y Pass, leyendo una base de datos Access en mi servidor. Hasta ahi perfecto.
Lo q pasa es q no siempre funciona, y ya no sé si es q la conexión la he hecho mal o yo q sé... pero eso de q unas veces vaya y otras no, pues no lo entiendo.
Aki tienen el código por si pudieran ver algo "raro", ok??
Muchas gracas por vuestra atención.
Desde una pagina ASP con campos de texto:
<form action="logBD.asp" method="post">
<p> </p>
<table border=0>
<tr>
<td><b><font face="Arial">Login:</font></b></td>
<td><input type="text" name="login"></td>
</tr>
<tr>
<td><b><font face="Arial">Password:</font></b></td>
<td><input type="password" name="pass"></td>
</tr>
</table>
<input type="submit" name="submit" value=" Entrar ">
</form>
hago referencia a:
<%
dim sLogin,sPass,oConn,SQL,rs
on error resume next
Response.buffer=True
sLogin=trim(cstr(Request.Form("login")))
sPass=trim(cstr(Request.Form("pass")))
set oConn=Server.CreateObject("ADODB.Connection")
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Data/clientes.mdb")
oConn.Open "DSN=nombre.de.DSN"
SQL="SELECT Id, LOGIN, PASSWORD FROM " & _
"ADMINS WHERE (LOGIN='"&sLogin&"' AND PASSWORD='"&sPass&"');"
set rs=oConn.Execute(SQL)
if rs.EOF then
Session("user")=""
Response.Write ("<br>Por favor, compruebe su nombre de usuario y password.<br>")
else
Session("user")=sLogin
Response.Redirect ("linksactivados.asp")
end if
rs.Close
oConn.Close
%>
Y carga una pagina q contiene:
<%
on error resume next
Response.Buffer=True
if Session("user")="" then
Response.Write("<h4>Usted no está autorizado para acceder a esta página.")
Response.End
end if
%>
Espero q puedan echarme una mano!!
