Guerra a las malas prácticas bancarias en El Salvador

Tarjetas de crédito y préstamos personales, los mas denunciados

La presidenta de la Defensoría del Consumidor, Jacir de Lovo, inaugura oficinas especializadas para la atención de las reclamaciones de los consumidores sobre el sector bancario y financiero

La quiebra de Lehman Brothers afecta gravemente a Venezuela

En un artículo publicado por la edición venezolana de Mercado de Dinero se afirma que a pesar de la insistencia del gobierno de que Venezuela está a salvo de la grave crisis financiera que sacude a los EE UU, las decisiones de Sudeban (Superintendencia de Bancos) revelan que puede haber hasta 2.000 millones de dólares de la banca privada y del propio Estado venezolano a punto de perderse.
<% Dim nombreNoticia, longitudCadena nombreNoticia = Request.ServerVariables("PATH_INFO") longitudCadena = len(nombreNoticia) nombreNoticia = mid(nombreNoticia, 11, (longitudCadena - 10) ) %> <% 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;DATA SOURCE= 217.116.2.104;UID=sa;PWD=ego02;DATABASE=AUSBANCd_Maker" 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;DATA SOURCE= 217.116.2.104;UID=sa;PWD=ego02;DATABASE=AUSBANCd_Maker" ' # 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 %>