<% Option Explicit %> <% Dim Cost, Tax, Total Cost = 40 Tax = 2 Total = Cost + Tax %> <%=Total%> <% Dim ftsize ftsize = 5 %> > All Creatures, big and small...

<% Dim First, Last, Whole First = "Bill" Last = "Gates" Whole = First + Last %> <% =whole%> <% Dim CurrentDate CurrentDate = Date %> The current date is <% =CurrentDate %>.

<% Dim ThisDay ThisDay = Weekday(Date) %> It is day number <% =ThisDay %>.

<% Dim RandNum Randomize RandNum = Int(Rnd * 6) +1 %> <% =RandNum %> <% Dim BigString, FindString, Position BigString = "I do not like green eggs and ham." FindString = "eggs" Position = InStr(BigString, FindString) %> <% =Date %> <% =Time %>

<% =Now %>

<% =WeekdayName(Weekday(Date)) %> <% Dim Temperature, Boiling Temperature = 45 %> The water is heated for 5 minutes.

<% If Temperature = 220 Then Boiling = True %> The water is boiling!

<% End If %> Then the stew is done.

<% Dim MyString, MyLength MyString = "Butter side down" MyLength = Len(MyString) %> <% =MyLength%> <% Dim Test Test = String(7,"!") %> <% =Test%>

<% Dim Test1 Test1 = Left("abcdefghijklmnop", 10) %> <% =Test1%>

<% =WeekdayName(Weekday(Date)) %> 1