Hola Adler,
Gracias por responerme tan rápido, en probado tu código y me da el error: "No coinciden los tipos fallo" en validar.asp. En vez de poner session("usuario") = fallo, he puesto fallos y va ahora funciona pero no llama a la función fallo sino que llama a la función formulario ya que no me salen las frases avisando de que te has equivocado que deberían de salir. Este es el código que tengo ahora.
También me ocurre que si meto bien las datos de usuario y contraseña, no sale el formulario pero tampoco sale el mensaje de bienvenida con el nombre de usuario que me solía salir y el link a la opción de finalizar sesión.
plantilla.dwt.asp
Código HTML:
<div class="menu4">
<% if Not IsEmpty(session("usuario")) then
if (session("usuario") = usu) then
Call conectado()
else
if (session("usuario") = fallos) then
Call fallo()
end if
end if
else
Call formulario()
end if %>
</div> validar.asp
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<!--#include file="includes/AbrirBD.asp"-->
<!--#include file="includes/acceder.asp"-->
</head>
<%
usu = request.Form("usuario")
pass = request.Form("pwd")
sql = "Select * from USUARIOS where usuario = '"&usu&"'"
'Ejecutar la instruccion contra la base de datos Cole'
tabla.open sql, conexion
if tabla.eof then
response.Write "No existe ningun usuario con ese nombre"
else
if tabla.fields("pass") = pass and tabla.fields("usuario") = usu then
session("usuario")= usu
response.Redirect("index.asp")
else
session("usuario")= fallos
response.Redirect("index.asp")
end if
end if
%>
<body>
<a href="index.asp">Volver</a>
</body>
<%tabla.close
conexion.close%>
</html> acceder.asp
Código HTML:
<% sub formulario()%>
<form class="formulario" action="validar.asp" method="post" target="_self">
Usuario<br/>
<input name="usuario" type="text" id="usuario" size="13" />
Contraseña
<input name="pwd" type="text" id="pwd" size="13" style="margin-bottom:5px;" />
<input type="submit" name="button4" id="button4" value="Acceder" />
</form>
<%end sub%>
<%sub conectado()
%>
<div class="normal">Bienvenid@ <%=session("usuario")%></div>
<div class="normal2"><a href="includes/desconectar.asp" target="_self">Finalizar sesión</a></div>
<%end sub%>
<%sub fallo()%>
<div class="normal">El nombre de usuario o contraseña son incorrectos</div>
<div class="normal">Por favor, vuelva a intentarlo</a></div>
<form class="formulario" action="validar.asp" method="post" target="_self">
Usuario<br/>
<input name="usuario" type="text" id="usuario" size="13" />
Contraseña
<input name="pwd" type="text" id="pwd" size="13" style="margin-bottom:5px;" />
<input type="submit" name="button4" id="button4" value="Acceder" />
</form>
<%end sub%>