<% '------------------------------------------------------------- 'StatCounteX 3.1 'http://www.2enetworx.com/dev/projects/statcountex.asp 'File: reportref.asp 'Description: Referers Report 'Initiated by Hakan Eskici on Nov 18, 2000 '------------------------------------------------------------- 'Credits: 'Kevin Yochum, Warp Drive Enterprises (http://www.warp-drive.com) 'Great additions to StatCounteX including but not limited to: 'Graphical Reports, Top Day, Visitor Path Behaviour 'IP Filter, Active Links '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 links for graphical reports and visitor ip paths '------------------------------------------------------------- %> StatCounteX 3.1
Truly Scrumptious Fabrics Stats

Reports Referers

<% sub SQLTable(sTitle, sSQL) rs.Open sSQL, , , adCmdTable %> <% for each fld in rs.fields iFieldCount = iFieldCount + 1 if iFieldCount = 1 then iWidth = 500 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=500 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 "Referers", "SELECT RefName, Total FROM Refs ORDER BY Total DESC" conn.close set rs=nothing set conn=nothing %>