Un módulo de usuarios

[u_goldman]

Falta agregar en la parte superior de nuestro archivo, los includes correspondientes de la cadena de conexión y la clase usuario, sin estos includes los Dioses del ASP, se enojarán con nosotros:

Código:

<!--#include file = "../conexion.asp"-->
<!--#include file = "../componentes/usuario.asp"-->

Al final, nuestro código quedará más o menos así:

Código:

<!--#include file = "../conexion.asp"-->
<!--#include file = "../componentes/usuario.asp"-->
<!--#include file = "../admin/header.asp"-->
<%
Dim formaHasidoEnviada
Dim ObjUsuario
Dim strError

formaHasidoEnviada = len(Request.Form("formaEnviada")) > 0
strError = ""

if not formaHasidoEnviada then
	if Session("loginError") then
		strError = "Usuario o contraseña incorrectos, por favor intente de nuevo"
		Session.Contents.Remove("loginError")
	end if
	%>
	<div class="error"><%=strError%></div>
	<form action="login.asp" method="post" id="formaAsp">
		<input type="hidden" name="formaEnviada" value="1" ID="Hidden1"/>
		<input type="hidden" name="accion" value="ingresar" ID="Hidden2"/>
	    
		<fieldset class="forma">
			<legend>Introduzca sus datos de acceso</legend>
			<div class="formaEtiqueta">
				<label for="uname">Usuario:&nbsp;</label>
			</div>
			<div class="formaCampo">
				<input type="text" id="uname" name="uname" value="" maxlength="50" />
			</div>
			<br />
			<div class="formaEtiqueta">
				<label for="pwd">Password:&nbsp;</label>
			</div>
			<div class="formaCampo">
				<input type="password" id="pwd" name="pwd" maxlength="8" vcalue="" />
			</div>
			<br />
			<input type="submit" value="Ingresar" class="formaBoton" />
		</fieldset>
	</form>
<%
else
	Set ObjUsuario = new usuario
	ObjUsuario.uname = trim(Request.Form("uname"))
	ObjUsuario.pwd = trim(Request.Form("pwd"))
	
	'----------Esta parte la trabajaremos mañana------
	'if ObjUsuario.Autentificar() then
	'	Response.Write("Ahora si ingresaste")
	'else
	'	Set ObjUsuario = Nothing
	'	Session("usuarioID") = ""
	'	Session("loginError") = true
	'	Response.Redirect("login.asp")
	'end if
	'--------------------------------------------------
end if
%>
<!--#include file = "../admin/footer.asp"-->

Mañana implementaremos el método de autentificar y hablaremos del objeto Command, al final del día tendremos nuestro form funcionando .


Saludos