<%@ 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%>