<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("..\data\direexportadores.mdb")) set rs = Server.CreateObject("ADODB.recordset") pepe=request.querystring("Id") rs.Open "SELECT * FROM Empresas where codempresa='"&pepe&"'", conn do while not rs.eof txt1=rs("nombre") txt2=rs("contacto") txt3=rs("dirección") txt4=rs("teléfono") txt5=rs("fax") txt6=rs("e-mail") rs.MoveNext Loop rs.close %> ::: Bienvenidos a Nuestro Web Site ::: <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("..\data\direexportadores.mdb")) dim boto boto="Es" '/*************************************** codigo Estudios realizados********************** set rs = Server.CreateObject("ADODB.recordset") 'rs.Open "Select tipo as Nivel,nomins as Instituto, rangoins as Grados,rangofec as fecha from Estudios where id=3 ", conn 'rs.Open "Select Cedula as Cedulas,Nombre as Nombres from Asignaturapuente WHERE (NombreProfesor='"+de+"') ", conn 'rs.Open "Select nombre as Nombre,codempresa as Código from Empresas order by nombre", conn pepe=request.querystring("Id") rs.Open "SELECT Productos.nombreprod FROM Empresas INNER JOIN (Productos INNER JOIN Empresasproduc ON Productos.codprod=Empresasproduc.codprodu) ON Empresas.codempresa=Empresasproduc.codempresa WHERE (((Empresas.codempresa)='"&pepe&"') AND ((Productos.idioma)='"&boto&"')) and ((Empresasproduc.idioma)='"&boto&"')", conn %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("..\data\direexportadores.mdb")) '/*************************************** codigo Estudios realizados********************** set rs = Server.CreateObject("ADODB.recordset") 'rs.Open "Select tipo as Nivel,nomins as Instituto, rangoins as Grados,rangofec as fecha from Estudios where id=3 ", conn 'rs.Open "Select Cedula as Cedulas,Nombre as Nombres from Asignaturapuente WHERE (NombreProfesor='"+de+"') ", conn 'rs.Open "Select nombre as Nombre,codempresa as Código from Empresas order by nombre", conn pepe=request.querystring("Id") rs.Open "SELECT Productos.nombreprod FROM Empresas INNER JOIN (Productos INNER JOIN Empresasproduc ON Productos.codprod=Empresasproduc.codprodu) ON Empresas.codempresa=Empresasproduc.codempresa WHERE (((Empresas.codempresa)='"&pepe&"') AND ((Productos.idioma)='"&boto&"')) and ((Empresasproduc.idioma)='"&boto&"')", conn %>
Datos del aliado

 Nombre: <%=txt1%> Fondo de Desarrollo Agrícola del Estado Lara (FONDAEL)

 Teléfono: <%=txt3%> + 58-0251-4469661 / 8057

 Fax: No registrado

 Correo: fonadel01-@hotmail.com

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("..\data\direexportadores.mdb")) '/*************************************** codigo Estudios realizados********************** set rs = Server.CreateObject("ADODB.recordset") 'rs.Open "Select tipo as Nivel,nomins as Instituto, rangoins as Grados,rangofec as fecha from Estudios where id=3 ", conn 'rs.Open "Select Cedula as Cedulas,Nombre as Nombres from Asignaturapuente WHERE (NombreProfesor='"+de+"') ", conn 'rs.Open "Select nombre as Nombre,codempresa as Código from Empresas order by nombre", conn pepe=request.querystring("Id") rs.Open "SELECT Sectores.nombresector FROM Empresas INNER JOIN (Sectores INNER JOIN Sectorempresa ON Sectores.codsector=Sectorempresa.sect) ON Empresas.codempresa=Sectorempresa.codempresa WHERE (((Sectorempresa.idoma)='"&boto&"') AND ((Sectores.idoma)='"&boto&"') AND ((Empresas.codempresa)='"&pepe&"'))", conn %>

Ir a aliados regionales