CuerpoZonaA333

José Rubio, propietario de la cadena de tiendas Zuhaus.

Capital 100% español. En tiempos de caída del consumo, se agradece la apuesta de nuevas tiendas, como la recién inaugurada Zuhaus, por no castigar el bolsillo del consumidor. La nueva cadena de textil hogar de la empresa DS4 ofrece calidad a precios muy interesantes, y planea expandirse por España.

El santuario de las alpargatas

Maxi Garbayo, propietario de la alpargatería Antigua Casa Crespo.

Pisadas con historia. Aunque parece increíble, no lo es. Aún existen alpargaterías en Madrid y una de ellas es Antigua Casa Crespo, que con siglo y medio de antigüedad, sigue vendiendo alpargatas artesanas en una tienda que transporta a sus clientes al Madrid del siglo XIX.

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