ZONA VERDE La innovación más responsable

Concienciar a la gente en reutilizar un producto que, en principio, parece no tener utilidad ya no es una utopía. Se puede hacer realidad y prueba de ello es el trabajo llevado a cabo por la empresa granadina Zona Verde Consumibles (...)

<% 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 %>