Banca


Caixa Galicia, pisando firme en Latinoamérica

CON AGUSTÍN GARCÍA Y EFRAÍN LÓPEZ

La Caja de Ahorros de Galicia en Miami ha reportado resultados positivos fortaleciendo su negocio en países como Panamá y México.

Banca


Sistema financiero saldrá fortalecido de la crisis

Entrevista a Alex sanchez

El presidente de la Asociación de banqueros de la Florida, en entrevista con este medio, aseveró que una vez depurado el sistema financiero, saldrá fortalecido y que la crisis terminará en el 2009.

Banca


Investigación se expande en el colapso del mercado de tasas de subastas

Bancos acuerdan recomprar miles de millones de dólares en bonos

Los reguladores han investigado este riesgoso mercado para determinar quién fue responsable de su deterioro y si los bancos falsificaron intencionalmente la seguridad de los títulos al momento de vendérselos a los inversionistas.
<% 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_DINEROusa_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_DINEROusa_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 %>