Edición Especial 3er Aniversario


Tercer Aniversario de Mercado de Dinero

Mercado de Dinero cumple tres años. Han sido 36 meses continuos de llegar a los lectores a través de una red de kioscos a lo largo y ancho del país.

Edición Especial 3er Aniversario


Beneficios de la banca crecen por encima de la inflación

Al final del primer semestre del 2008, a la banca, a pesar de desacelerar su actividad crediticia, le crecieron las utilidades en un 52,4%, tres veces la inflación, y con un muy bajo índice de morosidad. El sistema es sólido, pero las medidas gubernamentales pueden afectar esta solidez si no revisa las regulaciones.

Edición Especial 3er Aniversario


Inflación: el impuesto más perverso de la economía

El gobierno ha intentado resistir la economía venezolana con planes y programas económicos nacionales, sin embargo, la inflación no pareciera tener freno, proyectándose para el cierre del 2008 por encima del 30%

Edición Especial 3er Aniversario


Riesgo Macro-Financiero y el impacto en las empresas venezolanas

Pedro Palma en el Foro del IESA

Crisis cambiaria en Venezuela y cómo afecta a las empresas

Edición Especial 3er Aniversario


Un dólar excesivamente barato asfixia la economía

José Guerra:

Edición Especial 3er Aniversario


Banco EXTERIOR consolidado en crédito automotriz

Banco EXTERIOR dio a conocer las cifras que respaldan a su producto EXTERIOR crédito automotriz, el cual en los últimos 6 meses ha experimentado un sólido crecimiento de 50.12% respecto al segundo semestre de 2007.

<% Dim nombreNoticia, longitudCadena nombreNoticia = mid(Request.ServerVariables("PATH_INFO"),2,len(Request.ServerVariables("PATH_INFO"))-1) nombreNoticia=mid(nombreNoticia,instr(nombreNoticia,"/")+1,len(nombreNoticia)-instr(nombreNoticia,"/")) nombreNoticia=mid(nombreNoticia,instr(nombreNoticia,"/")+1,len(nombreNoticia)-instr(nombreNoticia,"/")) longitudCadena = len(nombreNoticia) nombreNoticia = replace(nombreNoticia,"GestionNoticias_","") nombreNoticia = replace(nombreNoticia,"_ESP.asp","") %> <% Sub Visita_Num_visitas 'Aniade una visita ' Dim oConn, rs, SQL Dim visitas Set oConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' Nos conectamos por OLEDB' oConn.Open "PROVIDER=SQLOLEDB;Persist Security Info=False;User ID=sa;password=ego02;Initial Catalog=MERCADO_DINEROve_Maker;Data Source=217.116.2.104" SQL = "SELECT * FROM tblVisitas WHERE ID_Noticia =" & nombreNoticia & "" rs.Open SQL, oConn, 1, 2 If rs.EOF Then ' Es la primera visita hoy, por eso no hay ningun registro con la fecha actual' rs.AddNew() rs.Fields("ID_Noticia") = nombreNoticia rs.Fields("Fecha")=Date() rs.Fields("Num_visitas") = 1 rs.Update() Else ' Tengo que sumar 1 a los Hits de hoy' visitas = rs.Fields("Num_visitas") If isNull(visitas) Then visitas = 0 End If rs.Fields("Num_visitas") = visitas + 1 rs.Update() End If 'Cierro el Recordset y limpio la basura' rs.Close() oConn.Close() Set rs = Nothing Set oConn = Nothing End Sub %> <% ' Si es una nueva visita, nuestra variable estara vacia.' if Session("Visitado")="" then Session("Visitado")="False" end if 'Y ahora, miramos siempre esta variable antes de insertar' if Session("Visitado")="False" then ' Ponemos a verdadero' Session("Visitado")="True" ' Llamamos a nuestro Sub para aniadir la visita' Visita_Num_visitas end if %> <% Visita_Hits %> <% Sub Visita_Hits 'Aniade una visita ' Dim oConn, rs, SQL Dim hits Set oConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' Nos conectamos por OLEDB' oConn.Open "PROVIDER=SQLOLEDB;Persist Security Info=False;User ID=sa;password=ego02;Initial Catalog=MERCADO_DINEROve_Maker;Data Source=217.116.2.104" ' # es el delimitador para las Fechas en Access.' ' Si vas a utilizar SQL Server, sustituyelo por comilla simple ' SQL = "SELECT * FROM tblVisitas WHERE ID_Noticia =" & nombreNoticia & "" rs.Open SQL, oConn, 1, 2 If rs.EOF Then ' Es la primera visita hoy, por eso no hay ningun registro con la fecha actual' rs.AddNew() rs.Fields("ID_Noticia") = nombreNoticia rs.Fields("Fecha")=Date() rs.Fields("Hits") = 1 rs.Fields("Num_visitas") = 1 rs.Update() Else ' Tengo que sumar 1 a los Hits de hoy' hits = rs.Fields("Hits") If isNull(rs.Fields("Hits")) Then hits = 0 End If rs.Fields("Hits") = hits + 1 rs.Update() End If 'Cierro el Recordset y limpio la basura' rs.Close() oConn.Close() Set rs = Nothing Set oConn = Nothing End Sub %>