:: Portaleconomico

<% Dim dia_Fecha1 Dim mes_Fecha1 Dim ano_Fecha1 Dim dia_Fecha2 Dim mes_Fecha2 Dim ano_Fecha2 Dim ini_dia Dim fin_dia Dim auxfecha Dim auxdia Dim FechaInicio Dim FechaFinal Dim Mes1 Dim Mes2 Dim dia Dim Meses(12) Meses(1) = "Enero" Meses(2) = "Febrero" Meses(3) = "Marzo" Meses(4) = "Abril" Meses(5) = "Mayo" Meses(6) = "Junio" Meses(7) = "Julio" Meses(8) = "Agosto" Meses(9) = "Septiembre" Meses(10) = "Octubre" Meses(11) = "Noviembre" Meses(12) = "Diciembre" FechaInicio = Date() FechaFinal = DateAdd("d",30, FechaInicio) Mes1 = Month(Fecha1nicio) Mes2 = Month(FechaFinal) ano_fecha1 = Year(Fecha1nicio) ano_fecha2 = Year(FechaFinal) dia_fecha1 = "" For dia=1 to 31 if(dia= Day(Date())) then dia_fecha1 = dia_fecha1 & "" dia_fecha2 = dia_fecha2 & "" Else dia_fecha1 = dia_fecha1 & "" dia_fecha2 = dia_fecha2 & "" End If Next dia_fecha1 = dia_fecha1 & "" dia_fecha2 = dia_fecha2 & "" mes_fecha1 = "" For Mes=1 to 12 if(Mes=Month( Date() ) ) then mes_fecha1 = mes_fecha1 & "" mes_fecha2 = mes_fecha2 & "" Else mes_fecha1 = mes_fecha1 & "" mes_fecha2 = mes_fecha2 & "" End If Next mes_fecha1 = mes_fecha1 & "" mes_fecha2 = mes_fecha2 & "" ano_fecha1 = "" for dia=2000 to Year(Now) if( dia = Year(Date()) ) then ano_fecha1 = ano_fecha1 & "" ano_fecha2 = ano_fecha2 & "" else ano_fecha1 = ano_fecha1 & "" ano_fecha2 = ano_fecha2 & "" End IF Next ano_fecha1 = ano_fecha1 & "" ano_fecha2 = ano_fecha2 & "" %> <% Dim StrConexion Dim rs Dim Conexion Dim i Dim Consulta StrConexion ="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.Mappath("database/noticias.mdb") Set Conexion = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") Conexion.Open StrConexion Consulta = "SELECT DISTINCT Sector FROM SECTORES" rs.open Consulta, Conexion,3,3 i=0 Sectores = "" rs.close Conexion.close Set rs = nothing Set Conexion = nothing %> :: Portaleconomico

Busqueda por palabra
Busqueda por Estado

Búsqueda por sector

Indique el estado, el sector y las fechas que comprenden su búsqueda.

<% IF(Session("usuario")="") then response.write("

") response.write("Estimado visitante :
") response.write("La presente opción de búsqueda esta limitada a 30 dias previos al día de hoy.") response.write("
Como usuario registrado usted podrá acceder a nuestra completa base de datos.") response.write("Solicite su suscripción o pida informes poniendose en contacto con nosotros
") response.write("

") End IF %>