File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/weekstats.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, strSql
Dim timStart, intMS, strTimTotal, intAantUniekePaginaBezoekers, strFontColor, strReferer
timStart = milliDif()
intAantBezoekers = Application("intAantalBezoekers")
Set Rs = GetRs("SELECT COUNT(ip_host) AS aantal FROM dd_statistieken")
intAantUniekeBezoekers = Rs("aantal")
Rs.Close
Set Rs = GetRs("SELECT MAX(datum) AS max_datum FROM dd_statistieken WHERE ind_foto_volgorde_update=1")
datLaatsteFotoVolgordeUpdate = Rs("max_datum")
Rs.Close
'SendInfoMail "Dag statustieken www.duitsedog.tk", getUniekeBezoekers(date-1,date)
%>
<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 per pagina</h1>
<table border="0">
<tr>
<td>
<p>
<table class="clsDefault" cellpadding="2" cellspacing="1">
<tr><th colspan="2">Algemeen</th></tr>
<tr><td>Aantal actuele bezoekers</td><td align="right"><%=IntToHTML(intAantBezoekers)%></td></tr>
<tr><td>Totaal aantal unieke bezoekers sinds juni 2007</td><td align="right"><%=IntToHTML(intAantUniekeBezoekers)%></td></tr>
<tr><td>Laatste foto update</td><td align="left"><%=FormatDateParam(datLaatsteFotoVolgordeUpdate,"dd-mm-yyyy hh:mm")%></td></tr>
</table>
</p>
<p>
<%
Response.Write(getUniekeBezoekers(date,date+1))
%>
<%
Response.Write(getUniekeBezoekers(date-1,date))
%>
</p>
</td>
</tr>
</table>
</div>
</BODY>
</HTML>
<%
Set Rs = Nothing
%>