AdMentor homepage

/asp/freeapps/statmentor/showstats.asp

<!--#include file="incstats.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body>
<b><font size="4">Show statistics</font>&nbsp;</b>
<form method="POST" action="showstats.asp?show=yes">
  <table border="0" width="100%">
    <tr>
      <td width="50%">From:</td>
      <td width="50%"><select size="1" name="FromYear">
<%
    Dim nToYear, nToMonth, nToDay, dDefault

    'Default lets use today - 1 day
    dDefault = DateAdd( "d", -1, Now() )
    Date_FillBoxWithYears 1999, 2003, Date_GetYear( dDefault )
%>
        </select><select size="1" name="FromMonth">
<%        Date_FillBoxWithMonths Date_GetMonthNo( dDefault ), True %>
        </select><select size="1" name="FromDay">
<%        Date_FillBoxWithDays Date_GetDayNo( dDefault )%>
        </select></td>
    </tr>
    <tr>
      <td width="50%">To:</td>
      <td width="50%"><select size="1" name="ToYear">
    <%
    Date_FillBoxWithYears 1999, 2003, ""  
    %>
        </select><select size="1" name="ToMonth">
<%        Date_FillBoxWithMonths "", True %>
        </select><select size="1" name="ToDay">
<%        Date_FillBoxWithDays "" %>
        </select></td>
    </tr>
  </table>
  <p><input type="submit" value="Show" name="B1"></p>
</form>
<%
If Request.QueryString("show") <> "yes" Then
    Response.End    
End If

Dim sDate1, sDate2

sDate1 = DateSerial( Request.Form("FromYear"), Request.Form("FromMonth"), Request.Form("FromDay") )
sDate2 = DateSerial( Request.Form("ToYear"), Request.Form("ToMonth"), Request.Form("ToDay") )
%>
<p><font size="4"><b>Total number of visitors</b>: <%=GetVisitorsCount(sDate1, sDate2)%>
</font>
</p>
<p><font size="4"><b>Pageviews</b>:</font><%
Dim oDict, oKey, nSum
nSum = 0
Set oDict = GetPageViewCount2(sDate1, sDate2)
%>


</p>
<table border="1" width="100%">
  <tr>
    <td width="50%"><b>Pagename</b></td>
    <td width="50%"><b>Views</b></td>
  </tr>
<%For Each oKey In oDict.Keys %>  
  <tr>
    <td width="50%"><%=oKey%></td>
    <td width="50%"><% Response.Write oDict.Item(oKey)
    nSum = nSum + oDict.Item(oKey)
    %></td>
  </tr>
<%Next%>  
  <tr>
    <td width="50%"><b>SUM</b></td>
    <td width="50%"><b><%=nSum%></b></td>
  </tr>
</table>
<p><font size="4"><b>Refererer stat</b>:</font></p>
<%
nSum = 0
Set oDict = GetRefererCount(sDate1, sDate2)
%>

<table border="1" width="100%">
  <tr>
    <td width="50%"><b>Referer:</b></td>
    <td width="50%"><b>Count</b></td>
  </tr>
<%For Each oKey In oDict.Keys %>  
    <td width="50%"><%=oKey%></td>
    <td width="50%"><% Response.Write oDict.Item(oKey)
    nSum = nSum + oDict.Item(oKey)
    %></td>
  </tr>
<%Next%>  
  <tr>
    <td width="50%"><b>SUM</b></td>
    <td width="50%"><b><%=nSum%></b></td>
  </tr>
</table>
<p>&nbsp;</p>

<p><font size="1"><b>This application is developed by Stefan Holmberg ( <a href="http://www.create-a-webshop.com">http://www.create-a-webshop.com</a>
)</b></font></p>

</body>

</html>
Privacy policy