<%
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 WS_FTP LE.
The program includes the settings for several anonymous FTP sites.
One of these accounts will display when the program is launched.
The settings for accounts are stored in profiles. To create a new
profile for a hosting account click the 'New' button in the upper right of
the dialogue box.
To continue with this tutorial click the 'New' button 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
%>
