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

<% 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 is the initial screen of CoffeeCup FTP. In order to connect, first add the settings for your server. This may be done through the 'Servers' dropdown menu or by clicking on the third button.

To continue this tutorial, click the third button in the screenshot below.

Webmaster Tools Central - A webmaster's directory of 1300+ tools and services to help build, promote, improve and maintain websites.

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