Compromiso Empresarial convocó a un grupo de personas para analizar críticamente las certifi caciones, índices y premios ligados a la valoración de la RSC.
<%
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=COMPROMISO_EMPRESARIAL;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=COMPROMISO_EMPRESARIAL;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
%>
