<%@ LANGUAGE="VBSCRIPT" %>
:: INFOAMEC ::
<%
Dim Login
Dim Password
Login = trim(Request.Form("Login"))
Password = trim(Request.Form("Password"))
Opcion = Request.Form("Opcion")
%>
<%
'CONEXION A BASE DE DATOS
Dim ruta, conecto
ruta = Server.MapPath("base_infoamec/infoamec.mdb")
set conecto = server.createobject("ADODB.connection")
conecto.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&ruta&";Persist Security Info = False"
%>
<%
If opcion = "entrar" Then%>
<%
set usuario = conecto.execute("SELECT * FROM usuarios WHERE vchlogin = '"&login&"' and vchpassword = '"&password&"'")
with usuario
if .eof and .bof then
Response.Write "
El usuario y/o password no existe. Por favor ingrese nuevamente sus datos.
"
Response.Write "
"
Else
.movefirst
Session ("id_usuario")= usuario("id")
Response.Redirect "menu.asp?usuario="&usuario("id")&""
.movenext%>
<%end if
end with%>
<%End If%>