File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/laatstebezoekers.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
%>
<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>Laatste 100 bezoekers</h1>
<table class="clsDefault" cellpadding="2" cellspacing="1">
<tr>
<th>Datum</th>
<th>Screenwidth</th>
<th>IP-adres</th>
<th>Pagina</th>
</tr>
<%
Set Rs = GetRs("SELECT TOP 100 DD_STATISTIEKEN.datum, DD_STATISTIEKEN.screenwidth, DD_STATISTIEKEN.ip_host, DD_PAGINAS.naam as pagn_naam FROM DD_STATISTIEKEN, DD_PAGINAS WHERE DD_STATISTIEKEN.pagn_id=DD_PAGINAS.id ORDER BY DD_STATISTIEKEN.datum desc")
While Not Rs.EOF
%>
<tr>
<td><%=FormatDateParam(Rs("datum"),"dd-mm-yyyy hh:mm")%></td>
<td><%=Rs("screenwidth")%></td>
<td><%=Rs("ip_host")%></td>
<td><%=Rs("pagn_naam")%></td>
</tr>
<%
Rs.MoveNext
Wend
Rs.Close
%>
</table>
</div>
</BODY>
</HTML>
<%
Set Rs = Nothing
%>