<%@Language ="VBScript"%>
<%Response.Buffer = True
%>
<!-- #include file="db.inc" -->
<%
usuario= Request.form("usuario")
pwd = Request.form("pwd")

SQL_usuarios = "SELECT * FROM usuario where usuario='"&usuario&"' and contrasena='"&pwd&"'"
Set usuarios = fp_db.Execute(SQL_usuarios) 

if not usuarios.eof then
	Response.Cookies("generacion21").Expires = Date + 1
    Response.Cookies("generacion21") = "valido"
	Response.Redirect "controlpanel.asp" 
end if
    Response.Redirect "logon.asp"
%>