<%
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 TodayMonth<=4) 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
%>
<%=Session("HeaderStats")%>
<% If Instr(PageName,"/start.asp") > 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/testimony.asp") > 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/contribute.asp") > 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/support/") > 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/portfolio.asp") > 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/default.asp") > 0 And Instr(PageName,"/support/") = 0 Then %>
<% Else %>
<% End If %>
<% If Instr(PageName,"/default.asp") > 0 And Instr(PageName,"/support/") = 0 Then %>
<% ElseIf Instr(PageName,"/support/ministry.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/hosting.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/domains.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/domainnameregs.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/publishing.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/email.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/asp.asp") > 0 Or Instr(PageName,"/support/php.asp") > 0 Or Instr(PageName,"/support/database.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/portfolio.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/banners.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/news.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/contribute.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/support/") > 0 And Instr(PageName,"/default.asp") = 0 Then %>
<% ElseIf Instr(PageName,"/testimony.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/start.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/strategies.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/colors.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/awards.asp") > 0 Then %>
<% ElseIf Instr(PageName,"/docs.asp") > 0 Then %>
<% Else %>
<% End If %>
Donate money to help other
Christians share their
testimony with the world.
This is the initial screen of Netscape
Composer and is the
environment in which users of Composer design and build web
sites. Once the site has been constructed it must be saved before
publication. This is accomplished either by clicking the 'Save'
button or through the 'File' dropdown menu.
To continue this tutorial click 'Save' in the screenshot below.
<%
Dim PageNum
If Instr(PageName,"/default.asp") > 0 Then
PageNum = "01"
ElseIf Instr(PageName,"/portfolio.asp") > 0 Then
PageNum = "02"
ElseIf Instr(PageName,"/volunteer.asp") > 0 Then
PageNum = "03"
ElseIf Instr(PageName,"/contribute.asp") > 0 Then
PageNum = "04"
ElseIf Instr(PageName,"/testimony.asp") > 0 Then
PageNum = "05"
ElseIf Instr(PageName,"/start.asp") > 0 Then
PageNum = "06"
Else
PageNum = "07"
End If
%>
