<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=resoluciones;PASSWORD=resoluciones; Data Source=ORACLE;" set rs=Server.CreateObject("ADODB.recordset") sql="SELECT D.DOC_DESCRIP,D.DOC_CODIGO,D.DOC_ABREV,D.DOC_DESCRIP_ORD " & _ "FROM RES_TIPODOC TD,RES_TIPODOC_DOCU TDD,RES_DOCU D " & _ "WHERE TD.TDOC_CODIGO=TDD.TDD_CODTIPDOC AND TDD_CODDOC=D.DOC_CODIGO AND " & _ "TD.TDOC_CODIGO=4 ORDER BY DOC_DESCRIP_ORD " Response.write(sql) rs.Open sql, conn %> Untitled Document



Para realizar búsquedas en cada listado de resoluciones presionar las teclas Ctrl + F