<% Response.Buffer = True Dim Recordset1__MMColParam Recordset1__MMColParam = "1" 'Recibe el parametro Fra = Trim(Request("que")) 'Cuenta los caracteres recibidos numCarac=len(trim(request.querystring("que"))) set dbDir = Server.Createobject("adodb.connection") dbDir.open "seproveedor" '--------------------------------- '--- cuenta los registro encontrados "contador" de exportaciones If numCarac = 2 Then dSQL = "SELECT count(Exp_2) AS Conta " & _ "FROM exp2 " & _ "WHERE left(Fraccion,2) Like '%" & fra & "%'" ElseIf numCarac = 4 Then dSQL = "SELECT count(Exp_2) AS Conta " & _ "FROM exp2 " & _ "WHERE left(Fraccion,4) Like '%" & fra & "%'" ElseIf numCarac = 6 Then dSQL = "SELECT count(Exp_2) AS Conta " & _ "FROM exp2 " & _ "WHERE left(Fraccion,6) Like '%" & fra & "%'" ElseIf numCarac = 8 Then dSQL = "SELECT count(Exp_2) AS Conta " & _ "FROM exp2 " & _ "WHERE left(Fraccion,8) Like '%" & fra & "%'" End If Set ddDir = Server.CreateObject("ADODB.Recordset") ddDir.Open dSQL, dbDir,3,1 '-------fin del contador --------------------- '--- cuenta los registro encontrados "contador" de importaciones If numCarac = 2 Then dSQL1 = "SELECT count(Exp_2) AS Contador " & _ "FROM imp2 " & _ "WHERE left(Fraccion,2) Like '%" & fra & "%'" ElseIf numCarac = 4 Then dSQL1 = "SELECT count(Exp_2) AS Contador " & _ "FROM imp2 " & _ "WHERE left(Fraccion,4) Like '%" & fra & "%'" ElseIf numCarac = 6 Then dSQL1 = "SELECT count(Exp_2) AS Contador " & _ "FROM imp2 " & _ "WHERE left(Fraccion,6) Like '%" & fra & "%'" ElseIf numCarac = 8 Then dSQL1 = "SELECT count(Exp_2) AS Contador " & _ "FROM imp2 " & _ "WHERE left(Fraccion,8) Like '%" & fra & "%'" End If Set ddDir1 = Server.CreateObject("ADODB.Recordset") ddDir1.Open dSQL1, dbDir,3,1 '-------fin del contador --------------------- %> SEPROVEEDOR
Secretaría de Economía  
Subsecretaría de Negociaciones Comerciales Internacionales
Relación de Empresas que Exportan o Importan a través de la fracción: <%=fra%>
<% '--------- muestra el numero de registros encontrados de exportaciones Do while Not ddDir.EOF Response.write("Empresas exportadoras " & ddDir("Conta") & ",") ddDir.MoveNext Loop ddDir.Close Set ddDir = Nothing '------- termina los registros encontrados de exportaciones '--------- muestra el numero de registros encontrados de importaciones Do while Not ddDir1.EOF Response.write("  importadoras " & ddDir1("Contador") & "   ") ddDir1.MoveNext Loop ddDir1.Close Set ddDir1 = Nothing '------- termina los registros encontrados de importaciones %>
<% '------- Busca empresas para exportaciones If numCarac = 2 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM exp2 " & _ "WHERE left(Fraccion,2) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ElseIf numCarac = 4 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM exp2 " & _ "WHERE left(Fraccion,4) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ElseIf numCarac = 6 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM exp2 " & _ "WHERE left(Fraccion,6) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ' "WHERE Fraccion ='" + left(Replace(Recordset1__MMColParam, "'", "''"),6) + "'" & _ ElseIf numCarac = 8 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM exp2 " & _ "WHERE left(Fraccion,8) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " End If Set tbDir = dbDir.Execute(vSQL) '------- Termina Busqueda de empresas para exportaciones %>
<% If tbDir.BOF AND tbDir.EOF Then vSinDir = "No existen registros" response.write("") End If ' === Arma cada uno de los renglones de la Tabla s = Chr(10) dim miContador miContador=0 ' Procesa cada uno de los renglones obtenidos Do While Not tbDir.EOF If Not tbDir.EOF Then vFraccion = tbDir("Fraccion") Else vFraccion = "" End If If Not tbDir.EOF Then vExpor = tbDir("Exp_2") Else vExpor = "" End If ' Termina la columna y el renglón anterior Response.Write("" & s & "" & s) ' === Crea el Renglón %> > <% ' === Crea columna Response.Write(" " & s) ' Nos movemos al próximo registro... tbDir.MoveNext Loop ' Cierra el cursor tbDir.Close Set tbDir = Nothing ' dbDi.r.Close ' Set dbDir = Nothing '------------ termina tabla de exportaciones %>
Exportaciones
" & vSinDir & "
" & s) ' Imprime la empresa Response.Write("

" & _ vExpor & "

<% '-------------- consulta de importaciones ------------------ If numCarac = 2 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM imp2 " & _ "WHERE left(Fraccion,2) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ElseIf numCarac = 4 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM imp2 " & _ "WHERE left(Fraccion,4) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ElseIf numCarac = 6 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM imp2 " & _ "WHERE left(Fraccion,6) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " ElseIf numCarac = 8 Then vSQL = "SELECT Fraccion, Exp_2 " & _ "FROM imp2 " & _ "WHERE left(Fraccion,8) Like '%" & fra & "%'" & _ "GROUP BY Exp_2 " & _ "ORDER BY Exp_2 " End If Set tbDirImp = dbDir.Execute(vSQL) '---------------comienza tabla de importaciones %> <% If tbDirImp.BOF AND tbDirImp.EOF Then vSin = "No existen registros" response.write("") End If ' === Arma cada uno de los renglones de la Tabla s = Chr(10) ' dim miContador miContador=0 ' Procesa cada uno de los renglones obtenidos Do While Not tbDirImp.EOF If Not tbDirImp.EOF Then vFraccionImp = tbDirImp("Fraccion") Else vFraccionImp = "" End If If Not tbDirImp.EOF Then vImpor = tbDirImp("Exp_2") Else vImpor = "" End If ' Termina la columna y el renglón anterior Response.Write("" & s & "" & s) ' === Crea el Renglón %> > <% ' === Crea columna Response.Write(" " & s) ' Nos movemos al próximo registro... tbDirImp.MoveNext Loop ' Cierra el cursor tbDirImp.Close Set tbDirImp = Nothing dbDir.Close Set dbDir = Nothing '-------- termina importaciones ---------------- %>
Importaciones
" & vSin & "
" & s) ' Imprime la empresa Response.Write("

" & _ vImpor & "


 

Las empresas que aparecen en esta lista, son aquéllas que representan 80% del comercio.
Los nombres de las empresas aparecen ordenados alfabéticamente.
La información no será proporcionada en los siguientes casos:

 
  1. Si el número de empresas que exportan o importan el producto es menor a 3.
  2. Si una sola empresa participa con más del 80% de las exportaciones o importaciones.

 Fuente: Secretaría de Economía