<%@ LANGUAGE="VBSCRIPT" %> <% Dim Opcion Dim Usuario Opcion = Request.Form ("Opcion") Usuario = Request.QueryString ("usuario") If usuario = "" Then usuario = Request.Form("usuariog") End If 'Response.Write Usuario %> :: INFOAMEC :: <% '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" %>