<% '------------------------------------------------------------- 'StatCounteX 3.1 'http://www.2enetworx.com/dev/projects/statcountex.asp 'File: reportpath.asp 'Description: Page Views Report 'Initiated by Hakan Eskici on Nov 18, 2000 'See credits.txt for the list of contributors 'You may use the code for any purpose 'But re-publishing is discouraged. 'See License.txt for additional information '------------------------------------------------------------- 'Change Log: '------------------------------------------------------------- '# Feb 5, 2001 by Kevin Yochum 'Added showing url's as active links '------------------------------------------------------------- %> StatCounteX 3.1
Truly Scrumptious Fabrics Stats

Reports Page Views

<% sub SQLTable(sTitle, sSQL) rs.Open sSQL, , , adCmdTable %> <% for each fld in rs.fields iFieldCount = iFieldCount + 1 if iFieldCount = 1 then iWidth = 400 sAlign="left" else iWidth = 50 sAlign="right" end if %> <% next response.write "" response.write "" do while not rs.eof response.write "" response.write "" iFieldCount = 0 for each fld in rs.fields iFieldCount = iFieldCount + 1 if iFieldCount = 1 then iWidth=400 sAlign = "left" else iWidth=50 sAlign="right" end if sFieldName = "" If bShowLinks And InStr( rs(fld.name), "http://" ) > 0 Then sFieldName = "" & rs(fld.name) & "" Else sFieldName = rs(fld.name) end if %> <% next response.write "" response.write "" rs.movenext loop response.write "
<%=sTitle%>
<%=fld.name%>
<%=sFieldName%>
" rs.close end sub OpenDB sConnStats SQLTable "Page Views", "SELECT PathName, Total FROM Paths ORDER BY Total DESC" conn.close set rs=nothing set conn=nothing %>