CoffeeCup Tutorial

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

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

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

<% Else %>

<% End If %>

<% If Instr(PageName,"/default.asp") > 0 And Instr(PageName,"/support/") = 0 Then %>

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

Check Your Email

Email Address:

Password:

Email Administration

This dialogue box allows a person to enter the settings for a hosting account. The 'Name' field is arbitrary. Important fields are the hostname (domain), username, and password.

Notice the checkbox at the bottom. Those connecting through a firewall may need to check that box. Most likely this will not be necessary, so try it unchecked first and edit the settings later if a problem occurs. Click the 'Cool' button to continue this tutorial.

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