Robo de identidad


Cerca de 10 millones de casos de robo de identidad

UN ENEMIGO AL ASECHO

El fraude de identidad le cuesta 50 mil millones de dólares a los negocios y 5 mil millones a los afectados. Usted puede ayudar a reducir estos números.

Robo de identidad


De Venezuela a USA, víctimas del robo de identidad

Miami, ¿capital del fraude?

"Fue horrible", dice un residente venezolano, cuando recuerda cómo le despojaron casi 300.000 mil dólares de su cuenta en Miami. Mientras locales como Miguel Ríos, son robados, varias veces.

Robo de identidad


Hay que monitorear las cuentas constantemente

Habla el sector financiero

El nivel de este tipo de crimen ha aumentado ligeramente. La industria dedica miles de millones de dólares para combatirlo.

Robo de identidad


El crimen cibernético es un problema global

SHERIFF AL LAMBERTI

En el condado de Broward ocurren 3.000 casos de robo de identidad al año. La autoridad policial máxima del condado explica cómo combaten este flagelo del siglo XXI, donde nadie está exento de ser víctima.
<% 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 %>