The database is empty.
")
End If
Call DisplayReportFooter()
Case 1 ' WHO'S ONLINE (SUMMARY)
datNow = DateAdd("h", intTimeOffset, Now())
strSql = "SELECT s_ip, n_value AS s_hostname, " &_
"s_country, MAX(pl_datetime) AS dc_lasthit, COUNT(pl_pn_id) " &_
"FROM (SELECT pl_datetime, pl_pn_id, s_ip, s_country, s_hostname " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Sessions " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(DateAdd("n", 0 - intSessionDuration, datNow)) &_
" AND " & FormatDatabaseDate(datNow) & ") dt_PageLog"
If strDatabaseType = "MYSQL" Then
strSql = strSql & " LEFT JOIN " & strTablePrefix & "Names ON s_hostname = n_id " &_
"GROUP BY s_ip, s_hostname, s_country " &_
"ORDER BY dc_lasthit DESC"
Else
strSql = strSql & " LEFT JOIN " & strTablePrefix & "Names " &_
"ON dt_pagelog.s_hostname = " & strTablePrefix & "Names.n_id " &_
"GROUP BY s_ip, n_value, s_country " &_
"ORDER BY MAX(pl_datetime) DESC"
End If
Set rsQuery = Server.CreateObject("ADODB.Recordset")
If strDatabaseType = "MYSQL" Then
rsQuery.CursorLocation = 3
End If
rsQuery.Open strSql, objConn, 3, 1, &H0000
Call DisplayReportHeader(strReportGroup, strReportName, rsQuery.RecordCount & " User(s) Online")
If Not rsQuery.Eof Then
Response.Write("")
.Write(" "" Then
.Write (" style=""" & strClass & """>")
Else
.Write (">")
End If
End With
End If
If CInt(intReport) = CInt(intLoop) Then
strClass = "chselected"
Else
strClass = "chitem"
End If
With Response
.Write("")
.Write(" | ")
.Write("![]() | ")
.Write("")
.Write(aryReports(intLoop, 0) & " | ")
.Write(" " & vbcrlf)
End With
strLastGroup = aryReports(intLoop, 1)
Next
Response.Write(" ")
End Sub
Private Sub DisplayReportHeader(strReportGroup, strReportName, strText)
With Response
.Write("")
.Write("| ")
.Write(strReportGroup & " » " & strReportName & " | ")
.Write("![]() ")
.Write("![]() ")
.Write("")
.Write("![]() ")
.Write(" | ")
.Write("| ")
.Write("")
If strExtra <> "" Then
.Write("")
End If
.Write(" | ")
End With
End Sub
Private Sub GenerateGraph(intNumber, intMaxNumber, strClass)
Dim intWidth, intMaxWidth
intMaxwidth = 150
If intMaxNumber > 0 Then
intWidth = Round(((intNumber / intMaxNumber) * intMaxWidth), 0)
With Response
.Write("")
.Write("")
.Write("")
.Write("![]() ")
.Write(" | ")
.Write(" ")
.Write(" ")
End With
End If
End Sub
Private Function GetName(intValue)
Dim strTemp
If intValue > 0 Then
Dim rsQuery : Set rsQuery = Server.CreateObject("ADODB.Recordset")
If strDatabaseType = "MYSQL" Then
rsQuery.CursorLocation = 3
End If
Dim strSql : strSql = "SELECT n_value FROM " & strTablePrefix & "Names " &_
"WHERE n_id = " & intValue
rsQuery.Open strSql, objConn, 3, 1, &H0000
If Not rsQuery.Eof Then
strTemp = rsQuery(0)
End If
rsQuery.Close : Set rsQuery = Nothing
End If
GetName = strTemp
End Function
Private Function GetCampaignName(strCode)
Dim strTemp
If strCode <> "" Then
Dim rsQuery : Set rsQuery = Server.CreateObject("ADODB.Recordset")
If strDatabaseType = "MYSQL" Then
rsQuery.CursorLocation = 3
End If
Dim strSql : strSql = "SELECT ca_name FROM " & strTablePrefix & "Campaigns " &_
"WHERE ca_code LIKE '" & strCode & "'"
rsQuery.Open strSql, objConn, 3, 1, &H0000
If Not rsQuery.Eof Then
strTemp = rsQuery(0)
Else
strTemp = strCode
End If
rsQuery.Close : Set rsQuery = Nothing
End If
GetCampaignName = strTemp
End Function
Private Function GetActions(aryActionCode, aryActionName)
Dim aryTemp, strCode, strName, intCount
strSql = "SELECT a_code, a_name FROM " & strTablePrefix & "Actions " &_
"WHERE a_display = -1"
Dim rsQuery : Set rsQuery = Server.CreateObject("ADODB.Recordset")
rsQuery.Open strSql, objConn, 3, 1, &H0000
intCount = rsQuery.RecordCount
Do While Not rsQuery.Eof
strCode = strCode & rsQuery(0)
strName = strName & rsQuery(1)
rsQuery.Movenext
If Not rsQuery.Eof Then
strCode = strCode & "|"
strName = strName & "|"
End If
Loop
rsQuery.Close : Set rsQuery = Nothing
If strCode <> "" Then
aryActionCode = Split(strCode, "|")
aryActionName = Split(strName, "|")
End If
GetActions = intCount
End Function
'************
'* COUNTING *
'************
Public Function CountPageViews(strScriptName, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(pl_pn_id) FROM " &_
"(SELECT pl_pn_id " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "PageNames " &_
"WHERE pl_pn_id = pn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
If strScriptName <> "" Then
strSql = strSql & " AND pn_page LIKE '" & strScriptName & "'"
End If
strSql = strSql & ") dtPageLog "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountPageViews = intTemp
End Function
Public Function CountFileTypes(strFileType, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(pl_pn_id) FROM " &_
"(SELECT pl_pn_id " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "PageNames " &_
"WHERE pl_pn_id = pn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
If strFileType <> "" Then
strSql = strSql & " AND pn_extension LIKE '" & strScriptName & "'"
End If
strSql = strSql & "AND pn_extension <> '') dtPageLog "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountFileTypes = intTemp
End Function
Public Function CountReferrers(strType, datStart, datEnd)
Dim intTemp
Select Case strType
Case "Domain"
strSql = "SELECT COUNT(rn_domain) FROM " &_
"(SELECT rn_domain " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Referrers, " & strTablePrefix & "ReferrerNames " &_
"WHERE pl_r_id = r_id " &_
"AND r_rn_id = rn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If blnSiteAliases = True Then
strSql = strSql & "AND rn_host NOT IN (" & FormatSiteAliases(strSiteAliases) & ") "
End If
strSql = strSql & "AND pl_r_id <> 0 " &_
"AND rn_domain <> '') dtPageLog "
Case "Host"
strSql = "SELECT COUNT(rn_host) FROM " &_
"(SELECT rn_host " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Referrers, " & strTablePrefix & "ReferrerNames " &_
"WHERE pl_r_id = r_id " &_
"AND r_rn_id = rn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If blnSiteAliases = True Then
strSql = strSql & "AND rn_host NOT IN (" & FormatSiteAliases(strSiteAliases) & ") "
End If
strSql = strSql & "AND pl_r_id <> 0 " &_
"AND rn_host <> '') dtPageLog "
Case "Page"
strSql = "SELECT COUNT(rn_page) FROM " &_
"(SELECT pl_datetime, rn_page " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Referrers, " & strTablePrefix & "ReferrerNames " &_
"WHERE pl_r_id = r_id " &_
"AND r_rn_id = rn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If blnSiteAliases = True Then
strSql = strSql & "AND rn_host NOT IN (" & FormatSiteAliases(strSiteAliases) & ") "
End If
strSql = strSql & "AND pl_r_id <> 0 " &_
"AND rn_page <> '') dtPageLog "
Case "Extension"
strSql = "SELECT COUNT(rn_extension) FROM " &_
"(SELECT pl_datetime, rn_extension " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Referrers, " & strTablePrefix & "ReferrerNames " &_
"WHERE pl_r_id = r_id " &_
"AND r_rn_id = rn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If blnSiteAliases = True Then
strSql = strSql & "AND rn_host NOT IN (" & FormatSiteAliases(strSiteAliases) & ") "
End If
strSql = strSql & "AND pl_r_id <> 0 " &_
"AND rn_extension <> '') dtPageLog "
Case Else 'Url
strSql = "SELECT COUNT(r_url) FROM " &_
"(SELECT pl_datetime, r_url " &_
"FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Referrers, " & strTablePrefix & "ReferrerNames " &_
"WHERE pl_r_id = r_id " &_
"AND r_rn_id = rn_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If blnSiteAliases = True Then
strSql = strSql & "AND rn_host NOT IN (" & FormatSiteAliases(strSiteAliases) & ") "
End If
strSql = strSql & "AND pl_r_id <> 0 " &_
"AND r_url <> '') dtPageLog "
End Select
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountReferrers = intTemp
End Function
Public Function CountUsersOnline()
Dim intTemp
Dim datNow : datNow = DateAdd("h", intTimeOffset, Now())
strSql = "SELECT COUNT(s_ip) " &_
"FROM (SELECT DISTINCT s_ip FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Sessions WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(Dateadd("n", (0 - intSessionDuration), datNow)) &_
" AND " & FormatDatabaseDate(datNow) & ") dtPageLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountUsersOnline = intTemp
End Function
Public Function CountVisits(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_id) FROM " &_
"(SELECT DISTINCT s_id FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & ") dtPageLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountVisits = intTemp
End Function
Public Function CountVisitors(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_ip) FROM " &_
"(SELECT DISTINCT s_ip FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & ") dtPageLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountVisitors = intTemp
End Function
Public Function CountDailyVisitors(datStart, datEnd)
Dim intTemp
strSql = "SELECT SUM(Visitors) FROM (SELECT COUNT(s_ip) AS Visitors " &_
"FROM (SELECT DISTINCT YEAR(pl_datetime) AS LogYear, " &_
"MONTH(pl_datetime) AS LogMonth, " &_
"DAY(pl_datetime) AS LogDay, s_ip FROM (" &_
"SELECT pl_datetime, s_ip FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Sessions " &_
"WHERE pl_s_id = s_id) dtPageLog " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") &_
") dtSessions GROUP BY LogYear, LogMonth, LogDay " &_
") dtSum"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
If Not IsNumeric(intTemp) Then
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountDailyVisitors = intTemp
End Function
Public Function CountDailyVisits(datStart, datEnd)
Dim intTemp
strSql = "SELECT SUM(Visits) FROM (SELECT COUNT(pl_s_id) AS Visits " &_
"FROM (SELECT DISTINCT YEAR(pl_datetime) AS LogYear, " &_
"MONTH(pl_datetime) AS LogMonth, DAY(pl_datetime) AS LogDay, pl_s_id " &_
"FROM " & strTablePrefix & "PageLog " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") &_
") dtPageLog GROUP BY LogYear, LogMonth, LogDay " &_
") dtSum"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
If Not IsNumeric(intTemp) Then
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountDailyVisits = intTemp
End Function
Public Function CountSearches(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(k_site) " &_
"FROM (SELECT pl_s_id, k_site " &_
"FROM " & strTablePrefix & "Keywords, " & strTablePrefix & "Referrers, " & strTablePrefix & "PageLog " &_
"WHERE k_id = r_k_id " &_
"AND r_id = pl_r_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND k_site <> 0) dtSites "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountSearches = intTemp
End Function
Public Function CountCampaigns(strCampaign, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(cl_ca_code) " &_
"FROM " & strTablePrefix & "CampaignLog " &_
"WHERE cl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
If strCampaign <> "" Then
strSql = strSql & " AND cl_ca_code = '" & strCampaign & "'"
End If
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountCampaigns = intTemp
End Function
Public Function CountActions(strAction, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(al_a_code) " &_
"FROM " & strTablePrefix & "ActionLog " &_
"WHERE al_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
If strAction <> "" Then
strSql = strSql & " AND al_a_code = '" & strAction & "'"
End If
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountActions = intTemp
End Function
Public Function CountSales(strType, datStart, datEnd)
Dim sngTemp
strSql = "SELECT SUM(al_amount) " &_
"FROM " & strTablePrefix & "ActionLog " &_
"WHERE al_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
If strType = "Campaign" Then
strSql = strSql & " AND al_ca_code <> ''"
End If
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
sngTemp = rsCount(0)
If IsNull(sngTemp) Then
sngTemp = 0
End If
Else
sngTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountSales = sngTemp
End Function
Public Function CountDistinctCampaigns(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(cl_ca_code) " &_
"FROM (SELECT DISTINCT cl_ca_code FROM " & strTablePrefix & "CampaignLog " &_
"WHERE cl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & ") dt_CampaignLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountDistinctCampaigns = intTemp
End Function
Public Function CountKeywords(datStart, datEnd, strExtra)
Dim intTemp
strSql = "SELECT COUNT(k_value) " &_
"FROM (SELECT pl_s_id, k_value FROM " & strTablePrefix & "Keywords, " & strTablePrefix & "Referrers, " & strTablePrefix & "PageLog " &_
"WHERE k_id = r_k_id " &_
"AND r_id = pl_r_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If strExtra <> "" Then
strSql = strSql & "AND k_site = " & strExtra & " "
End If
strSql = strSql & "AND k_value <> '') dtKeywords"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountKeywords = intTemp
End Function
Public Function CountRobotPageViews(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(*) FROM " & strTablePrefix & "RobotLog " &_
"WHERE rl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59")
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountRobotPageViews = intTemp
End Function
Public Function CountCountries(strCode, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_country) FROM (" &_
"SELECT DISTINCT s_id, s_country " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If strCode <> "" Then
strSql = strSql & "AND s_country = '" & strCode & "' "
End If
strSql = strSql & "AND s_country <> '') dtCountries"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountCountries = intTemp
End Function
Public Function CountBrowsers(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_browser) FROM (" &_
"SELECT DISTINCT s_id, s_browser " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND s_browser <> 0) dtBrowsers"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountBrowsers = intTemp
End Function
Public Function CountOS(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_os) FROM (" &_
"SELECT DISTINCT s_id, s_os " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND s_os <> 0) dtOS"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountOS = intTemp
End Function
Public Function CountLanguages(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_language) FROM (" &_
"SELECT DISTINCT s_id, s_language " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND s_language <> '') dtLanguages"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountLanguages = intTemp
End Function
Public Function CountScreenAreas(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_screenarea) FROM (" &_
"SELECT DISTINCT s_id, s_screenarea " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND s_screenarea <> 0) dtScreenareas"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountScreenAreas = intTemp
End Function
Public Function CountUserAgents(datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(s_useragent) FROM (" &_
"SELECT DISTINCT s_id, s_useragent " &_
"FROM " & strTablePrefix & "Sessions, " & strTablePrefix & "PageLog " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND s_useragent <> 0) dtScreenareas"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountUserAgents = intTemp
End Function
Public Function CountDistinctPages()
Dim intTemp
' COUNT DISTINCT PAGES
strSql = "SELECT COUNT(pn_page) FROM " &_
"(SELECT DISTINCT pn_page FROM " & strTablePrefix & "PageNames) dtPages"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountDistinctPages = intTemp
End Function
Public Function CountDistinctUrls()
Dim intTemp
' COUNT DISTINCT URLS
strSql = "SELECT COUNT(pn_url) FROM " & strTablePrefix & "PageNames"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountDistinctUrls = intTemp
End Function
Public Function GetStartDate()
Dim datTemp
strSql = "SELECT MIN(pl_datetime) FROM " & strTablePrefix & "PageLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
datTemp = rsCount(0)
Else
datTemp = Empty
End If
rsCount.Close : Set rsCount = Nothing
GetStartDate = datTemp
End Function
Private Function GetMaxPageViews(strType)
Dim intTemp
If strType = "HOURLY" Then
strSql = "SELECT MAX(PageCount) FROM " &_
"(SELECT COUNT(pl_pn_id) AS PageCount " &_
"FROM " & strTablePrefix & "PageLog " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00")&_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " "
If strDatabaseType = "MSSQL" Then
strSql = strSql & "GROUP BY DATEPART(hh, pl_datetime)) dtPageLog"
Else
strSql = strSql & "GROUP BY HOUR(pl_datetime)) dtPageLog"
End If
Else
strSql = "SELECT MAX(PageCount) FROM " &_
"(SELECT COUNT(pl_pn_id) AS PageCount " &_
"FROM " & strTablePrefix & "PageLog " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00")&_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"GROUP BY YEAR(pl_datetime), MONTH(pl_datetime), DAY(pl_datetime)) dtPageLog "
End If
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close
Set rsCount = Nothing
GetMaxPageViews = intTemp
End Function
Private Function GetMaxVisitors()
Dim intTemp
strSql = "SELECT MAX(VisitorCount) FROM " &_
"(SELECT COUNT(s_ip) As VisitorCount FROM " &_
"(SELECT DISTINCT YEAR(pl_datetime) AS LogYear, MONTH(pl_datetime) AS LogMonth, " &_
"DAY(pl_datetime) AS LogDay, s_ip FROM " & strTablePrefix & "PageLog, " & strTablePrefix & "Sessions " &_
"WHERE pl_s_id = s_id " &_
"AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " ) dtSessions " &_
"GROUP BY LogYear, LogMonth, LogDay) dtPageLog "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close
Set rsCount = Nothing
GetMaxVisitors = intTemp
End Function
Private Function GetMaxVisits()
Dim intTemp
strSql = "SELECT MAX(VisitCount) FROM " &_
"(SELECT COUNT(pl_s_id) AS VisitCount " &_
"FROM (SELECT DISTINCT YEAR(pl_datetime) AS LogYear, " &_
"MONTH(pl_datetime) AS LogMonth, DAY(pl_datetime) AS LogDay, pl_s_id " &_
"FROM " & strTablePrefix & "PageLog " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") &_
") dtPageLog GROUP BY LogYear, LogMonth, LogDay) dtMaxPageLog "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close
Set rsCount = Nothing
GetMaxVisits = intTemp
End Function
Private Function GetMaxSearches()
Dim intTemp
strSql = "SELECT MAX(SearchCount) FROM (SELECT COUNT(k_id) AS SearchCount " &_
"FROM (" & strTablePrefix & "Pagelog LEFT JOIN " & strTablePrefix & "Referrers " &_
"ON " & strTablePrefix & "PageLog.pl_r_id = " & strTablePrefix & "Referrers.r_id) " &_
"LEFT JOIN " & strTablePrefix & "Keywords " &_
"ON " & strTablePrefix & "Referrers.r_k_id = " & strTablePrefix & "Keywords.k_id " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00")&_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND k_site <> 0 " &_
"GROUP BY YEAR(pl_datetime), MONTH(pl_datetime), DAY(pl_datetime)) dt_Searches "
strSql = "SELECT MAX(SearchCount) FROM (SELECT COUNT(k_id) AS SearchCount " &_
"FROM (" & strTablePrefix & "Pagelog LEFT JOIN " & strTablePrefix & "Referrers " &_
"ON " & strTablePrefix & "Pagelog.pl_r_id = " & strTablePrefix & "Referrers.r_id) " &_
"LEFT JOIN " & strTablePrefix & "Keywords " &_
"ON " & strTablePrefix & "Referrers.r_k_id = " & strTablePrefix & "Keywords.k_id " &_
"WHERE pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00")&_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & " " &_
"AND k_site <> 0 " &_
"GROUP BY YEAR(pl_datetime), MONTH(pl_datetime), DAY(pl_datetime)) dt_Searches "
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close
Set rsCount = Nothing
GetMaxSearches = intTemp
End Function
Private Function CountVisitsByType(strType, strExtra, datStart, datEnd)
Dim intTemp
strSql = "SELECT COUNT(r_id) FROM " &_
"(SELECT r_id FROM (" & strTablePrefix & "PageLog " &_
"LEFT JOIN " & strTablePrefix & "Referrers " &_
"ON " & strTablePrefix & "PageLog.pl_r_id = " & strTablePrefix & "Referrers.r_id) " &_
"LEFT JOIN " & strTablePrefix & "ReferrerNames " &_
"ON " & strTablePrefix & "Referrers.r_rn_id = " & strTablePrefix & "ReferrerNames.rn_id " &_
"WHERE r_id <> 0 "
If strType = "Domain" Then
strSql = strSql & "AND rn_domain LIKE " & FormatDatabaseString(strExtra, 100) & " "
ElseIf strType = "Host" Then
strSql = strSql & "AND rn_host LIKE " & FormatDatabaseString(strExtra, 150) & " "
ElseIf strType = "Page" Then
strSql = strSql & "AND rn_id = " & strExtra & " "
ElseIf strType = "URL" Then
strSql = strSql & "AND r_id = " & strExtra & " "
ElseIf strType = "Keywords" Then
strSql = "SELECT COUNT(r_id) FROM " &_
"(SELECT r_id FROM (" & strTablePrefix & "PageLog " &_
"LEFT JOIN " & strTablePrefix & "Referrers " &_
"ON " & strTablePrefix & "PageLog.pl_r_id = " & strTablePrefix & "Referrers.r_id) " &_
"LEFT JOIN " & strTablePrefix & "Keywords " &_
"ON " & strTablePrefix & "Referrers.r_k_id = " & strTablePrefix & "Keywords.k_id " &_
"WHERE r_id <> 0 AND r_k_id <> 0 " &_
"AND k_value LIKE " & FormatDatabaseString(strExtra, 255) & " "
End If
strSql = strSql & "AND pl_datetime BETWEEN " & FormatDatabaseDate(datStart & " 00:00:00") &_
" AND " & FormatDatabaseDate(datEnd & " 23:59:59") & ") dtPageLog"
Dim rsCount : Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.Open strSql, objConn, 3, 1, &H0000
If Not rsCount.Eof Then
intTemp = rsCount(0)
Else
intTemp = 0
End If
rsCount.Close : Set rsCount = Nothing
CountVisitsByType = intTemp
End Function
Private Function FormatSiteAliases(strSiteAliases)
' FORMAT SITE ALIASES
If Len(strSiteAliases) > 0 Then
' REMOVE SOME ILLEGAL CHARACTERS
strSiteAliases = Replace(strSiteAliases, " ", "")
strSiteAliases = Replace(strSiteAliases, "'", "")
' CREATE ARRAY
Dim arySiteAliases : arySiteAliases = Split(strSiteAliases, ",")
strSiteAliases = ""
Dim intLoop : For intLoop = 0 To UBound(arySiteAliases)
strSiteAliases = strSiteAliases & "'" & arySiteAliases(intLoop) & "',"
Next
strSiteAliases = Mid(strSiteAliases, 1, Len(strSiteAliases) - 1)
End If
FormatSiteAliases = strSiteAliases
End Function
Private Function FormatLink(strUrl, strClass)
Dim strTemp
If Left(strSiteUrl, 4) = "http" Then
strTemp = "" & strUrl & ""
Else
strTemp = strUrl
End If
FormatLink = strTemp
End Function
Private Function DisplayCountry(strExtension)
Dim strTemp
If Left(Right(strExtension, 3), 1) = "." Then
strTemp = ConvertCountryCode(UCase(Right(strExtension, 2)))
End If
If Len(strTemp) > 2 Then
strTemp = " (" & strTemp & ")"
End If
DisplayCountry = strTemp
End Function
Private Function FormatExportData(strData)
If Not IsNull(strData) Then
strData = Replace(strData, ",", "%2C")
strData = Replace(strData, """", "%22")
End If
FormatExportData = strData
End Function
Private Function TruncateUrl(strUrl)
Dim strTemp, strBase, colItem, intLoop, intLength
Dim objSearch, objBaseSearch, objBaseResults
Dim strMatch, strStart, strEnd, intPosition
Dim aryUrl, strQuerystring, strScriptName
intLength = 60
strTemp = strUrl
If blnTruncateUrl = True Then
If Len(strTemp) > intLength Then
Set objBaseSearch = New RegExp
With objBaseSearch
.Pattern = "(http|https)://[\w|\-|\.|:]+/"
.IgnoreCase = True
.Global = False
End With
' CHECK FOR BASE URL
Set objBaseResults = objBaseSearch.Execute(strTemp)
If objBaseResults.Count > 0 Then
For Each colItem In objBaseResults
strBase = colItem.Value
Next
' REMOVE URL BASE BEFORE WE START LOOP
strTemp = Mid(strTemp, Len(strBase) + 1)
If InStr(strTemp, "?") > 0 Then
aryUrl = Split(strTemp, "?")
strScriptName = aryUrl(0)
strQuerystring = aryUrl(1)
Else
strScriptName = strTemp
End If
For intLoop = 1 To 10
Set objSearch = New RegExp
With objSearch
.Pattern = "[\w|\.|\-|%|~]+/"
.IgnoreCase = True
.Global = False
End With
' REPLACE PATTERN
strScriptName = objSearch.Replace(strScriptName, "##/")
Set objSearch = Nothing
If Len(strScriptName) + Len(strBase) + Len(strQuerystring) + 1 < intLength Then
Exit For
End If
Next
strScriptName = Replace(strScriptName, "##/", "../")
' REASSEMBLE URL WITH BASE
strTemp = strBase & strScriptName
If Len(strQuerystring) > 0 Then
strTemp = strTemp & "?" & strQuerystring
End If
End If
If Len(strTemp) > intLength Then
strTemp = Left(strTemp, intLength)
End If
End If
Set objBaseSearch = Nothing
Set objBaseResults = Nothing
End If
TruncateUrl = strTemp
End Function
Private Function SetItems(blnItems, intItems, blnTop)
Dim strTemp
If blnItems = True Then
If strDatabaseType = "MYSQL" Then
If blnTop = False Then
strTemp = " LIMIT " & intItems
End If
Else
If blnTop = True Then
strTemp = "TOP " & intItems & " "
End If
End If
End If
SetItems = strTemp
End Function
Private Sub CheckVersion(strCurrent)
Dim strSql : strSql = "SELECT c_value " &_
"FROM " & strTablePrefix & "Config " &_
"WHERE c_name = 'MetaTraffic_Version'"
Dim rsVersion : Set rsVersion = Server.CreateObject("ADODB.Recordset")
rsVersion.Open strSql, objConn, 1, 2, &H0001
If Not rsVersion.Eof Then
Dim strVersion : strVersion = rsVersion(0)
Dim aryVersion : aryVersion = Split(strVersion, " ")
If UBound(aryVersion) = 1 And IsNumeric(aryVersion(0)) Then
If CSng(aryVersion(0)) < 2.2 And aryVersion(1) <> "Lite" Then
Call InsertConfig("Time_Offset", "0", "Reports", 2, 13, "select||int||-23,-22,-21,-20,-19,-18,-17,-16,-15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23||||")
End If
End If
If rsVersion(0) <> strCurrent Then
rsVersion(0) = strCurrent
rsVersion.Update
End If
End If
rsVersion.Close : Set rsVersion = Nothing
End Sub
Sub InsertConfig(strName, strValue, strGroup, intType, intOrder, strExtra)
strSql = "INSERT INTO " & strTablePrefix & "Config (c_name, c_value, c_group, c_type, c_order, c_extra) VALUES" &_
"(" & FormatDatabaseString(strName, 255) & ", " &_
FormatDatabaseString(strValue, 255) & ", " &_
FormatDatabaseString(strGroup, 255) & ", " &_
intType & ", " &_
intOrder & ", " &_
FormatDatabaseString(strExtra, 255) & ")"
objConn.Execute(strSql)
End Sub
Private Function ConvertIPNumberToAddress(intIPNumber)
Dim intTemp : intTemp = Int(intIPNumber)
Dim aryIP(3)
intTemp = intTemp + 2147483647
aryIP(0) = Int(intTemp / 16777216) Mod 256
intTemp = intTemp - 16777216 * aryIP(0)
aryIP(1) = Int(intTemp / 65536) Mod 256
intTemp = intTemp - 65536 * aryIP(1)
aryIP(2) = Int(intTemp / 256) Mod 256
intTemp = intTemp - 256 * aryIP(2)
aryIP(3) = intTemp Mod 256
Dim strTemp : strTemp = aryIP(0) & "." & aryIP(1) & "." & aryIP(2) & "." & aryIP(3)
ConvertIPNumberToAddress = strTemp
End Function
Private Function ChooseIPWhois(strCountry)
Dim strTemp
Select Case strCountry
' APNIC
CASE "AF", "AS", "AU", "BD", "BN", "BT", "CC", "CK", "CN", "CX", _
"FJ", "FM", "GU", "HK", "ID", "IN", "IO", "JP", "KH", "KI", _
"KM", "KP", "KR", "LA", "LK", "MG", "MH", "MM", "MN", "MO", _
"MP", "MU", "MV", "MY", "NC", "NF", "NP", "NR", "NU", "NZ", _
"PF", "PG", "PH", "PK", "PN", "PW", "RE", "SB", "SC", "SG", _
"TF", "TH", "TK", "TO", "TP", "TV", "TW", "VN", "VU", "WF", _
"WS", "YT"
strTemp = "APNIC"
CASE "AG", "AI", "AO", "AQ", "BB", "BI", "BM", "BS", "BV", "BW", _
"CA", "CD", "CG", "DM", "GD", "GP", "HM", "JM", "KN", "KY", _
"LC", "LS", "MQ", "MW", "MZ", "NA", "PM", "PR", "RW", "SH", _
"SZ", "TC", "TZ", "UM", "US", "VC", "VG", "VI", "ZA", "ZM", _
"ZW"
strTemp = "ARIN"
CASE "AN", "AR", "AW", "BO", "BR", "BZ", "CL", "CO", "CR", "CU", _
"DO", "EC", "FK", "GF", "GS", "GT", "GY", "HN", "HT", "MX", _
"NI", "PA", "PE", "PY", "SR", "SV", "TT", "UY", "VE"
strTemp = "LACNIC"
CASE "AD", "AE", "AL", "AM", "AT", "AZ", "BA", "BE", "BF", "BG", _
"BH", "BJ", "BY", "CF", "CH", "CI", "CM", "CV", "CY", "CZ", _
"DE", "DJ", "DK", "DZ", "EE", "EG", "EH", "ER", "ES", "ET", _
"FI", "FO", "FR", "GA", "GB", "GE", "GH", "GI", "GL", "GM", _
"GN", "GQ", "GR", "GW", "HR", "HU", "IE", "IL", "IQ", "IR", _
"IS", "IT", "JO", "KE", "KG", "KW", "KZ", "LB", "LI", "LR", _
"LT", "LU", "LV", "LY", "MA", "MC", "MD", "MK", "ML", "MR", _
"MS", "MT", "NE", "NG", "NL", "NO", "OM", "PL", "PS", "PT", _
"QA", "RO", "RU", "SA", "SD", "SE", "SI", "SJ", "SK", "SL", _
"SM", "SN", "SO", "ST", "SY", "TD", "TG", "TJ", "TM", "TN", _
"TR", "UA", "UG", "UZ", "VA", "YE", "YU", "UK", "EU"
strTemp = "RIPE"
End Select
ChooseIPWhois = strTemp
End Function
Private Function FormatIPAddress(strIPAddress, strRegistry, strClass)
Dim strTemp
If strRegistry <> "" Then
strTemp = strTemp & ""
End If
strTemp = strTemp & strIPAddress
If strRegistry <> "" Then
strTemp = strTemp & ""
End If
FormatIPAddress = strTemp
End Function
Private Sub DisplayIPWhois()
With Response
.Write("" & vbcrlf)
.Write("" & vbcrlf)
.Write("" & vbcrlf)
.Write("" & vbcrlf)
End With
End Sub
Private Function DisplayReferrerLink(strData, strUrl, strClass)
Dim strTemp, strDisplayClass
If strClass <> "" Then
strDisplayClass = " class=" & strClass
End If
If InStr(strData, "http://") > 0 Then
strTemp = "" & strData & ""
If strData <> strUrl Then
strTemp = strTemp & " " &_
"![]() "
End If
Else
strTemp = "" & strData & ""
If strData <> strUrl Then
strTemp = strTemp & " " &_
"![]() "
End If
End If
DisplayReferrerLink = strTemp
End Function
Public Sub GeneratepresetdatesJS()
Dim datStartDate, datEndDate
With Response
.Write("function presetdate()" & vbcrlf)
.Write("{" & vbcrlf)
datStartDate = Date()
datEndDate = Date()
.Write("if (document.report.preset.value == 'TODAY')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" }" & vbcrlf)
datStartDate = DateAdd("d", -1, Date())
datEndDate = DateAdd("d", -1, Date())
.Write("if (document.report.preset.value=='YESTERDAY')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" } " & vbcrlf)
datStartDate = DateAdd("d", -7, Date())
datEndDate = DateAdd("d", -1, Date())
.Write("if (document.report.preset.value=='LASTWEEKROLL')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" } " & vbcrlf)
datStartDate = DateSerial(Year(Date()), Month(Date()), 1)
datEndDate = Date()
.Write("if (document.report.preset.value=='THISMONTH')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" }" & vbcrlf)
datStartDate = DateSerial(Year(DateAdd("m", -1, Date())), Month(DateAdd("m", -1, Date())), 1)
datEndDate = DateSerial(Year(DateAdd("m", -1, Date())), Month(DateAdd("m", -1, Date())), Day(DateAdd("d", 0 - Day(Date()), Date())))
.Write("if (document.report.preset.value=='LASTMONTH')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" } " & vbcrlf)
datStartDate = DateAdd("m", -1, Date())
datEndDate = DateAdd("d", -1, Date())
.Write("if (document.report.preset.value=='LASTMONTHROLL')" & vbcrlf)
.Write(" {" & vbcrlf)
.Write(" document.report.startdate.value='" & datStartDate & "';" & vbcrlf)
.Write(" document.report.enddate.value='" & datEndDate & "';" & vbcrlf)
.Write(" document.report.startdisplay.value='" & FormatDisplayDate(datStartDate, strShortDate) & "';" & vbcrlf)
.Write(" document.report.enddisplay.value='" & FormatDisplayDate(datEndDate, strShortDate) & "';" & vbcrlf)
.Write(" } " & vbcrlf)
.Write("}")
End With
End Sub
Public Sub GenerateReportJS()
With Response
.Write("function GenerateReport(report)" & vbcrlf)
.Write("{" & vbcrlf)
.Write("var startdate = escape(document.report.startdate.value);" & vbcrlf)
.Write("var enddate = escape(document.report.enddate.value);" & vbcrlf)
.Write("var items = document.report.items.value;" & vbcrlf)
.Write("var urlstr = 'default.asp?sd=' + startdate + '&ed=' + enddate + '&r=' + report + '&i=' + items;" & vbcrlf)
.Write("document.location = urlstr;" & vbcrlf)
.Write("}" & vbcrlf)
.Write("function GenerateDetail(report, detail, extra, type, extra2, type2)" & vbcrlf)
.Write("{" & vbcrlf)
.Write("var startdate = escape(document.report.startdate.value);" & vbcrlf)
.Write("var enddate = escape(document.report.enddate.value);" & vbcrlf)
.Write("var items = document.report.items.value;" & vbcrlf)
.Write("var urlstr = 'default.asp?sd=' + startdate + '&ed=' + enddate + '&r=' + report + '&i=' + items + '&d=' + detail + '&e=' + extra + '&et=' + type + '&e2=' + extra2 + '&et2=' + type2;" & vbcrlf)
.Write("document.location = urlstr;" & vbcrlf)
.Write("}" & vbcrlf)
End With
End Sub
Private Function GetReportArray()
Dim aryTemp(35, 1)
aryTemp(0,0) = "Summary"
aryTemp(0,1) = "General"
aryTemp(1,0) = "Who's Online"
aryTemp(1,1) = "General"
aryTemp(2,0) = "Pages"
aryTemp(2,1) = "Pages & Files"
aryTemp(3,0) = "Urls"
aryTemp(3,1) = "Pages & Files"
aryTemp(4,0) = "Daily"
aryTemp(4,1) = "Pages & Files"
aryTemp(5,0) = "Hourly"
aryTemp(5,1) = "Pages & Files"
aryTemp(6,0) = "By IP Address"
aryTemp(6,1) = "Pages & Files"
aryTemp(7,0) = "Directories"
aryTemp(7,1) = "Pages & Files"
aryTemp(8,0) = "File Types"
aryTemp(8,1) = "Pages & Files"
aryTemp(9,0) = "Daily Unique Visitors"
aryTemp(9,1) = "Visitors"
aryTemp(10,0) = "Daily Visits"
aryTemp(10,1) = "Visitors"
aryTemp(11,0) = "Visits By IP Address"
aryTemp(11,1) = "Visitors"
aryTemp(12,0) = "Entry Pages"
aryTemp(12,1) = "Visitors"
aryTemp(13,0) = "Exit Pages"
aryTemp(13,1) = "Visitors"
aryTemp(14,0) = "Domains"
aryTemp(14,1) = "Referrers"
aryTemp(15,0) = "Hosts"
aryTemp(15,1) = "Referrers"
aryTemp(16,0) = "Pages"
aryTemp(16,1) = "Referrers"
aryTemp(17,0) = "URLs"
aryTemp(17,1) = "Referrers"
aryTemp(18,0) = "Extensions"
aryTemp(18,1) = "Referrers"
aryTemp(19,0) = "Searches"
aryTemp(19,1) = "Search Engines"
aryTemp(20,0) = "Daily Searches"
aryTemp(20,1) = "Search Engines"
aryTemp(21,0) = "Keywords"
aryTemp(21,1) = "Search Engines"
aryTemp(22,0) = "Robots"
aryTemp(22,1) = "Search Engines"
aryTemp(23,0) = "Country of Origin"
aryTemp(23,1) = "Demographics"
aryTemp(24,0) = "Browsers"
aryTemp(24,1) = "Demographics"
aryTemp(25,0) = "Operating Systems"
aryTemp(25,1) = "Demographics"
aryTemp(26,0) = "Languages"
aryTemp(26,1) = "Demographics"
aryTemp(27,0) = "Screen Area"
aryTemp(27,1) = "Demographics"
aryTemp(28,0) = "User Agents"
aryTemp(28,1) = "Demographics"
aryTemp(29,0) = "Actions"
aryTemp(29,1) = "Commerce"
aryTemp(30,0) = "Actions By Domain"
aryTemp(30,1) = "Commerce"
aryTemp(31,0) = "Actions By Host"
aryTemp(31,1) = "Commerce"
aryTemp(32,0) = "Actions By Page"
aryTemp(32,1) = "Commerce"
aryTemp(33,0) = "Actions By URL"
aryTemp(33,1) = "Commerce"
aryTemp(34,0) = "Actions By Keywords"
aryTemp(34,1) = "Commerce"
aryTemp(35,0) = "Campaigns"
aryTemp(35,1) = "Commerce"
GetReportArray = aryTemp
End Function
Private Function ConvertCountryCode(strCode)
Dim strTemp
Select Case UCase(strCode)
Case "AF"
strTemp = "AFGHANISTAN"
Case "AX"
strTemp = "ÅLAND ISLANDS"
Case "AL"
strTemp = "ALBANIA"
Case "DZ"
strTemp = "ALGERIA"
Case "AS"
strTemp = "AMERICAN SAMOA"
Case "AD"
strTemp = "ANDORRA"
Case "AO"
strTemp = "ANGOLA"
Case "AI"
strTemp = "ANGUILLA"
Case "AQ"
strTemp = "ANTARCTICA"
Case "AG"
strTemp = "ANTIGUA AND BARBUDA"
Case "AR"
strTemp = "ARGENTINA"
Case "AM"
strTemp = "ARMENIA"
Case "AP"
strTemp = "African Regional Industrial Property Organization"
Case "AW"
strTemp = "ARUBA"
Case "AU"
strTemp = "AUSTRALIA"
Case "AT"
strTemp = "AUSTRIA"
Case "AZ"
strTemp = "AZERBAIJAN"
Case "BS"
strTemp = "BAHAMAS"
Case "BH"
strTemp = "BAHRAIN"
Case "BD"
strTemp = "BANGLADESH"
Case "BB"
strTemp = "BARBADOS"
Case "BY"
strTemp = "BELARUS"
Case "BE"
strTemp = "BELGIUM"
Case "BZ"
strTemp = "BELIZE"
Case "BJ"
strTemp = "BENIN"
Case "BM"
strTemp = "BERMUDA"
Case "BT"
strTemp = "BHUTAN"
Case "BO"
strTemp = "BOLIVIA"
Case "BA"
strTemp = "BOSNIA AND HERZEGOVINA"
Case "BW"
strTemp = "BOTSWANA"
Case "BV"
strTemp = "BOUVET ISLAND"
Case "BR"
strTemp = "BRAZIL"
Case "IO"
strTemp = "BRITISH INDIAN OCEAN TERRITORY"
Case "BN"
strTemp = "BRUNEI DARUSSALAM"
Case "BG"
strTemp = "BULGARIA"
Case "BF"
strTemp = "BURKINA FASO"
Case "BI"
strTemp = "BURUNDI"
Case "KH"
strTemp = "CAMBODIA"
Case "CM"
strTemp = "CAMEROON"
Case "CA"
strTemp = "CANADA"
Case "CV"
strTemp = "CAPE VERDE"
Case "KY"
strTemp = "CAYMAN ISLANDS"
Case "CF"
strTemp = "CENTRAL AFRICAN REPUBLIC"
Case "TD"
strTemp = "CHAD"
Case "CL"
strTemp = "CHILE"
Case "CN"
strTemp = "CHINA"
Case "CX"
strTemp = "CHRISTMAS ISLAND"
Case "CC"
strTemp = "COCOS (KEELING) ISLANDS"
Case "CO"
strTemp = "COLOMBIA"
Case "KM"
strTemp = "COMOROS"
Case "CG"
strTemp = "CONGO"
Case "CD"
strTemp = "CONGO, THE DEMOCRATIC REPUBLIC OF THE"
Case "CK"
strTemp = "COOK ISLANDS"
Case "CR"
strTemp = "COSTA RICA"
Case "CI"
strTemp = "COTE D'IVOIRE"
Case "HR"
strTemp = "CROATIA"
Case "CU"
strTemp = "CUBA"
Case "CY"
strTemp = "CYPRUS"
Case "CZ"
strTemp = "CZECH REPUBLIC"
Case "DK"
strTemp = "DENMARK"
Case "DJ"
strTemp = "DJIBOUTI"
Case "DM"
strTemp = "DOMINICA"
Case "DO"
strTemp = "DOMINICAN REPUBLIC"
Case "EC"
strTemp = "ECUADOR"
Case "EG"
strTemp = "EGYPT"
Case "EU"
strTemp = "EUROPEAN UNION"
Case "SV"
strTemp = "EL SALVADOR"
Case "GQ"
strTemp = "EQUATORIAL GUINEA"
Case "ER"
strTemp = "ERITREA"
Case "EE"
strTemp = "ESTONIA"
Case "ET"
strTemp = "ETHIOPIA"
Case "FK"
strTemp = "FALKLAND ISLANDS (MALVINAS)"
Case "FO"
strTemp = "FAROE ISLANDS"
Case "FJ"
strTemp = "FIJI"
Case "FI"
strTemp = "FINLAND"
Case "FR"
strTemp = "FRANCE"
Case "GF"
strTemp = "FRENCH GUIANA"
Case "PF"
strTemp = "FRENCH POLYNESIA"
Case "TF"
strTemp = "FRENCH SOUTHERN TERRITORIES"
Case "GA"
strTemp = "GABON"
Case "GM"
strTemp = "GAMBIA"
Case "GE"
strTemp = "GEORGIA"
Case "DE"
strTemp = "GERMANY"
Case "GH"
strTemp = "GHANA"
Case "GI"
strTemp = "GIBRALTAR"
Case "GR"
strTemp = "GREECE"
Case "GL"
strTemp = "GREENLAND"
Case "GD"
strTemp = "GRENADA"
Case "GP"
strTemp = "GUADELOUPE"
Case "GU"
strTemp = "GUAM"
Case "GT"
strTemp = "GUATEMALA"
Case "GN"
strTemp = "GUINEA"
Case "GW"
strTemp = "GUINEA-BISSAU"
Case "GY"
strTemp = "GUYANA"
Case "HT"
strTemp = "HAITI"
Case "HM"
strTemp = "HEARD ISLAND AND MCDONALD ISLANDS"
Case "VA"
strTemp = "HOLY SEE (VATICAN CITY STATE)"
Case "HN"
strTemp = "HONDURAS"
Case "HK"
strTemp = "HONG KONG"
Case "HU"
strTemp = "HUNGARY"
Case "IS"
strTemp = "ICELAND"
Case "IN"
strTemp = "INDIA"
Case "ID"
strTemp = "INDONESIA"
Case "IR"
strTemp = "IRAN, ISLAMIC REPUBLIC OF"
Case "IQ"
strTemp = "IRAQ"
Case "IE"
strTemp = "IRELAND"
Case "IL"
strTemp = "ISRAEL"
Case "IT"
strTemp = "ITALY"
Case "JM"
strTemp = "JAMAICA"
Case "JP"
strTemp = "JAPAN"
Case "JO"
strTemp = "JORDAN"
Case "KZ"
strTemp = "KAZAKHSTAN"
Case "KE"
strTemp = "KENYA"
Case "KI"
strTemp = "KIRIBATI"
Case "KP"
strTemp = "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF"
Case "KR"
strTemp = "KOREA, REPUBLIC OF"
Case "KW"
strTemp = "KUWAIT"
Case "KG"
strTemp = "KYRGYZSTAN"
Case "LA"
strTemp = "LAO PEOPLE'S DEMOCRATIC REPUBLIC"
Case "LV"
strTemp = "LATVIA"
Case "LB"
strTemp = "LEBANON"
Case "LS"
strTemp = "LESOTHO"
Case "LR"
strTemp = "LIBERIA"
Case "LY"
strTemp = "LIBYAN ARAB JAMAHIRIYA"
Case "LI"
strTemp = "LIECHTENSTEIN"
Case "LT"
strTemp = "LITHUANIA"
Case "LU"
strTemp = "LUXEMBOURG"
Case "MO"
strTemp = "MACAO"
Case "MK"
strTemp = "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF"
Case "MG"
strTemp = "MADAGASCAR"
Case "MW"
strTemp = "MALAWI"
Case "MY"
strTemp = "MALAYSIA"
Case "MV"
strTemp = "MALDIVES"
Case "ML"
strTemp = "MALI"
Case "MT"
strTemp = "MALTA"
Case "MH"
strTemp = "MARSHALL ISLANDS"
Case "MQ"
strTemp = "MARTINIQUE"
Case "MR"
strTemp = "MAURITANIA"
Case "MU"
strTemp = "MAURITIUS"
Case "YT"
strTemp = "MAYOTTE"
Case "MX"
strTemp = "MEXICO"
Case "FM"
strTemp = "MICRONESIA, FEDERATED STATES OF"
Case "MD"
strTemp = "MOLDOVA, REPUBLIC OF"
Case "MC"
strTemp = "MONACO"
Case "MN"
strTemp = "MONGOLIA"
Case "MS"
strTemp = "MONTSERRAT"
Case "MA"
strTemp = "MOROCCO"
Case "MZ"
strTemp = "MOZAMBIQUE"
Case "MM"
strTemp = "MYANMAR"
Case "NA"
strTemp = "NAMIBIA"
Case "NR"
strTemp = "NAURU"
Case "NP"
strTemp = "NEPAL"
Case "NL"
strTemp = "NETHERLANDS"
Case "AN"
strTemp = "NETHERLANDS ANTILLES"
Case "NC"
strTemp = "NEW CALEDONIA"
Case "NZ"
strTemp = "NEW ZEALAND"
Case "NI"
strTemp = "NICARAGUA"
Case "NE"
strTemp = "NIGER"
Case "NG"
strTemp = "NIGERIA"
Case "NU"
strTemp = "NIUE"
Case "NF"
strTemp = "NORFOLK ISLAND"
Case "MP"
strTemp = "NORTHERN MARIANA ISLANDS"
Case "NO"
strTemp = "NORWAY"
Case "OM"
strTemp = "OMAN"
Case "PK"
strTemp = "PAKISTAN"
Case "PW"
strTemp = "PALAU"
Case "PS"
strTemp = "PALESTINIAN TERRITORY, OCCUPIED"
Case "PA"
strTemp = "PANAMA"
Case "PG"
strTemp = "PAPUA NEW GUINEA"
Case "PY"
strTemp = "PARAGUAY"
Case "PE"
strTemp = "PERU"
Case "PH"
strTemp = "PHILIPPINES"
Case "PN"
strTemp = "PITCAIRN"
Case "PL"
strTemp = "POLAND"
Case "PT"
strTemp = "PORTUGAL"
Case "PR"
strTemp = "PUERTO RICO"
Case "QA"
strTemp = "QATAR"
Case "RE"
strTemp = "REUNION"
Case "RO"
strTemp = "ROMANIA"
Case "RU"
strTemp = "RUSSIAN FEDERATION"
Case "RW"
strTemp = "RWANDA"
Case "SH"
strTemp = "SAINT HELENA"
Case "KN"
strTemp = "SAINT KITTS AND NEVIS"
Case "LC"
strTemp = "SAINT LUCIA"
Case "PM"
strTemp = "SAINT PIERRE AND MIQUELON"
Case "VC"
strTemp = "SAINT VINCENT AND THE GRENADINES"
Case "WS"
strTemp = "SAMOA"
Case "SM"
strTemp = "SAN MARINO"
Case "ST"
strTemp = "SAO TOME AND PRINCIPE"
Case "SA"
strTemp = "SAUDI ARABIA"
Case "SN"
strTemp = "SENEGAL"
Case "CS"
strTemp = "SERBIA AND MONTENEGRO"
Case "SC"
strTemp = "SEYCHELLES"
Case "SL"
strTemp = "SIERRA LEONE"
Case "SG"
strTemp = "SINGAPORE"
Case "SK"
strTemp = "SLOVAKIA"
Case "SI"
strTemp = "SLOVENIA"
Case "SB"
strTemp = "SOLOMON ISLANDS"
Case "SO"
strTemp = "SOMALIA"
Case "ZA"
strTemp = "SOUTH AFRICA"
Case "GS"
strTemp = "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS"
Case "ES"
strTemp = "SPAIN"
Case "LK"
strTemp = "SRI LANKA"
Case "SD"
strTemp = "SUDAN"
Case "SR"
strTemp = "SURINAME"
Case "SJ"
strTemp = "SVALBARD AND JAN MAYEN"
Case "SZ"
strTemp = "SWAZILAND"
Case "SE"
strTemp = "SWEDEN"
Case "CH"
strTemp = "SWITZERLAND"
Case "SY"
strTemp = "SYRIAN ARAB REPUBLIC"
Case "TW"
strTemp = "TAIWAN, REPUBLIC OF CHINA"
Case "TJ"
strTemp = "TAJIKISTAN"
Case "TZ"
strTemp = "TANZANIA, UNITED REPUBLIC OF"
Case "TH"
strTemp = "THAILAND"
Case "TL"
strTemp = "TIMOR-LESTE"
Case "TG"
strTemp = "TOGO"
Case "TK"
strTemp = "TOKELAU"
Case "TO"
strTemp = "TONGA"
Case "TT"
strTemp = "TRINIDAD AND TOBAGO"
Case "TN"
strTemp = "TUNISIA"
Case "TR"
strTemp = "TURKEY"
Case "TM"
strTemp = "TURKMENISTAN"
Case "TC"
strTemp = "TURKS AND CAICOS ISLANDS"
Case "TV"
strTemp = "TUVALU"
Case "UG"
strTemp = "UGANDA"
Case "UA"
strTemp = "UKRAINE"
Case "AE"
strTemp = "UNITED ARAB EMIRATES"
Case "GB","UK"
strTemp = "UNITED KINGDOM"
Case "US"
strTemp = "UNITED STATES"
Case "UM"
strTemp = "UNITED STATES MINOR OUTLYING ISLANDS"
Case "UY"
strTemp = "URUGUAY"
Case "UZ"
strTemp = "UZBEKISTAN"
Case "VU"
strTemp = "VANUATU"
Case "VE"
strTemp = "VENEZUELA"
Case "VN"
strTemp = "VIET NAM"
Case "VG"
strTemp = "VIRGIN ISLANDS, BRITISH"
Case "VI"
strTemp = "VIRGIN ISLANDS, U.S."
Case "WF"
strTemp = "WALLIS AND FUTUNA"
Case "EH"
strTemp = "WESTERN SAHARA"
Case "YE"
strTemp = "YEMEN"
Case "YU"
strTemp = "YUGOSLAVIA"
Case "ZM"
strTemp = "ZAMBIA"
Case "ZW"
strTemp = "ZIMBABWE"
Case "00"
strTemp = "PRIVATE"
Case Else
strTemp = strCode
End Select
ConvertCountryCode = strTemp
End Function
Private Function ConvertToLanguageName(strLanguage)
Dim strTemp, strLanguageAbbrev
If InStr(strLanguage, ",") > 0 Then
strLanguageAbbrev=Trim(Left(strLanguage, InStr(strLanguage, ",")-1))
Else
strLanguageAbbrev=Trim(strLanguage)
End If
If InStr(strLanguageAbbrev, ";") > 0 Then
strLanguageAbbrev=Trim(Left(strLanguage, InStr(strLanguage, ";")-1))
End If
Select Case LCase(strLanguageAbbrev)
Case "af"
strTemp = "Afrikaans"
Case "sq"
strTemp = "Albanian"
Case "ar"
strTemp = "Arabic"
Case "ar-sa"
strTemp = "Arabic (Saudi Arabia)"
Case "ar-iq"
strTemp = "Arabic (Iraq)"
Case "ar-eg"
strTemp = "Arabic (Egypt)"
Case "ar-ly"
strTemp = "Arabic (Libya)"
Case "ar-dz"
strTemp = "Arabic (Algeria)"
Case "ar-ma"
strTemp = "Arabic (Morocco)"
Case "ar-tn"
strTemp = "Arabic (Tunisia)"
Case "ar-om"
strTemp = "Arabic (Oman)"
Case "ar-ye"
strTemp = "Arabic (Yemen)"
Case "ar-sy"
strTemp = "Arabic (Syria)"
Case "ar-jo"
strTemp = "Arabic (Jordan)"
Case "ar-lb"
strTemp = "Arabic (Lebanon)"
Case "ar-kw"
strTemp = "Arabic (Kuwait)"
Case "ar-ae"
strTemp = "Arabic (U.A.E.)"
Case "ar-bh"
strTemp = "Arabic (Bahrain)"
Case "ar-qa"
strTemp = "Arabic (Qatar)"
Case "eu"
strTemp = "Basque"
Case "bg"
strTemp = "Bulgarian"
Case "be"
strTemp = "Belarusian"
Case "ca"
strTemp = "Catalan"
Case "zh-tw"
strTemp = "Chinese (Taiwan)"
Case "zh-cn"
strTemp = "Chinese (PRC)"
Case "zh-hk"
strTemp = "Chinese (Hong Kong)"
Case "zh-sg"
strTemp = "Chinese (Singapore)"
Case "zh"
strTemp = "Chinese"
Case "hr"
strTemp = "Croatian"
Case "cs"
strTemp = "Czech"
Case "da"
strTemp = "Danish"
Case "nl"
strTemp = "Dutch (Standard)"
Case "nl-be"
strTemp = "Dutch (Belgian)"
Case "en"
strTemp = "English"
Case "en-us"
strTemp = "English (United States)"
Case "en-gb"
strTemp = "English (British)"
Case "en-au"
strTemp = "English (Australian)"
Case "en-ca"
strTemp = "English (Canadian)"
Case "en-nz"
strTemp = "English (New Zealand)"
Case "en-ie"
strTemp = "English (Ireland)"
Case "en-za"
strTemp = "English (South Africa)"
Case "en-jm"
strTemp = "English (Jamaica)"
Case "en"
strTemp = "English (Caribbean)"
Case "en-bz"
strTemp = "English (Belize)"
Case "en-tt"
strTemp = "English (Trinidad)"
Case "et"
strTemp = "Estonian"
Case "fo"
strTemp = "Faeroese"
Case "fa"
strTemp = "Farsi"
Case "fi"
strTemp = "Finnish"
Case "fr", "fr-fr"
strTemp = "French (Standard)"
Case "fr-be"
strTemp = "French (Belgian)"
Case "fr-ca"
strTemp = "French (Canadian)"
Case "fr-ch"
strTemp = "French (Swiss)"
Case "fr-lu"
strTemp = "French (Luxembourg)"
Case "mk"
strTemp = "FYRO Macedonian"
Case "gd"
strTemp = "Gaelic (Scots)"
Case "gd-ie"
strTemp = "Gaelic (Irish)"
Case "de"
strTemp = "German (Standard)"
Case "de-ch"
strTemp = "German (Swiss)"
Case "de-at"
strTemp = "German (Austrian)"
Case "de-lu"
strTemp = "German (Luxembourg)"
Case "de-li"
strTemp = "German (Liechtenstein)"
Case "e", "el"
strTemp = "Greek"
Case "he"
strTemp = "Hebrew"
Case "hi"
strTemp = "Hindi"
Case "hu"
strTemp = "Hungarian"
Case "is"
strTemp = "Icelandic"
Case "id"
strTemp = "Indonesian"
Case "it"
strTemp = "Italian (Standard)"
Case "it-ch"
strTemp = "Italian (Swiss)"
Case "it-it"
strTemp = "Italian"
Case "ja"
strTemp = "Japanese"
Case "ko"
strTemp = "Korean"
Case "ko"
strTemp = "Korean (Johab)"
Case "lv"
strTemp = "Latvian"
Case "lt"
strTemp = "Lithuanian"
Case "ms"
strTemp = "Malaysian"
Case "mt"
strTemp = "Maltese"
Case "no"
strTemp = "Norwegian (Bokmal)"
Case "no"
strTemp = "Norwegian (Nynorsk)"
Case "pl"
strTemp = "Polish"
Case "pt-br"
strTemp = "Portuguese (Brazil)"
Case "pt"
strTemp = "Portuguese (Portugal)"
Case "rm"
strTemp = "Rhaeto-Romanic"
Case "ro"
strTemp = "Romanian"
Case "ro-mo"
strTemp = "Romanian (Moldavia)"
Case "ru"
strTemp = "Russian"
Case "ru-mo"
strTemp = "Russian (Moldavia)"
Case "sz"
strTemp = "Sami (Lappish)"
Case "sr"
strTemp = "Serbian (Cyrillic)"
Case "sr"
strTemp = "Serbian (Latin)"
Case "sk"
strTemp = "Slovak"
Case "s", "sl"
strTemp = "Slovenian"
Case "sb"
strTemp = "Sorbian"
Case "es", "es-es"
strTemp = "Spanish (Spain - Traditional Sort)"
Case "es-mx"
strTemp = "Spanish (Mexican)"
Case "es-gt"
strTemp = "Spanish (Guatemala)"
Case "es-cr"
strTemp = "Spanish (Costa Rica)"
Case "es-pa"
strTemp = "Spanish (Panama)"
Case "es-do"
strTemp = "Spanish (Dominican Republic)"
Case "es-ve"
strTemp = "Spanish (Venezuela)"
Case "es-co"
strTemp = "Spanish (Colombia)"
Case "es-pe"
strTemp = "Spanish (Peru)"
Case "es-ar"
strTemp = "Spanish (Argentina)"
Case "es-ec"
strTemp = "Spanish (Ecuador)"
Case "es-cl"
strTemp = "Spanish (Chile)"
Case "es-uy"
strTemp = "Spanish (Uruguay)"
Case "es-py"
strTemp = "Spanish (Paraguay)"
Case "es-bo"
strTemp = "Spanish (Bolivia)"
Case "es-sv"
strTemp = "Spanish (El Salvador)"
Case "es-hn"
strTemp = "Spanish (Honduras)"
Case "es-ni"
strTemp = "Spanish (Nicaragua)"
Case "es-pr"
strTemp = "Spanish (Puerto Rico)"
Case "sx"
strTemp = "Sutu"
Case "sv"
strTemp = "Swedish"
Case "sv-fi"
strTemp = "Swedish (Finland)"
Case "th"
strTemp = "Thai"
Case "ts"
strTemp = "Tsonga"
Case "tn"
strTemp = "Tswana"
Case "tr"
strTemp = "Turkish"
Case "uk"
strTemp = "Ukrainian"
Case "ur"
strTemp = "Urdu"
Case "ve"
strTemp = "Venda"
Case "vi"
strTemp = "Vietnamese"
Case "xh"
strTemp = "Xhosa"
Case "ji"
strTemp = "Yiddish"
Case "zu"
strTemp = "Zulu"
Case Else
strTemp = strLanguageAbbrev
End Select
ConvertToLanguageName = strTemp
End Function
End Class
%> |