<%If Instr(Sort,"/") > 0 Then%> <%ElseIf TotalCountOfVisitors <> CountOfVisitors Then%> <%Else%> <%End If%> <% If Instr(Sort,"/") > 0 Then bxValue = 1 Else bxValue = Session("LimitNumber") End If %>

Visitor Information - <%=FormatNumber(TotalCountOfVisitors,0)%> Visitors In <%=TotalDays%> Days  - (<%=FormatNumber(TotalCountOfVisitors/TotalDays,1)%> per Day Average) <% 'intHour = Hour(Now()) 'response.write "Hour = " & Hour 'response.end %>

Visitor Information For <%=Sort%> - <%=CountOfVisitors%> Visitors

Visitor Information For the Past <%=LimitNumber%> <%=txtDay%>  - <%=CountOfVisitors%> Visitors

Visitor Information For the Past <%=TotalDays%> <%=txtDay%>  - <%=CountOfVisitors%> Visitors

View day(s)   >Show Crawlers     [ <%=TotalCountOfDownloads%> Downloads ] <%=SortBanner%>

Web Page	IP Address	Crawler? <%If Session("ckCrawler") = "ON" Then%> <%=CountOfCrawlerYes%> Y's <%End If%> <%=CountOfCrawlerNo%> N's	Who?	Go To "Who?" Page	Browser	Visitor   ID #	Date / Time     <%If Sort = "dtascending" Then%> <%Else%> <%End If%>    <%If Sort = "dtdescending" OR Len(Sort) = 0 Then%> <%Else%> <%ENd If%>
<%=NoRecordBanner%>
<%=rs("URL")%>	<%=IPAddress%><%=Match%>	<%=rs("IsCrawler")%><%=Match%>	<%If Crawler = " " Then%>    <%Else%> <% Do While NOT rsCntOfWho.eof If rsCntOfWho("Crawler") = Crawler Then CountOfWho = rsCntOfWho("CountOfHits") End If rsCntOfWho.movenext loop If CountOfWho > 1 Then CountOfWhoBanner = FormatNumber(CountOfWho,0) & " Pages" Else CountOfWhoBanner = CountOfWho & " Page" End If 'CountOfWhoBanner = "Pages" %>    <%End If%> <%=CrawlerBanner%>		<%=Browser%>	<%=FormatNumber(rs("VisitorID"),0)%>	"><%=rs("VisitDateTime")%>
" & DaySum & "

Hits per Page (<%=TotalPages%> Pages) <% If LimitNumber = 1 then %> <%Else%> <%End If%> <% If Instr(Sort,"/") > 0 Then strDate = Sort Else strDate = Date() End If SQLStr = "spHitsPerPage '" & strDate & "'" 'response.write SQLStr 'response.end Set rsLoop = Conn.Execute(SQLStr) 'SQLStr = "SELECT Page, HitsNC FROM qryHitsByPageNC ORDER BY Page" 'response.write SQLStr 'response.end 'Set rsHitsNC = Conn.Execute(SQLStr) Do While NOT rsLoop.eof %> <% rsLoop.movenext loop %>

WEB Page	<%=CountOfVisitors%> Hits <%If Instr(Sort,"/") > 0 Then%> For <%=Sort%> <%Else%> Today <%End If%> <%If Sort = "hitsPageAsc" Then%> <%Else%> <%End If%> <%If Sort = "hitsWDDesc" Then%> <%Else%> <%End If%>	<%=CountOfVisitors%> Hits for the Past <%=LimitNumber%> <%=txtDay%> <%If Sort = "hitsPageAsc" Then%> <%Else%> <%End If%> <%If Sort = "hitsWDDesc" Then%> <%Else%> <%End If%>	<%=TotalCountOfVisitors%> Hits for the Past <%=TotalDays%> Days
<%=rsLoop("URL")%>	-Filter"><%=rsLoop("SmallHits")%>	-All"><%=rsLoop("Hits")%>

Hits per Date for <%=intDays%> Days - from <%=prevDate%> to <%=Date()%>
      All Time High: ><%=ATH%> hits on ><%=ATHDateFull%>
         ¹ Top Maximum Hit    ² Second Maximum Hit     ³ Third Maximum Hit    ⁴ Fourth Maximum Hit     ^# Minimum Hit

<% Do While NOT rs.eof 'Do While NOT rs.eof OR rsNC.eof If isNull(rs("VisitDate")) OR Len(rs("VisitDate")) = 0 Then WD = Null Else WD = Weekday(rs("VisitDate")) End If 'response.write WD Select Case WD Case 1 D = "Sun" Case 2 D = "Mon" Case 3 D = "Tue" Case 4 D = "Wed" Case 5 D = "Thu" Case 6 D = "Fri" Case 7 D = "Sat" End Select If rs("Hits") = One Then MaxHitsBanner = " 1 " Else MaxHitsBanner = "" End If If rs("Hits") = Two Then TwoHitsBanner = " 2 " Else TwoHitsBanner = "" End If If rs("Hits") = Three Then ThreeHitsBanner = " 3 " Else ThreeHitsBanner = "" End If If rs("Hits") = Four Then FourHitsBanner = " 4 " Else FourHitsBanner = "" End If If rs("Hits") = MinHits Then MinHitsBanner = " # " Else MinHitsBanner = "" End If If rs("Hits") <= 9 Then HitNum = "  " & rs("Hits") ElseIf rs("Hits") >=10 AND rs("Hits") <= 99 Then HitNum = "  " & rs("Hits") Else HitNum = rs("Hits") End If '----- If rsNC("Hits") = OneNC Then MaxHitsBannerNC = " 1 " Else MaxHitsBannerNC = "" End If If rsNC("Hits") = TwoNC Then TwoHitsBannerNC = " 2 " Else TwoHitsBannerNC = "" End If If rsNC("Hits") = ThreeNC Then ThreeHitsBannerNC = " 3 " Else ThreeHitsBannerNC = "" End If If rsNC("Hits") = FourNC Then FourHitsBannerNC = " 4 " Else FourHitsBannerNC = "" End If If rsNC("Hits") = MinHitsNC Then MinHitsBannerNC = " # " Else MinHitsBannerNC = "" End If If rsNC("Hits") <= 9 Then HitNumNC = "  " & rsNC("Hits") Else HitNumNC = rsNC("Hits") End If %> <% rsNC.movenext rs.movenext loop %>

Date  <%If Sort = "DtAsc" Then%> <%Else%> <%End If%>   <%If Sort = "DtDesc" Then%> <%Else%> <%End If%>	Day	Hits  <%If Sort = "hitsAsc" Then%> <%Else%> <%End If%>   <%If Sort = "hitsDesc" Then%> <%Else%> <%End If%>	Hits No Crawlers
"><%=rs("VisitDate")%>	<%=D%>	<%=HitNum%><%=MinHitsBanner%><%=MaxHitsBanner%><%=TwoHitsBanner%><%=ThreeHitsBanner%><%=FourHitsBanner%>	<%=HitNumNC%><%=MinHitsBannerNC%><%=MaxHitsBannerNC%><%=TwoHitsBannerNC%><%=ThreeHitsBannerNC%><%=FourHitsBannerNC%>

Hits per Weekday (<%=TotalCountOfVisitors%> Total Hits) <% If Sort = "hitsWDAsc" Then Order = "ORDER BY Hits" ElseIf Sort = "hitsWDDesc" Then Order = "ORDER BY Hits DESC" Else Order = Null End If SQLStr = "SELECT * FROM qryHitsByWeekDay " & Order 'response.write SQLStr 'response.end Set rsHitsWD = Conn.Execute(SQLStr) Do While NOT rsHitsWD.eof %> <% rsHitsWD.movenext loop %>

Weekday	Total Hits <%If Sort = "hitsWDAsc" Then%> <%Else%> <%End If%> <%If Sort = "hitsWDDesc" Then%> <%Else%> <%End If%>	Average Hits For <%=TotalWeeks%> Weeks (<%=AverageVisitorCountPerWeek%> Total)
<%=rsHitsWD("WkDay")%>	<%=rsHitsWD("Hits")%>	<%=Round(rsHitsWD("Hits")/TotalWeeks,1)%>