<%
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:
Compañía de Desarrollo Industrial de
Barquisimeto (COMBIBAR)
<%
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
%>