Ausbanc Internacional


Caixa Galicia, con la cooperación al desarrollo

Solidaridad

Un compromiso para la conquista de un mundo en el que paz, justicia y solidaridad sean las bases del progreso colectivo.

Ausbanc Internacional


Cómo crecer sirviendo a las mayorías (III)

Para multiplicar sus ganancias, la primera estrategia que una empresa debe considerar es elevar la penetración de su oferta en el mercado, invirtiendo en el desarrollo de productos a la medida de los consumidores, así como en la confianza de los mismos y su comunidad

Ausbanc Internacional


El Santander compra el banco británico Alliance & Leicester

POR 1.575 MILLONES

En momento que le estatizan un banco en Venezuela, Emilio Botín ha vuelto a ´pescar´ en el Reino Unido, y con una excelente captura: el banco hipotecario Alliance & Leicester, adquirido por ´sólo´ 1.575 millones.
<% 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 %>