|
|
 <%=Session("HeaderStats")%> |
 |
|
<%
Dim PageName, LogoImage
Dim TodayDate, TodayMonth, TodayDay
PageName = LCase(Request.ServerVariables("SCRIPT_NAME"))
TodayDate = Date
TodayMonth = Month(TodayDate)
TodayDay = Day(TodayDate)
If TodayMonth=12 And TodayDay>10 Then
LogoImage = "/images/Logo_WT_Christmas.jpg"
ElseIf TodayMonth=3 And TodayDay>10 Then
LogoImage = "/images/Logo_WT_Easter.jpg"
Else
LogoImage = "/images/Logo_WT.gif"
End If
%>
<%
'Get statistics here
If Session("HeaderStats") = "" Then
Dim oConnHeader, oRSHeader, sSQLHeader
Dim NumOldSites, NumNewSites, NumTotalSites, NumOldCountries, NumNewCountries, NumTotalCountries
NumOldSites = 0
NumNewSites = 0
NumOldCountries = 0
NumNewCountries = 0
Set oConnHeader = Server.CreateObject("ADODB.Connection")
Set oRSHeader = Server.CreateObject("ADODB.Recordset")
oConnHeader.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=WitnessToday;Persist Security Info=True;User ID=sa;Password=dP4-m21"
oRSHeader.Open "SELECT DISTINCT [country-codes].code FROM [country-codes] INNER JOIN sites ON [country-codes].code = sites.owner_country ORDER BY [country-codes].code", oConnHeader
Do While Not oRSHeader.EOF
NumOldCountries = NumOldCountries + 1
If NumOldCountries = 1 Then
sSQLHeader = "("
End If
If NumOldCountries > 0 Then
sSQLHeader = sSQLHeader & "'" & oRSHeader(0).Value & "'"
End If
oRSHeader.MoveNext
If oRSHeader.EOF Then
sSQLHeader = sSQLHeader & ")"
Else
sSQLHeader = sSQLHeader & ","
End If
Loop
oRSHeader.Close
oConnHeader.Close
oConnHeader.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=WitnessToday;Persist Security Info=True;User ID=sa;Password=dP4-m21"
oRSHeader.Open "SELECT COUNT(*) FROM sites WHERE hide='N'", oConnHeader
If Not oRSHeader.EOF Then
NumOldSites = oRSHeader(0).Value
End If
oRSHeader.Close
oConnHeader.Close
oConnHeader.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=HelmDB;Persist Security Info=True;User ID=sa;Password=dP4-m21"
oRSHeader.Open "SELECT COUNT(*) FROM OnlineService WHERE (PlanTemplateId = 1)", oConnHeader
If Not oRSHeader.EOF Then
NumNewSites = oRSHeader(0).Value
End If
oRSHeader.Close
oConnHeader.Close
If sSQLHeader <> "" Then
oConnHeader.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=HelmDB;Persist Security Info=True;User ID=sa;Password=dP4-m21"
oRSHeader.Open "SELECT DISTINCT Account.CountryCode FROM Account INNER JOIN OnlineService ON Account.AccountId = OnlineService.AccountId WHERE (OnlineService.PlanTemplateId = 1) AND (Account.CountryCode NOT IN " & sSQLHeader & ")", oConnHeader
Do While Not oRSHeader.EOF
NumNewCountries = NumNewCountries + 1
oRSHeader.MoveNext
Loop
oRSHeader.Close
oConnHeader.Close
End If
Set oConnHeader = Nothing
Set oRSHeader = Nothing
NumTotalSites = NumOldSites + NumNewSites
NumTotalCountries = NumOldCountries + NumNewCountries
Session("HeaderStats") = "Currently hosting " & NumTotalSites & " sites in " & NumTotalCountries & " countries."
End If
%>
|
|
|
|
| ||||||||||||||||||||||||||
