<%End If%> <%If Request.QueryString("var") = "ayer" Then%> <% Dia = Day(Date) - 1 Mes = Month(Date) sqlVisitasAyer = " SELECT COUNT(*) AS Visitas FROM EstadVisitas WHERE day(fecha) = '" & Dia & "' AND MONTH(fecha) = '" & Mes & "'" Set rsVisitasAyer = Server.CreateObject("ADODB.Recordset") rsVisitasAyer.Open sqlVisitasAyer,conn %> <%End If%> <%If Request.QueryString("var") = "VisitasSemana" Then%> <% DiaSemana = Weekday(Date) If DiaSemana = 1 Then Dia1 = dateAdd("d",-7,Date()) Dia2 = dateAdd("d",-6,Date()) Dia3 = dateAdd("d",-5,Date()) Dia4 = dateAdd("d",-4,Date()) Dia5 = dateAdd("d",-3,Date()) Dia6 = dateAdd("d",-2,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 2 Then Dia1 = dateAdd("d",-8,Date()) Dia2 = dateAdd("d",-7,Date()) Dia3 = dateAdd("d",-6,Date()) Dia4 = dateAdd("d",-5,Date()) Dia5 = dateAdd("d",-4,Date()) Dia6 = dateAdd("d",-3,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 3 Then Dia1 = dateAdd("d",-9,Date()) Dia2 = dateAdd("d",-8,Date()) Dia3 = dateAdd("d",-7,Date()) Dia4 = dateAdd("d",-6,Date()) Dia5 = dateAdd("d",-5,Date()) Dia6 = dateAdd("d",-4,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 4 Then Dia1 = dateAdd("d",-10,Date()) Dia2 = dateAdd("d",-9,Date()) Dia3 = dateAdd("d",-8,Date()) Dia4 = dateAdd("d",-7,Date()) Dia5 = dateAdd("d",-6,Date()) Dia6 = dateAdd("d",-5,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 5 Then Dia1 = dateAdd("d",-11,Date()) Dia2 = dateAdd("d",-10,Date()) Dia3 = dateAdd("d",-9,Date()) Dia4 = dateAdd("d",-8,Date()) Dia5 = dateAdd("d",-7,Date()) Dia6 = dateAdd("d",-6,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 6 Then Dia1 = dateAdd("d",-12,Date()) Dia2 = dateAdd("d",-11,Date()) Dia3 = dateAdd("d",-10,Date()) Dia4 = dateAdd("d",-9,Date()) Dia5 = dateAdd("d",-8,Date()) Dia6 = dateAdd("d",-7,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If If DiaSemana = 7 Then Dia1 = dateAdd("d",-13,Date()) Dia2 = dateAdd("d",-12,Date()) Dia3 = dateAdd("d",-11,Date()) Dia4 = dateAdd("d",-10,Date()) Dia5 = dateAdd("d",-9,Date()) Dia6 = dateAdd("d",-8,Date()) Dia7 = dateAdd("d",-DiaSemana,Date()) End If sqlSemana = " SELECT COUNT(*) Cantidad ,Convert(varchar(10),fecha,1) AS fecha FROM EstadVisitas WHERE fecha >= '" & Dia1 & "' AND fecha <= '" & Dia7 + 1 & "' GROUP BY Convert(varchar(10),fecha,1)" Set rsSemana = Server.CreateObject("ADODB.Recordset") rsSemana.Open sqlSemana,conn,3 Domingo = 0 Lunes = 0 Martes = 0 Miercoles = 0 Jueves = 0 Viernes = 0 Sabado = 0 While Not rsSemana.EOF If Dia1 = CDate(rsSemana("fecha")) Then Domingo = rsSemana("Cantidad") ElseIf Dia2 = CDate(rsSemana("fecha")) Then Lunes = rsSemana("Cantidad") ElseIf Dia3 = CDate(rsSemana("fecha")) Then Martes = rsSemana("Cantidad") ElseIf Dia4 = CDate(rsSemana("fecha")) Then Miercoles = rsSemana("Cantidad") ElseIf Dia5 = CDate(rsSemana("fecha")) Then Jueves = rsSemana("Cantidad") ElseIf Dia6 = CDate(rsSemana("fecha")) Then Viernes = rsSemana("Cantidad") ElseIf Dia7 = CDate(rsSemana("fecha")) Then Sabado = rsSemana("Cantidad") End If rsSemana.MoveNext Wend rsSemana.MoveFirst While Not rsSemana.EOF TotalSemana = TotalSemana + rsSemana("Cantidad") rsSemana.MoveNext Wend FechaIni = Split(dia1,"/") FechaFin = Split(dia7,"/") %> <%End If%> <%If Request.QueryString("var") = "VisitasDesdeHasta" Then%> <% If Request.Form("btnVisualizar") = "Visualizar" Then FechaDesde = Request.Form("slcDesdeMes") & "/" & Request.Form("slcDesdeDia") & "/" & Request.Form("slcDesdeAno") FechaHasta = Request.Form("slcHastaMes") & "/" & Request.Form("slcHastaDia") & "/" & Request.Form("slcHastaAno") sqlVisitasDesHas = " SELECT COUNT(*) AS Visitas FROM EstadVisitas WHERE fecha >= '" & FechaDesde & "' AND fecha <= '" & FechaHasta & "'" Set rsVisitasDesHas = Server.CreateObject("ADODB.Recordset") rsVisitasDesHas.Open sqlVisitasDesHas,conn %> <%If Not rsVisitasDesHas.EOF Then%> <%End If%> <% End If %> <%End If%> <%If Request.QueryString("var") = "visitasano" Then%> <% If Request.Form("btnVer") = "Ver" Then sqlVisitasAno = " SELECT COUNT(*) AS Visitas FROM EstadVisitas WHERE fecha LIKE '%" & Request.Form("slcAno") & "%'" Set rsVisitasAno = Server.CreateObject("ADODB.Recordset") rsVisitasAno.Open sqlVisitasAno,conn %> <%If Not rsVisitasAno.EOF Then%> <%End If%> <% End If %> <%End If%> <%If Request.QueryString("var") = "DetalleMes" Then%> <%End If%>

<%If Request.QueryString("var") = "hoy" Then%> <% Dia = Day(Date) Mes = Month(Date) sqlVisitasHoy = " SELECT COUNT(*) AS Visitas FROM EstadVisitas WHERE day(fecha) = '" & Dia & "' AND MONTH(fecha) = '" & Mes & "'" Set rsVisitasHoy = Server.CreateObject("ADODB.Recordset") rsVisitasHoy.Open sqlVisitasHoy,conn %>
Visitas de Hoy hasta el momento
<%=rsVisitasHoy("Visitas")%>
Visitas de Ayer
<%=rsVisitasAyer("Visitas")%>
Visitas de la Semana Anterior
<%=TotalSemana%>
<%=FechaIni(1) & " / " & FechaIni(0) & " / " & FechaIni(2)%> - <%=FechaFin(1) & " / " & FechaFin(0) & " / " & FechaFin(2)%>
Domingo : <%=Domingo%>     Lunes : <%=Lunes%>     Martes : <%=Martes%>     Miercoles : <%=Miercoles%>     Jueves : <%=Jueves%>     Viernes : <%=Viernes%>     Sabado : <%=Sabado%>
Visitas de Desde / Hasta
Desde : <%For i = 1 To 31%> <%=i%> <%Next%> / <%For i = 1 To 12%> <%=i%> <%Next%> / <%For i = 2001 To 2010%> <%=i%> <%Next%>
Hasta  : <%For i = 1 To 31%> <%=i%> <%Next%> / <%For i = 1 To 12%> <%=i%> <%Next%> / <%For i = 2001 To 2010%> <%=i%> <%Next%>
Cantidad de Visitas entre las fechas seleccionas
<%=rsVisitasDesHas("Visitas")%>
Visitas del Aņo
Aņo : <%For i = 2002 To 2010%> <%=i%> <%Next%>
Cantidad de Visitas del Aņo <%=Request.Form("slcAno")%>
<%=rsVisitasAno("Visitas")%>
<%For i = 1 to 12%> <% sqlXMes = " SELECT COUNT (*) AS Cantidad FROM EstadVisitas WHERE MONTH(fecha) = " & i & " AND YEAR(fecha) = " & Request.Form("slcAno") & "" Set rsXMes = Server.CreateObject("ADODB.Recordset") rsXMes.Open sqlXMes,conn sqlUserDif = " SELECT COUNT (DISTINCT (Remote_IP)) AS Cantidad FROM EstadVisitas WHERE MONTH(fecha) = " & i & " AND YEAR(fecha) = " & Request.Form("slcAno") & "" Set rsUserDif = Server.CreateObject("ADODB.Recordset") rsUserDif.Open sqlUserDif,conn If i = 1 Then Mes = "Enero" ElseIf i = 2 Then Mes = "Febrero" ElseIf i = 3 Then Mes = "Marzo" ElseIf i = 4 Then Mes = "Abril" ElseIf i = 5 Then Mes = "Mayo" ElseIf i = 6 Then Mes = "Junio" ElseIf i = 7 Then Mes = "Julio" ElseIf i = 8 Then Mes = "Agosto" ElseIf i = 9 Then Mes = "Septiembre" ElseIf i = 10 Then Mes = "Octubre" ElseIf i = 11 Then Mes = "Noviembre" ElseIf i = 12 Then Mes = "Diciembre" End If %> "> <%Next%> Mes Cantidad Usuarios Diferentes Detalle <%=Mes%> <%=rsXMes("Cantidad")%> <%=rsUserDif("Cantidad")%> Detalle
<% If Request.QueryString("Mes") = 1 Then Mes = "Enero" ElseIf Request.QueryString("Mes") = 2 Then Mes = "Febrero" ElseIf Request.QueryString("Mes") = 3 Then Mes = "Marzo" ElseIf Request.QueryString("Mes") = 4 Then Mes = "Abril" ElseIf Request.QueryString("Mes") = 5 Then Mes = "Mayo" ElseIf Request.QueryString("Mes") = 6 Then Mes = "Junio" ElseIf Request.QueryString("Mes") = 7 Then Mes = "Julio" ElseIf Request.QueryString("Mes") = 8 Then Mes = "Agosto" ElseIf Request.QueryString("Mes") = 9 Then Mes = "Septiembre" ElseIf Request.QueryString("Mes") = 10 Then Mes = "Octubre" ElseIf Request.QueryString("Mes") = 11 Then Mes = "Noviembre" ElseIf Request.QueryString("Mes") = 12 Then Mes = "Diciembre" End If %> <%For i = 1 to 31%> <% Fecha = Request.QueryString("mes") & "/" & i & "/" & Request.QueryString("Ano") If IsDate(Fecha) Then DiaSemana = WeekDay(Fecha,1) If DiaSemana = 1 Then DiaSemana = "Domingo" ElseIf DiaSemana = 2 Then DiaSemana = "Lunes" ElseIf DiaSemana = 3 Then DiaSemana = "Martes" ElseIf DiaSemana = 4 Then DiaSemana = "Miercoles" ElseIf DiaSemana = 5 Then DiaSemana = "Jueves" ElseIf DiaSemana = 6 Then DiaSemana = "Viernes" ElseIf DiaSemana = 7 Then DiaSemana = "Sabado" End If Else DiaSemana = -1 End If %> <%If Not DiaSemana = -1 Then%> <% sqlXDia = " SELECT COUNT (*) AS Cantidad FROM EstadVisitas WHERE DAY(fecha) = " & i & " AND MONTH(fecha) = " & Request.QueryString("Mes") & " AND YEAR(fecha) = " & Request.QueryString("Ano") & "" Set rsXDia = Server.CreateObject("ADODB.Recordset") rsXDia.Open sqlXDia,conn sqlUserDif = " SELECT COUNT (DISTINCT (Remote_IP)) AS Cantidad FROM EstadVisitas WHERE DAY(fecha) = " & i & " AND MONTH(fecha) = " & Request.QueryString("Mes") & " AND YEAR(fecha) = " & Request.QueryString("Ano") & "" Set rsUserDif = Server.CreateObject("ADODB.Recordset") rsUserDif.Open sqlUserDif,conn %> <%End If%> <%Next%> <%=Mes%> Dia Cantidad Usuarios Diferentes <%'=DiaSemana & " " & i%><%=i%>  <%=rsXDia("Cantidad")%>  <%=rsUserDif("Cantidad")%>

<%'end if%>