File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/dagstats.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
Response.Buffer = False
Dim Rs, Rs2, i, intAantBezoekers, intAantUniekeBezoekers, intTot, datLaatsteFotoVolgordeUpdate
Dim timStart, intMS, strTimTotal, intAantUniekePaginaBezoekers, strFontColor, strReferer
timStart = milliDif()
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/onderhoud.css">
<META HTTP-EQUIV=Refresh CONTENT="300">
<script language="JavaScript">
function popupHistory(page_id)
{
w = open("./grafiek.asp?page_id="+page_id,"winLov","Scrollbars=1,resizable=1,width=800,height=500");
w.focus();
}
</script>
</HEAD>
<BODY>
<h1>Dag Statistieken Laatste Week</h1>
<table border="0">
<tr>
<td>
<h1>Unieke bezoekers laatste 7 dagen</h1>
<table class="clsDefault" cellpadding="2" cellspacing="1">
<tr>
<th>Datum</th>
<th>Desktop</th>
<th>Mobiel</th>
</tr>
<%
For i = 0 to 7
dim sSql, intAantDesktop, intAantMobiel
sSql = "SELECT COUNT(*) AS aantal FROM (SELECT DISTINCT (ip_host) FROM dd_statistieken WHERE pagn_id<>9 AND datum >= " & DateToSql(date-i) & " AND datum <" & DateToSql(date-(i-1)) &")"
Set Rs = GetRs(sSql)
intAantDesktop = Rs("aantal")
Rs.Close
sSql = "SELECT COUNT(*) AS aantal FROM (SELECT DISTINCT (ip_host) FROM dd_statistieken WHERE pagn_id=9 AND datum >= " & DateToSql(date-i) & " AND datum <" & DateToSql(date-(i-1)) &")"
Response.Write(sSql)
Set Rs = GetRs(sSql)
intAantMobiel = Rs("aantal")
Rs.Close
%>
<tr>
<td><%=Day_long(date-i)%> <%=FormatDateParam(date-i,"dd-mm-yyyy")%></td>
<td align="right"><%=IntToHTML(intAantDesktop)%></td>
<td align="right"><%=IntToHTML(intAantMobiel)%></td>
</tr>
<%
Next
%>
</table>
</p>
</td>
</tr>
</table>
<!--
<p>
Ip-address: <%= Request.ServerVariables("REMOTE_HOST")%><br>
Query time: <%= elapsedshort(milliDif() - timStart)%><br>
Random int: <%=GenerateRandomInteger(100)%><br>
</p>
-->
</div>
</BODY>
</HTML>
<%
Set Rs = Nothing
%>