<%@LANGUAGE=VBSCRIPT%> <% '-- 'Name: default.asp 'Modified: 30/11/04 Response.expires = -1 Response.buffer = true '-- If Request.Querystring("month") <> "" Then filterMonth=Request.Querystring("month") ElseIf Request.form("month") <> "" Then filterMonth=Request.form("month") Else filterMonth=Month(Now) End If if filterMonth = 1 then selectedMonth = "January" elseif filterMonth = 2 then selectedMonth = "February" elseif filterMonth = 3 then selectedMonth = "March" elseif filterMonth = 4 then selectedMonth = "April" elseif filterMonth = 5 then selectedMonth = "May" elseif filterMonth = 6 then selectedMonth = "June" elseif filterMonth = 7 then selectedMonth = "July" elseif filterMonth = 8 then selectedMonth = "August" elseif filterMonth = 9 then selectedMonth = "September" elseif filterMonth = 10 then selectedMonth = "October" elseif filterMonth = 11 then selectedMonth = "November" elseif filterMonth = 12 then selectedMonth = "December" end if If Request.Querystring("year") <> "" Then filterYear=Request.Querystring("year") ElseIf Request.Form("year") <> "" Then filterYear=Request.Form("year") Else filterYear=Year(Now) End If If Request.Querystring("visit_zone") <> "" Then visit_zone=Request.Querystring("visit_zone") ElseIf Request.Form("visit_zone") <> "" Then visit_zone=Request.Form("visit_zone") Else visit_zone="" End If If Request.Querystring("customers") <> "" Then customers=Request.Querystring("customers") ElseIf Request.Form("customers") <> "" Then customers=Request.Form("customers") Else customers="" End If Call getExtranetGraphReports() %>

"> Graph      "> Table

"> <% ' in /includes/customerRequests_object.asp. Usage :PulldownDB(funcName, InputName, Size, IsDisabled?, FirstValue, FirstLabel, SelectedValue(request.value), Javascript, value(db field), Label(db field) ) strOutputSelect = PulldownDB("getCustomers()", "customers", 1, "", 0, "Company", customers, "onchange=""this.form.submit();""", "dir", "dir" ) Response.Write(strOutputSelect) %>     Year <%for i = Year(Now)-7 to Year(Now)%> "" then if cint(filterYear)=cint(i) then%>selected<%end if else if cint(i) = cint(Year(Now)) then%> selected <%end if end if%>><%=i%> <%next%> Month >January >February >March >April >May >June >July >August >September >October >November >December

<%If allowHomeOfficeAccessOnly = false Or isNull(allowHomeOfficeAccessOnly) Then%> <%End If%> <% If not oRs.EOF Then dim str, strTemp,strNew%> <%While not oRs.EOF 'AND rowcount < oRs.pagesize %> <% If allowHomeOfficeAccessOnly = false Or isNull(allowHomeOfficeAccessOnly) Then visit_zone = oRs.Fields("visit_zone") If visit_zone <> "Home page" Then' Don't output home page - we have already done it above! rowCount = rowCount + 1 %> /> <% ' start to build up the string that will be used to find the highest value in the RS strTemp = getExtranetHitsByZone(visit_zone) & "," strNew = strNew & strTemp %> <% End If End If %> <% 'oRsC.Close 'Set oRsC = Nothing oRs.MoveNext Wend %> <%If allowHomeOfficeAccessOnly = False Or isNull(allowHomeOfficeAccessOnly) Then%> <%End If%> <% oRs.Close Set oRs = Nothing Else %> <% End If %> Zone Number of page impressions Total <%=TRIM(getExtranetHitsByZone("ALL_ZONES"))%> Home Page <%=TRIM(getExtranetHitsByZone("Home Page"))%> <%=visit_zone%> " height="7" border="0" /> (<%=getExtranetHitsByZone(visit_zone)%>) There is no data to report.

<% 'this is the built up string that can be used in a Math.max calc strNew = Left(strNew, Len(strNew)-1 ) 'response.write(strNew) %>