CuteFTP 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

Once the connect button has been clicked a connection bar will appear just below. There are three pieces of information that need to be entered here: the host (domain), the username, and the password for the hosting account.

Also note that there is now a second connect button labeled with a lightning bolt. It appears on the connection bar just after the hosting account settings. Once the settings have been filled in this button will become active. To connect click this button.

To continue this tutorial click the new connection 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 %>

Ark Webs Family Banner Exchange

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