<%@ LANGUAGE = "VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% '**************************************************************************************** '** Copyright Notice '** '** iPortalX.com '** '** Copyright 2001-2003 Drew Gauderman All Rights Reserved. '** '** This program is a paid software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may NOT use parts of this program in your own private work, and you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** Support is for those that have purchased it. Post support questions at: - '** http://www.iportalx.com/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** support@iportalx.com '** '**************************************************************************************** Function ImageWidth() Response.Write(vbCrLf & "") Response.Write("") Response.Write(vbCrLf & "") End Function Dim saryBrowsers : saryBrowsers = Array("Opera 1","Opera 2","Opera 3","Opera 4","Opera 5","Opera 6","Opera 7","Opera 8","Opera","AOL 3","AOL 4","AOL 5","AOL 6","AOL 7","AOL 8","AOL 9","AOL","Konqueror","EudoraWeb","Dreamcast","Safari","Lynx","ICE","iCab","HotJava","Galeon","Epiphany","DocZilla","Camino","Dillo","Amaya","NetCaptor","Microsoft IE 7","Microsoft IE 6","Microsoft IE 5","Microsoft IE 4","Microsoft IE 3","Microsoft IE 2","Microsoft IE 1","Pocket IE 1","Pocket IE 2","Mozilla Firebird","Mozilla 2","Mozilla 1","Mozilla","Netscape 8","Netscape 7","Netscape 6","Netscape 4","Netscape 3","Netscape 2","Netscape 1","Unknown_browser") Dim saryOperation : saryOperation = Array("Windows 2003","Windows XP","Windows 2000","Windows NT 4","Windows 95","Windows ME","Windows 98","Windows 3.x","Windows CE","Palm OS","PalmPilot","Nokia","Linux","Amiga","Solaris","Sun OS","Free BSD","Unix","AOL TV","Web TV","Mac OS X","Mac PowerPC","Mac 68k","Macintosh","OS/2","Unknown_os") Dim sarBots : sarBots = Array("ZyBorg","LookSmart","Googlebot","msnbot","MSN","slurp","Inktomi","Scooter","AltaVista","Robozilla","DMOZ","Ask Jeeves","Lycos","ArchitextSpider","Excite","Gulliver","Northernlight","AllTheWeb","Turnitin","InternetSeer","NameProtect","PhpDig","Rambler","UbiCrawler","entireweb","Alexa","Arianna/Libero") Dim intTempTotalVisitors Dim intTempTotalBots blnUseRightColumn = False %> <% = strWebsiteName %> - Portal Stats
<% = strWebsiteName %> : <% = strTxtPortalStats %>

<% Response.Write(vbCrLf & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Call FormatBottomTable("100%") rsCommon.Close %> <% Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing Function GetStats(strName, intTempTotalVisitors) Dim intTotalCount Dim intPrecent intPrecent = 0 Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") ON ERROR RESUME NEXT strName = Replace(strName, " ", "_") intTotalCount = Clng(rsCommon(strName)) intPrecent = FormatPercent((intTotalCount / intTempTotalVisitors), 0) ON ERROR GOTO 0 Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") End Function %>
") strSQL = "SELECT TOP 1 " & strDBTable & "Stats.* FROM " & strDBTable & "Stats " & _ "ORDER BY " & strDBTable & "Stats.Stats_ID DESC;" rsCommon.Open strSQL, adoCon intTempTotalVisitors = Clng(rsCommon("Total_visitors")) intTempTotalBots = Clng(rsCommon("Search_Robot")) Call FormatTopTable("100%") Response.Write(vbCrLf & "
" & strTxtBrowsers & "" & strTxtOperatingSystem & "
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " ") For intRecordLoopCounter = 0 TO UBound(saryBrowsers) Call GetStats(saryBrowsers(intRecordLoopCounter), intTempTotalVisitors) Next Response.Write(vbCrLf & "
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " 		") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " ") For intRecordLoopCounter = 0 TO UBound(saryOperation) Call GetStats(saryOperation(intRecordLoopCounter), intTempTotalVisitors) Next Response.Write(vbCrLf & "
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & "
Spyder BotsPortal Stats
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " ") For intRecordLoopCounter = 0 TO UBound(sarBots) Call GetStats(sarBots(intRecordLoopCounter), intTempTotalBots) Next Response.Write(vbCrLf & "
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " 		") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "
Members:
Forums:
Topics:
Threads:
Polls:
Site Polls:
Links:
Downloads:
Faqs:
GuestBook Enties:
News Items:
Administrators:
Moderators:
Gallery Images:
Calendar Events:
Blogs:
Total Visitors:
Visits Since:
Members Online:
Guests Online:
Spiders Online:
") Response.Write(vbCrLf & "
") Response.Write(vbCrLf & "
" & strName & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " " & intPrecent & " (" & Clng(intTotalCount) & ")