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

<%=straddress%>

<%=strtitle%> Stats

Referers 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%> Referer by actual page <% Dim oDict, oKey, nSum nSum = 0 Set oDict = GetRefererCount(Session("statmentor_date1") , Session("statmentor_date2") ) For Each oKey In oDict.Keys %> <%Next%> Page Count <%=oKey%> <% Response.Write oDict.Item(oKey) nSum = nSum + oDict.Item(oKey) %> SUM <%=nSum%> Referer by domain <% nSum = 0 Set oDict = DomainRefFromPageRef(oDict) For Each oKey In oDict.Keys %> <%Next%> Domain Count <%=oKey%> <% Response.Write oDict.Item(oKey) nSum = nSum + oDict.Item(oKey) %> SUM <%=nSum%>