| 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%> |
All <%=Session("houseviewAgency")%>'s PageViews from: <%=Session("statmentor_date1")%> To: <%=Session("statmentor_date2")%>
Click the Agent's Abreviated name
to View Thier Statistical Data for the Selected Period |
| Page |
Cnt/Graph |
Price |
Location |
Agent |
<%
Dim strfrom, strto,strLine,strmls,strprice,stragent,strLocation,strpricecat,strbedroom
Dim strbathroom,strpano,strpending,strstart,strcatgrpg,strgrouping,strdesc,strfilter
'--------------------------------------
strcatgrpg = Session("houseviewgroup")
'--------------------------------------
Dim bgcolor,strtype
Dim oDict, oKey, nSum
nSum = 0
Set oDict = GetPageViewCount2(Session("statmentor_date1") , Session("statmentor_date2") )
Do While objFileTextStream.AtEndOfStream <> TRUE
strstart = Trim(Server.HTMLEncode(objFileTextStream.ReadLine))
if strstart = "TRUE" then
strLine = Trim(Server.HTMLEncode(objFileTextStream.ReadLine))
strLine = Split(strLine, "^")
if strLine(9) <> "" then
If trim(strLine(9)) = trim(strcatgrpg) then
strmls = strLine(0)
strprice = strLine(1)
stragent = strLine(2)
strLocation = strLine(3)
strpricecat =strLine(4)
strbedroom = strLine(5)
strbathroom = strLine(6)
strpano = strLine(7)
strpending = strLine(8)
strgrouping = strLine(9)
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)
If strfilter = strmls Then
%>
| MLS# <%=strfilter%> |
<% Response.Write(oDict.Item(oKey))
nSum = nSum + oDict.Item(oKey)
%> |
<%=FormatCurrency(strprice,0,0)%> |
<%=strlocation%> |
<%=stragent%> |
<%
end if
Next
End if
End if
End If
Loop
%>
| SUM |
<%=nSum%> |
|
|
|