%
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
 |
|
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
%>
Exportaciones |
<%
If tbDir.BOF AND tbDir.EOF Then
vSinDir = "No existen registros"
response.write(" " & vSinDir & " | ")
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)
' Imprime la empresa
Response.Write(" " & _
vExpor & " | " & 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
%>
|
<% '-------------- 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
%>
Importaciones |
<%
If tbDirImp.BOF AND tbDirImp.EOF Then
vSin = "No existen registros"
response.write(" " & vSin & " | ")
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)
' Imprime la empresa
Response.Write(" " & _
vImpor & " | " & 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 ----------------
%>
|
|
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:
|
|
- Si
el número de empresas que exportan o importan el producto es
menor a 3.
- Si
una sola empresa participa con más del 80% de las exportaciones
o importaciones.
|
Fuente: Secretaría
de Economía