Show and Tell!

<% 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")%>

You will be his witness to all men of what you have seen and heard.

<% 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.

Check Your Email

Email Address:

Password:

Email Administration

Are you ready
for Show & Tell?

Note: If you are using a Macintosh, you must
use Internet Explorer 4.0; Netscape will not work!

Wait a minute or so, then click here if you can't see the red ball.

<% 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 %>

Ark Webs Family Banner Exchange

Donate money to help other Christians
share their testimony with
the entire world.