<%@ Register TagPrefix="uc1" TagName="Counter" Src="Counter.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="HitCounter.aspx.vb" Inherits="AllSaints.HitCounter1" %>
<%@ Register TagPrefix="uc1" TagName="TopPage" Src="TopPage.ascx" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>Page Hit Counter</title>
		<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
		<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
		<meta content="JavaScript" name="vs_defaultClientScript">
		<LINK href="css/default.css" type="text/css" rel="STYLESHEET">
		<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
	</HEAD>
	<body>
		<form id="Form1" method="post" runat="server">
			<table id="Table1" cellSpacing="0" cellPadding="0" width="100%" border="0">
				<TR>
					<TD bgColor="white"><uc1:toppage id="TopPage1" runat="server"></uc1:toppage></TD>
				</TR>
				<TR>
					<TD bgColor="#ffffff">&nbsp;</TD>
				</TR>
				<TR>
					<TD bgColor="#ffffff" style="HEIGHT: 18px">
						<table cellspacing="0" cellpadding="0" align="Center" rules="rows" bordercolor="#DEDFDE" border="1" style="color:Black;background-color:White;border-color:#DEDFDE;border-width:1px;border-style:None;font-family:Verdana;font-size:10px;width:98%;border-collapse:collapse;">
							<tr class="menustrip"  style="color:White;font-weight:bold;">
								<td style="padding-left:4px;">Page Name</td>
								<td style="padding-left:4px;">Hit Count</td>
							</tr>
							<%
							'if found any then loop through each and display in table rows
							Dim rdr = CreateHitCounterDS()
							Dim cnt=0
							If Not rdr Is Nothing Then
								While rdr.Read
						%>
							<tr class="incell" <% if cnt MOD 2=0 then
											   %>
												 style="background-color:White;"
											   <%
												  END IF
											   %>>
								<td style="padding:4px"><% response.write(CType(rdr.Item("name"), String)) %></td>
								<td style="padding:4px"><% response.write(CType(rdr.Item("cnt"), Integer)) %></td>
							</tr>
							<%
									cnt = cnt+1
								End While
								rdr.Close()
							End If
						%>
						</table>
					</TD>
				</TR>
				<tr>
					<td bgColor="white" colSpan="2">&nbsp;</td>
				</tr>
			</table>
			<uc1:counter id="Counter1" runat="server"></uc1:counter></form>
	</body>
</HTML>
