<% dim cn dim rsOferPro dim rsDemPro dim rsEmpresas dim sSql 'DSN = "Validar" 'DSNPath = "C:\domains\prodex.org\db\Prodex.mdb" Set cn = Server.CreateObject("ADODB.Connection") 'cn.Open "Validar","","" Cn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\Prodex.mdb") Set rsOferPro = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Ofertas IN '" & DSNPath & "' where sector = 'PRODUCTOS'" sSql = "SELECT * FROM Ofertas where sector = 'PRODUCTOS'" rsOferPro.Open sSql,cn,2,3 Set rsEmpresas = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Ofertas IN '" & DSNPath & "' where sector = 'COMPRA-VENTA'" sSql = "SELECT * FROM Ofertas where sector = 'COMPRA-VENTA'" rsEmpresas.Open sSql,cn,2,3 Set rsTrabajo = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Ofertas IN '" & DSNPath & "' where sector = 'TRABAJO'" sSql = "SELECT * FROM Ofertas where sector = 'TRABAJO'" rsTrabajo.Open sSql,cn,2,3 Set rsDemPro = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Demandas IN '" & DSNPath & "' where sector = 'PRODUCTOS'" sSql = "SELECT * FROM Demandas where sector = 'PRODUCTOS'" rsDemPro.Open sSql,cn,2,3 Set rsEmpDE = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Demandas IN '" & DSNPath & "' where sector = 'COMPRA-VENTA'" sSql = "SELECT * FROM Demandas where sector = 'COMPRA-VENTA'" rsEmpDE.Open sSql,cn,2,3 Set rsTraDE = Server.CreateObject("ADODB.Recordset") 'sSql = "SELECT * FROM Demandas IN '" & DSNPath & "' where sector = 'TRABAJO'" sSql = "SELECT * FROM Demandas where sector = 'TRABAJO'" rsTraDE.Open sSql,cn,2,3 %>

PRODEX OFERTAS Y DEMANDAS INTERACTIVAS OFFERTS AND ENQUIRIES INTER-ACTIVES OFFRES ET DEMMANDES INTER-ACTIVES OFERTAS/OFFERTS/OFFRES DEMANDAS/ENQUIRIES/DEMMANDES PRODUCTOS/PRODUCS/PRODUITS PRODUCTOS/PRODUCS/PRODUITS <%if rsOferPro.EOF and rsOferPro.BOF then%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise No existen Ofertas de Productos <%else%> <%do while NOT rsOferPro.EOF%> <%rsOferPro.movenext%> <%loop%> <%rsOferPro.Close%> <%set rsOferPro = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsOferPro("Id"))%> <%=rtrim(rsOferPro("Producto"))%> <%=rtrim(rsOferPro("Pais"))%> Observaciones <%=rtrim(rsOferPro("Observacion"))%> &Pro=<%=rtrim(rsOferPro("Producto"))%>" target="_parent"> <%end if%> <%if rsDemPro.EOF and rsDemPro.BOF then%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise No existen Demandas de Productos <%else%> <%do while NOT rsDemPro.EOF%> <%rsDemPro.movenext%> <%loop%> <%rsDemPro.Close%> <%set rsDemPro = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsDemPro("Id"))%> <%=rtrim(rsDemPro("Producto"))%> <%=rtrim(rsDemPro("Pais"))%> Observaciones <%=rtrim(rsDemPro("Observacion"))%> &Pro=<%=rtrim(rsDemPro("Producto"))%>" target="_parent"> <%end if%> OFERTAS/OFFERTS/OFFRES DEMANDAS/ENQUIRIES/DEMMANDES COMPRA-VENTA DE EMPRESAS - BUY AND SELL OF COMPANIES - ACHAT ET VENTE D'ENTERPRISES COMPRA-VENTA DE EMPRESAS - BUY AND SELL OF COMPANIES - ACHAT ET VENTE D'ENTERPRISES <%if rsEmpresas.EOF and rsEmpresas.BOF then%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise No existen Ofertas de Compra-Venta de Empresas <%else%> <%do while NOT rsEmpresas.EOF%> <%rsEmpresas.movenext%> <%loop%> <%rsEmpresas.Close%> <%set rsEmpresas = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsEmpresas("Id"))%> <%=rtrim(rsEmpresas("Producto"))%> <%=rtrim(rsEmpresas("Pais"))%> Observaciones <%=rtrim(rsEmpresas("Observacion"))%> &Pro=<%=rtrim(rsEmpresas("Producto"))%>" target="_parent"> <%end if%> <%if rsEmpDE.EOF and rsEmpDE.BOF then%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise No existen Demandas de Compra-Venta de Empresas <%else%> <%do while NOT rsEmpDE.EOF%> <%rsEmpDE.movenext%> <%loop%> <%rsEmpDE.Close%> <%set rsEmpDE = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsEmpDE("Id"))%> <%=rtrim(rsEmpDE("Producto"))%> <%=rtrim(rsEmpDE("Pais"))%> Observaciones <%=rtrim(rsEmpDE("Observacion"))%> &Pro=<%=rtrim(rsEmpDE("Producto"))%>" target="_parent"> <%end if%> OFERTAS/OFFERTS/OFFRES DEMANDAS/ENQUIRIES/DEMMANDES TRABAJO INTERNACIONAL - INTERNATIONAL JOB - TRAVAILL INTERNATIONAL TRABAJO INTERNACIONAL - INTERNATIONAL JOB - TRAVAILL INTERNATIONAL <%if rsTrabajo.EOF and rsTrabajo.BOF then%> Ref. Titulación País Empresa/Country Company/Pays Enterprise No existen Ofertas de Trabajo Internacional <%else%> <%do while NOT rsTrabajo.EOF%> <%rsTrabajo.movenext%> <%loop%> <%rsTrabajo.Close%> <%set rsTrabajo = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsTrabajo("Id"))%> <%=rtrim(rsTrabajo("Producto"))%> <%=rtrim(rsTrabajo("Pais"))%> Observaciones <%=rtrim(rsTrabajo("Observacion"))%> &Pro=<%=rtrim(rsTrabajo("Producto"))%>" target="_parent"> <%end if%> <%if rsTraDE.EOF and rsTraDE.BOF then%> Ref. Titulación País Empresa/Country Company/Pays Enterprise No existen Demandas de Trabajo Internacional <%else%> <%do while NOT rsTraDE.EOF%> <%rsTraDE.movenext%> <%loop%> <%rsTraDE.Close%> <%set rsTraDE = Nothing%> Ref. Producto/Product/Produit País Empresa/Country Company/Pays Enterprise <%=rtrim(rsTraDE("Id"))%> <%=rtrim(rsTraDE("Producto"))%> <%=rtrim(rsTraDE("Pais"))%> Observaciones <%=rtrim(rsTraDE("Observacion"))%> &Pro=<%=rtrim(rsTraDE("Producto"))%>" target="_parent"> <%end if%>

<% cn.Close set cn = Nothing %>