Hola a todos, q tal? Estoy con un proyecto, hace un mes más o menos lo dejé un poco de lado y ahora vuelvo con el. Mi problema viene que al intentar conectar ahora no lo consigo, y me da errores, algo que antes funcionaba bien.ç
Os pongo el codigo a ver en que puede fallar
<% Dim usuario, pass, conexion, RS, sesion
path = Server.MapPath("./")
If request.form("usuario")="" or request.form("pass")="" then ' Comprobamos que las variables tienen algo
response.redirect("Reserva pistas.asp") ' si no tienen nada redireccionamos a la página del login
Else
Response.write("Y el dijo 'que se vayan todos'; pero...")
usuario =Trim(request.form("usuario")) ' Metemos los datos en variables
pass = Trim(request.form("pass"))
usuario = Replace(usuario,"'","''") ' así evitamos las comillas simples por pirateo
pass = Replace(pass,"'","''")
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\ClubTenis\index_archivos\CT AB97.mdb"
sql = "SELECT * FROM socios WHERE usuario = '"& usuario &"' and pass= '" & pass &"'" ' Hacemos la consulta SQL
Set RS= Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, conexion
if (RS.eof=TRUE) then
%>
<script language="javascript" > window.alert("El usuario no existe o clave incorrecta");
location.href="Reserva pistas.asp" </script>
<%
'response.redirect("Reserva pistas.asp") ' si no tienen nada redireccionamos a la página del login
elseif RS.Fields("pass") <> pass then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
%>
<script language="javascript" > window.alert("La contraseña no es valida");
location.href="Reserva pistas.asp"
</script>
<%
else
tipo=RS.Fields("tipo")
if tipo=2 then
login= RS.Fields("nombre")
Session("sesion")=login
response.redirect("admin.asp")
else
login= RS.Fields("nombre")
Session("sesion")=login
end if
end if
end if
%>
Me stoy empezando a desesperar. Gracias a todos
