Estamos viendo cómo día tras día, los Gobiernos anuncian planes multimillonarios de apoyo al sistema bancario.
<%
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
%>
