<% set conn = server.createobject ("adodb.connection") conn.open cone sql="SELECT * from directorio" 'response.write (sql) 'response.end set rs= conn.execute(sql) do while not rs.eof if (request("nom_usuario"))=(rs("usuario")) and (request("password"))=(rs("clave")) then SESSION("usuario")=1 session("password")=rs("clave") session("compania")=rs("directorio") session ("usuario3")=rs("usuario") %> <% response.end end if rs.movenext loop CONN.CLOSE %>