File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/dbtest.asp
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<html>
<head>
<link href="/menu_assets/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="css/background.css">
</head>
<body>
<div class="content">
<h1>DB</h1>
<%
Response.Write(CheckDB)
If false Then
%>
<table class="clsDefault" cellpadding="2" cellspacing="1" ID="Table1">
<tr>
<th align="left">Pagina</th>
<th align="right">Aantal unieke bezoekers vandaag</th>
</tr>
<%
dim strSql, Rs, strFontColor
strSql = "SELECT dd_paginas.naam as naam,COUNT(ip_host) AS hits FROM dd_statistieken, dd_paginas WHERE dd_statistieken.pagn_id=dd_paginas.id AND dd_statistieken.datum > " & DateToSql(date-1) & " GROUP BY naam ORDER BY COUNT(ip_host) DESC"
Response.Write(strSql)
Set Rs = GetRs(strSql)
While Not Rs.EOF
If Rs("naam") = "Mobile" or Rs("naam") = "Algemeen" Then
strFontColor = "blue"
Else
strFontColor = "black"
End If
%>
<tr>
<td><font color="<%=strFontColor%>"><%=StrToHTML(Rs("naam"))%></font></td>
<td align="right"><font color="<%=strFontColor%>"><%=IntToHTML(Rs("hits"))%></font></td>
</tr>
<%
Rs.MoveNext
Wend
Rs.Close
%>
</table>
<%
End If
%>f
</div>
</body>
</html>