File: D:/HostingSpaces/TWijnstra/wijnstra.com/tjerk.com/stats.asp
<%@ Language=VBScript %>
<% Option Explicit
Dim strSQL, strSQL2, rsCheckall, rsComp, conCheck, i, Bedrijfsnaam
Init
rsCheckall.MoveFirst %>
<html>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="css/tjerk.css">
</head>
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="3" cellspacing="1"><tr><td valign=top>
<table border="0" cellpadding="3" cellspacing="1" ID="Table1">
<tr>
<th></th>
<th>Bedrijf</th>
<th>Datum</th>
</tr>
<% Bedrijfsnaam = ""
While not rsCheckall.eof %>
<tr>
<% If rsCheckall("CompName") <> Bedrijfsnaam Then
i = "1" %>
<td><%= i %><% i = i + 1 %></td>
<td><% Response.write(rsCheckall("CompName"))
Bedrijfsnaam = rsCheckall("CompName") %></td>
<% Else %>
<td><%= i %><% i = i + 1 %></td>
<td></td>
<% End If %>
<td><%= rsCheckall("Date") %></td>
</tr>
<% rsCheckall.MoveNext
Wend %>
</table>
</td>
<td> </td>
<td valign=top>
<% If Request("what") = "daargaanwe" Then %>
<table border="0" cellpadding="3" cellspacing="1" ID="Table2">
<tr>
<th>Bedrijf</th>
<th>Login</th>
<th>Password</th>
</tr>
<% While not rsComp.eof %>
<tr>
<td><%= rsComp("CompName") %></td>
<td><%= rsComp("LoginName") %></td>
<td><%= rsComp("Password") %></td>
</tr>
<% rsComp.MoveNext
Wend %>
</table>
<% End If %>
</td></tr></table>
</body>
</html>
<% Close
Sub Init() %>
<!-- #include file="includeCon.asp" -->
<% strSQL = "SELECT * FROM tblCVchecks ORDER BY CompName ASC, Date DESC"
Set rsCheckall = conCheck.Execute(strSQL)
strSQL = ""
strSQL2 = "SELECT * FROM tblCompany ORDER BY CompName ASC"
Set rsComp = conCheck.Execute(strSQL2)
strSQL2 = ""
End Sub
Sub Close
rsCheckall.Close
Set rsCheckall = Nothing
rsComp.Close
Set rsComp = Nothing
conCheck.Close
Set conCheck = Nothing
End Sub %>