:: Grupo Internacional Revolución ::

<% Dim tipo_cambio__MMColParam tipo_cambio__MMColParam = "8" If (Request("MM_EmptyValue") <> "") Then tipo_cambio__MMColParam = Request("MM_EmptyValue") End If %> <% Dim tipo_cambio Dim tipo_cambio_numRows Set tipo_cambio = Server.CreateObject("ADODB.Recordset") tipo_cambio.ActiveConnection = MM_BD_D_OTHERS_STRING tipo_cambio.Source = "SELECT * FROM wwwscrl.View_tipocambio Where cve_tipoc = " + Replace(tipo_cambio__MMColParam, "'", "''") + "" tipo_cambio.CursorType = 0 tipo_cambio.CursorLocation = 2 tipo_cambio.LockType = 1 tipo_cambio.Open() fecha_ddmmyyyy = Cstr(Datepart("d", tipo_cambio.Fields.Item("fecha").Value)) + "/" + Cstr(Datepart("m", tipo_cambio.Fields.Item("fecha").Value)) + "/" + Cstr(Datepart("yyyy", tipo_cambio.Fields.Item("fecha").Value)) src_tipo_cambio = tipo_cambio.Fields.Item("descripcion").Value + " - al "+ fecha_ddmmyyyy tipo_cambio_numRows = 0 %> <% Dim CETES_28__MMColParam CETES_28__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then CETES_28__MMColParam = Request("MM_EmptyValue") End If %> <% Dim CETES_28 Dim CETES_28_numRows Set CETES_28 = Server.CreateObject("ADODB.Recordset") CETES_28.ActiveConnection = MM_BD_D_OTHERS_STRING CETES_28.Source = "SELECT año, mes, cve_tipocete,smes, Cetes, Descripcion, dato, periodicidad, cifra, unidad FROM dbo.View_cetes WHERE cve_tipocete = " + Replace(CETES_28__MMColParam, "'", "''") + "" CETES_28.CursorType = 0 CETES_28.CursorLocation = 2 CETES_28.LockType = 1 CETES_28.Open() src_tipo_cete28 = CETES_28.Fields.Item("cetes").Value + " - del mes de " + CETES_28.Fields.Item("smes").Value + " del " + cstr(CETES_28.Fields.Item("año").Value) CETES_28_numRows = 0 %> <% Dim CETES_91__MMColParam CETES_91__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then CETES_91__MMColParam = Request("MM_EmptyValue") End If %> <% Dim CETES_91 Dim CETES_91_numRows Set CETES_91 = Server.CreateObject("ADODB.Recordset") CETES_91.ActiveConnection = MM_BD_D_OTHERS_STRING CETES_91.Source = "SELECT * FROM dbo.View_cetes WHERE cve_tipocete = " + Replace(CETES_91__MMColParam, "'", "''") + "" CETES_91.CursorType = 0 CETES_91.CursorLocation = 2 CETES_91.LockType = 1 CETES_91.Open() src_tipo_cete91 = CETES_91.Fields.Item("cetes").Value + " - del mes de " + CETES_91.Fields.Item("smes").Value + " del " + cstr(CETES_91.Fields.Item("año").Value) CETES_91_numRows = 0 %> <% Dim INPC_Mensual__MMColParam INPC_Mensual__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then INPC_Mensual__MMColParam = Request("MM_EmptyValue") End If %> <% Dim INPC_Mensual Dim INPC_Mensual_numRows Set INPC_Mensual = Server.CreateObject("ADODB.Recordset") INPC_Mensual.ActiveConnection = MM_BD_D_OTHERS_STRING INPC_Mensual.Source = "SELECT * FROM wwwscrl.View_INPC WHERE cve_tipoinpc = " + Replace(INPC_Mensual__MMColParam, "'", "''") + "" INPC_Mensual.CursorType = 0 INPC_Mensual.CursorLocation = 2 INPC_Mensual.LockType = 1 INPC_Mensual.Open() src_tipo_InpcM = INPC_Mensual.Fields.Item("Descripcion").Value + " - del mes de "+ INPC_Mensual.Fields.Item("smes").Value + " del " + cstr(INPC_Mensual.Fields.Item("año").Value) INPC_Mensual_numRows = 0 %> <% Dim INPC_Acumulada__MMColParam INPC_Acumulada__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then INPC_Acumulada__MMColParam = Request("MM_EmptyValue") End If %> <% Dim INPC_Acumulada Dim INPC_Acumulada_numRows Set INPC_Acumulada = Server.CreateObject("ADODB.Recordset") INPC_Acumulada.ActiveConnection = MM_BD_D_OTHERS_STRING INPC_Acumulada.Source = "SELECT * FROM wwwscrl.View_INPC WHERE cve_tipoinpc = " + Replace(INPC_Acumulada__MMColParam, "'", "''") + "" INPC_Acumulada.CursorType = 0 INPC_Acumulada.CursorLocation = 2 INPC_Acumulada.LockType = 1 INPC_Acumulada.Open() src_tipo_InpcC = INPC_Acumulada.Fields.Item("descripcion").Value + " - al mes de " + INPC_Acumulada.Fields.Item("smes").Value + " del " + cstr(INPC_Acumulada.Fields.Item("año").Value) INPC_Acumulada_numRows = 0 %> <% Dim INPC_Anual__MMColParam INPC_Anual__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then INPC_Anual__MMColParam = Request("MM_EmptyValue") End If %> <% Dim INPC_Anual Dim INPC_Anual_numRows Set INPC_Anual = Server.CreateObject("ADODB.Recordset") INPC_Anual.ActiveConnection = MM_BD_D_OTHERS_STRING INPC_Anual.Source = "SELECT * FROM wwwscrl.View_INPC WHERE cve_tipoinpc = " + Replace(INPC_Anual__MMColParam, "'", "''") + "" INPC_Anual.CursorType = 0 INPC_Anual.CursorLocation = 2 INPC_Anual.LockType = 1 INPC_Anual.Open() src_tipo_InpcA = INPC_Anual.Fields.Item("descripcion").Value + " - del "+ Cstr(INPC_Anual.Fields.Item("año").Value) INPC_Anual_numRows = 0 %> <% Dim PIB_Anual__MMColParam PIB_Anual__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then PIB_Anual__MMColParam = Request("MM_EmptyValue") End If %> <% Dim PIB_Anual Dim PIB_Anual_numRows Set PIB_Anual = Server.CreateObject("ADODB.Recordset") PIB_Anual.ActiveConnection = MM_BD_D_OTHERS_STRING PIB_Anual.Source = "SELECT * FROM wwwscrl.ViewPIBAnual WHERE cve_pib_anual = " + Replace(PIB_Anual__MMColParam, "'", "''") + "" PIB_Anual.CursorType = 0 PIB_Anual.CursorLocation = 2 PIB_Anual.LockType = 1 PIB_Anual.Open() src_tipo_PIBA = "PIB Total del " + Cstr(PIB_Anual.Fields.Item("año").Value) + " vs " + Cstr(PIB_Anual.Fields.Item("año_ant").Value) PIB_Anual_numRows = 0 %> <% Dim PIB_Trimestral__MMColParam PIB_Trimestral__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then PIB_Trimestral__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Reserva_Int__MMColParam Reserva_Int__MMColParam = "5" If (Request("MM_EmptyValue") <> "") Then Reserva_Int__MMColParam = Request("MM_EmptyValue") End If %> <% Dim PIB_Trimestral Dim PIB_Trimestral_numRows Set PIB_Trimestral = Server.CreateObject("ADODB.Recordset") PIB_Trimestral.ActiveConnection = MM_BD_D_OTHERS_STRING PIB_Trimestral.Source = "SELECT * FROM wwwscrl.ViewPIBTrimestral Where cve_pib_trimestral = " + Replace(PIB_Trimestral__MMColParam, "'", "''") + "" PIB_Trimestral.CursorType = 0 PIB_Trimestral.CursorLocation = 2 PIB_Trimestral.LockType = 1 PIB_Trimestral.Open() 'src_tipo_PIBT = PIB_Trimestral.Fields.Item("descripcion").Value + " - del " + Cstr(PIB_Trimestral.Fields.Item("trimestre").Value) + " Trimestre" PIB_Trimestral_numRows = 0 %> <% Dim PIB_trimestral_a_anual Dim PIB_trimestral_a_anual_numRows Set PIB_trimestral_a_anual = Server.CreateObject("ADODB.Recordset") PIB_trimestral_a_anual.ActiveConnection = MM_BD_D_OTHERS_STRING PIB_trimestral_a_anual.Source = "SELECT año AS año_pib_trimestral, año_pib_anual, SUM(dato) AS dato_trimestral, trimestre, SUM(dato_ant) AS dato_anual, leyenda FROM wwwscrl.View_PIB_Trim_A_Anual GROUP BY año, trimestre, leyenda, año_pib_anual" PIB_trimestral_a_anual.CursorType = 0 PIB_trimestral_a_anual.CursorLocation = 2 PIB_trimestral_a_anual.LockType = 1 PIB_trimestral_a_anual.Open() src_tipo_PIBT = PIB_trimestral_a_anual.Fields.Item("leyenda").Value PIB_trimestral_a_anual_numRows = 0 %> <% Dim Reserva_Int Dim Reserva_Int_numRows Set Reserva_Int = Server.CreateObject("ADODB.Recordset") Reserva_Int.ActiveConnection = MM_BD_D_OTHERS_STRING Reserva_Int.Source = "SELECT * FROM wwwscrl.ViewReservaInternacional Where cve_reserva_int = " + Replace(Reserva_Int__MMColParam, "'", "''") + "" Reserva_Int.CursorType = 0 Reserva_Int.CursorLocation = 2 Reserva_Int.LockType = 1 Reserva_Int.Open() src_tipo_RI = Reserva_Int.Fields.Item("Leyenda").Value Reserva_Int_numRows = 0 %> :: Grupo Internacional Revolución :: ">

HISTORIA	CAMPEONATOS	PROGRAMAS	ENTREVISTAS

Noticias

International Wrestling Revolution Group

Cuna de los mejores gladiadores y donde cada día nace una estrella.

Todos los resultados de cada función

Manteniendote informado de todos los resultados de nuestra cartelera de jueves y domingos.

Para cualquier duda, comentario o contrataciones ponte en contacto con nosotros, solo tienes que dar un click AQUÍ.

<% Dim rdb3 Dim rdb3_numRows Dim opcion2 Dim opcion_descripcion2_default Dim Titulo_Grafica2 Titulo_Grafica2 = "Total de Trabajadores Activos " opcion_descripcion2_default = "Total PEMEX" opcion2 = request.QueryString("op2") opcion_descripcion2 = request.QueryString("desc2") if opcion2 = "" then opcion2 = opcion_descripcion2_default opcion_descripcion2 = "Total PEMEX" end if Set rdb3 = Server.CreateObject("ADODB.Recordset") rdb3.ActiveConnection = MM_BD_B_MODELS_STRING rdb3.Source = "SELECT Mes as nombre, dato as valor "_ & "FROM dbo.ViewPoblacion_trabajadores_por_organismo "_ & "WHERE (ORGANISMO = '" & opcion2 & "') " rdb3.CursorType = 0 rdb3.CursorLocation = 2 rdb3.LockType = 1 rdb3.Open() rdb3_numRows = 0 %>

Aquí encontraras las noticias del momento

Las principales noticias y eventos del momentos los podras consultar en línea y facilmentes, las noticias actuales día con día.

Un canal dedicado exclusivamente a la transmisión de eventos deportivos, los 365 días del año.

Calle Jardín #19, Col. Centro Naucalpán de Juarez, C.P. 53000, Estado de México.
(+52 55) 53581478

<% tipo_cambio.Close() CETES_28.Close() CETES_91.Close() INPC_Mensual.Close() INPC_Acumulada.Close() INPC_Anual.Close() PIB_Trimestral.Close() PIB_trimestral_a_anual.Close() PIB_Anual.Close() Set PIB_Anual = Nothing Set tipo_cambio = Nothing Set CETES_28 = Nothing Set CETES_91 = Nothing Set INPC_Mensual = Nothing Set INPC_Acumulada = Nothing Set PIB_trimestral_a_anual = Nothing Set PIB_Trimestral = Nothing Set INPC_Anual = Nothing %>