<% If Session("statmentor_date1") = "" Then Response.Redirect "selectperiod.asp" End If %> <% %>

<%=straddress%>

<%=strtitle%> Stats

Pageviews Selected period From: <% If Session("statmentor_date1")<> "" Then Response.Write Session("statmentor_date1") End If%> To: <% If Session("statmentor_date2")<> "" Then Response.Write Session("statmentor_date2") End If%> <%StatWriteMenu%>   <% Dim oDict, oKey, nSum, strfilter nSum = 0 Set oDict = GetPageViewCount2(Session("statmentor_date1") , Session("statmentor_date2") ) For Each oKey In oDict.Keys strfilter = StrReverse(oKey) strfilter = Mid(strfilter,5,Len(strfilter)) strfilter = Left(strfilter,Instr(1,strfilter, "/",1) - 1) strfilter = StrReverse(strfilter) %> <%Next%> Page Nr of pageviews <%=oKey%> <% Response.Write oDict.Item(oKey) nSum = nSum + oDict.Item(oKey) %> SUM <%=nSum%>