<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<%
On Error Resume Next
Dim DataConn
Dim cmdTemp
Dim rsConsulta
'Conexión a B.D.
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
DataConn.CommandTimeout=Session("DataConn_CommandTimeout")
DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rsConsulta = Server.CreateObject("ADODB.Recordset")
'LO NUEVO
'SOLO NECESARIO POR DEBAJO DEL RESTO
Dim sId_Pagina
sId_Pagina = ""
Dim existePagina
existePagina = False
Dim sId_ProdVisitado
sId_ProdVisitado = ""
sId_ProdVisitado = Trim(Request.QueryString("ID_PRODUCTO"))
If (Not IsNull(sId_ProdVisitado)) And (Not IsEmpty(sId_ProdVisitado)) And (Len(sId_ProdVisitado) > 0) And (IsNumeric(sId_ProdVisitado)) Then
'Consulta de 1 producto
cmdTemp.CommandText = "SELECT * FROM PAGINAS WHERE ((Nombre LIKE 'Compre_Gener.asp') AND (Id_Producto = " & sId_ProdVisitado & ")) ;"
Else
'Página del site
cmdTemp.CommandText = "SELECT * FROM PAGINAS WHERE ((Nombre LIKE 'Compre_Gener.asp') AND (Id_Producto = -1)) ;"
End If
cmdTemp.CommandType=1
Set cmdTemp.ActiveConnection = DataConn
rsConsulta.Open cmdTemp, , 1, 3
'Miramos si tenemos registro o no
If Not (rsConsulta.BOF And rsConsulta.EOF) Then
rsConsulta.MoveFirst
sId_Pagina = rsConsulta.Fields("Id_Pagina")
'Aumentamos los clicks
rsConsulta.Fields("Clicks") = rsConsulta.Fields("Clicks") + 1
rsConsulta.Update
existePagina = True
End If
rsConsulta.close
'Si no existía, crear
If (existePagina = False) Then
cmdTemp.CommandText = "SELECT * FROM PAGINAS WHERE (Nombre = 'PaginaABuscar.asp') ;"
cmdTemp.CommandType=1
Set cmdTemp.ActiveConnection = DataConn
rsConsulta.Open cmdTemp, , 1, 3
'Añadimos uno
rsConsulta.AddNew
rsConsulta.Fields("Nombre") = "Compre_Gener.asp"
rsConsulta.Fields("Clicks") = 1
If (Not IsNull(sId_ProdVisitado)) And (Not IsEmpty(sId_ProdVisitado)) And (Len(sId_ProdVisitado) > 0) And (IsNumeric(sId_ProdVisitado)) Then
rsConsulta.Fields("Id_Producto") = sId_ProdVisitado
Else
rsConsulta.Fields("Id_Producto") = -1
End If
rsConsulta.Update
'Guardamos el id.
sId_Pagina = rsConsulta.Fields("Id_Pagina")
rsConsulta.close
End If
'Ahora la estadística del día/hora de la visita
'Procesar fecha/hora para obtener el dia/hora al que asociar el dato
Dim Fecha
Fecha = Date()
Dim Hora
Hora = Time()
Dim Orden_Dia
Orden_Dia = 0
Select Case Weekday(Fecha, vbSunday)
Case vbMonday 'Lunes
Fecha = "LUNES"
Orden_Dia = 0
Case vbTuesday
Fecha = "MARTES"
Orden_Dia = 1
Case vbWednesday
Fecha = "MIÉRCOLES"
Orden_Dia = 2
Case vbThursday
Fecha = "JUEVES"
Orden_Dia = 3
Case vbFriday
Fecha = "VIERNES"
Orden_Dia = 4
Case vbSaturday
Fecha = "SÁBADO"
Orden_Dia = 5
Case vbSunday
Fecha = "DOMINGO"
Orden_Dia = 6
End Select
Dim Orden_Hora
Orden_Hora = 0
'Agrupar por bloques de 4 horas
Select Case Hour(Hora)
Case 0
Hora = "0h. a 4h."
Orden_Hora = 0
Case 1
Hora = "0h. a 4h."
Orden_Hora = 0
Case 2
Hora = "0h. a 4h."
Orden_Hora = 0
Case 3
Hora = "0h. a 4h."
Orden_Hora = 0
Case 4
Hora = "4h. a 8h."
Orden_Hora = 1
Case 5
Hora = "4h. a 8h."
Orden_Hora = 1
Case 6
Hora = "4h. a 8h."
Orden_Hora = 1
Case 7
Hora = "4h. a 8h."
Orden_Hora = 1
Case 8
Hora = "8h. a 12h."
Orden_Hora = 2
Case 9
Hora = "8h. a 12h."
Orden_Hora = 2
Case 10
Hora = "8h. a 12h."
Orden_Hora = 2
Case 11
Hora = "8h. a 12h."
Orden_Hora = 2
Case 12
Hora = "12h. a 16h."
Orden_Hora = 3
Case 13
Hora = "12h. a 16h."
Orden_Hora = 3
Case 14
Hora = "12h. a 16h."
Orden_Hora = 3
Case 15
Hora = "12h. a 16h."
Orden_Hora = 3
Case 16
Hora = "16h. a 20h."
Orden_Hora = 4
Case 17
Hora = "16h. a 20h."
Orden_Hora = 4
Case 18
Hora = "16h. a 20h."
Orden_Hora = 4
Case 19
Hora = "16h. a 20h."
Orden_Hora = 4
Case 20
Hora = "20h. a 24h."
Orden_Hora = 5
Case 21
Hora = "20h. a 24h."
Orden_Hora = 5
Case 22
Hora = "20h. a 24h."
Orden_Hora = 5
Case 23
Hora = "20h. a 24h."
Orden_Hora = 5
End Select
Dim existeVisita
existeVisita = False
cmdTemp.CommandText = "SELECT * FROM VISITAS WHERE ((Id_Pagina = " & sId_Pagina & ") AND (Fecha LIKE '" & Fecha & "') AND (Hora LIKE '" & Hora & "') );"
cmdTemp.CommandType=1
Set cmdTemp.ActiveConnection = DataConn
rsConsulta.Open cmdTemp, , 1, 3
'Miramos si tenemos registro o no
existeVisita = False
If Not(rsConsulta.BOF And rsConsulta.EOF) Then
rsConsulta.MoveFirst
If Not(rsConsulta.EOF) Then
'Aumentamos los clicks
rsConsulta.Fields("Clicks") = rsConsulta.Fields("Clicks") + 1
rsConsulta.Update
existeVisita = True
End If
End If
rsConsulta.close
If Not(existeVisita) Then
'Añadir a la B.D.
cmdTemp.CommandText = "SELECT * FROM VISITAS ;"
cmdTemp.CommandType=1
Set cmdTemp.ActiveConnection = DataConn
rsConsulta.Open cmdTemp, , 1, 3
'Añadimos uno
rsConsulta.AddNew
rsConsulta.Fields("Id_Pagina") = sId_Pagina
rsConsulta.Fields("Fecha") = Fecha 'Lunes, martes, etc
rsConsulta.Fields("Orden_Dia") = Orden_Dia 'Para ordenar por fechas
rsConsulta.Fields("Hora") = Hora '0-4, 4-8, etc
rsConsulta.Fields("Orden_Hora") = Orden_Hora
rsConsulta.Fields("Clicks") = 1
rsConsulta.Update
rsConsulta.close
End If
DataConn.close
%>
Compresores industriales estáticos
La carcasa, completamente recubierta con materiales aislantes del ruido, reduce eficazmente el nivel sonoro. La amortiguación de la vibración múltiple elimina toda vibración. Esto produce un agradable ambiente de trabajo en las cercanías del compresor.
Todos los componentes y puntos de mantenimiento son fácilmente accesibles por medio de paneles y tapas que se desmontan fácilmente.
