| 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%> |
<%=sortdata%> of <%=Session("houseviewAgency")%> PageViews from: <%=Session("statmentor_date1")%> To: <%=Session("statmentor_date2")%> |
| Page |
Cnt/Graph |
Price |
Location |
Agent |
<%Dim bgcolor,strtype,strfilter
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 trim(strLine(2)) = sortdata 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
Loop
%>
| SUM |
<%=nSum%> |
Go Back |
|
|
|