<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim DSCapitulos
Dim DSCapitulos_numRows
Set DSCapitulos = Server.CreateObject("ADODB.Recordset")
DSCapitulos.ActiveConnection = MM_conexionandina_STRING
DSCapitulos.Source = "SELECT * FROM dbo.Capitulos"
DSCapitulos.CursorType = 0
DSCapitulos.CursorLocation = 2
DSCapitulos.LockType = 1
DSCapitulos.Open()
DSCapitulos_numRows = 0
%>
<%
Dim DSNandina__MMColParam
Dim DSNandina__MMColParam1
DSNandina__MMColParam = "1"
If (Request.Form("select") <> "") Then
DSNandina__MMColParam = Request.Form("select")
DSNandina__MMColParam1= trim(Request.Form("textfield"))
End If
%>
<%
Dim DSNandina
Dim DSNandina_numRows
Set DSNandina = Server.CreateObject("ADODB.Recordset")
DSNandina.ActiveConnection = MM_conexionandina_STRING
if (DSNandina__MMColParam1="") then
DSNandina.Source = "SELECT * FROM dbo.Nandina WHERE Capitulo = '" + Replace(DSNandina__MMColParam, "'", "''") + "'"
else
DSNandina__MMColParam=DSCapitulos.Fields.Item("CodCapitulo").Value
DSNandina.Source = "SELECT * FROM dbo.Nandina WHERE CODNANDINA LIKE '" + Replace(DSNandina__MMColParam1, "'", "''") + "%'" + "AND capitulo= '" + Replace(DSNandina__MMColParam, "'", "''") + "'"
end if
DSNandina.CursorType = 0
DSNandina.CursorLocation = 2
DSNandina.LockType = 1
DSNandina.Open()
DSNandina_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
DSNandina_numRows = DSNandina_numRows + Repeat1__numRows
%>
Documento sin título
ANEXO 1: ARANCEL ADUANERO 2008 (01/04/2008)
ANEXO 2: CRONOGRAMAS DE DESGRAVACION ARANCELARIA
ANEXO 3: ESTRUCTURA DEL ARANCEL
ANEXO 4:INDICE-CONSIDERACIONES-ABREVIATURAS Y REGLAS GENERALES
ANEXO 5: RESOLUCION MINISTERIAL QUE APRUEBA EL ARANCEL 2008
ANEXO 6: CORRELACIONADOR REFERENCIAL
GUIA DE CRITERIOS DE CLASIFICACION ARANCELARIA
<%
DSCapitulos.Close()
Set DSCapitulos = Nothing
%>
<%
DSNandina.Close()
Set DSNandina = Nothing
%>