<%@ Language=VBScript %>
<%
'ultima actualizacion en la carpeta 4
'25 feb 2:22 pm
option explicit
dim cnBd,rsEmpresa,rsRubro
dim strEmpresa,strRubro
dim EmpCodigo, EmpNombre
dim RubCodigo, RubDescripcion
Set cnBd=server.CreateObject("ADODB.connection")
set rsEmpresa= server.createobject ("adodb.recordset")
set rsRubro= server.createobject ("adodb.recordset")
cnBd.open Application("Expo_ConnectionString")
server.ScriptTimeout=9000
strEmpresa= "select rtrim(CODIGO) as codigo, rtrim(NOMBRE) as nombre from EMPRESA order by NOMBRE"
strRubro= "select rtrim(CODIGO) as codigo, rtrim(DESCRIPCION) as descripcion from RUBRO where rubro.codigo<>67 order by DESCRIPCION"
set rsEmpresa = cnBd.execute (strEmpresa)
set rsRubro = cnBd.execute (strRubro)
%>
EXPOVIVIENDA INTERNACIONAL 2002 / Organiza CAPECO
<%
rsEmpresa.close
rsRubro.close
cnBd.close
set rsEmpresa= nothing
set rsRubro= nothing
Set cnBd= nothing
%>
