| Button Problems!
Unfortunately, a problem between Microsoft and Sun has caused a difficulty
such that Java Virtual Machine (JVM) code is no longer being distributed
with Internet Explorer or Windows. This website utilizes hover buttons
made by FrontPage which require your browser to use JVM. Your problem
will be solved by downloading JVM. You can download the Sun version of
JVM at the following site:
http://java.com/en/download/manual.jsp
|
<%
Dim strThreatLevel, strBlackOnColor, strColorOnBlack
strThreatLevel = Application("ThreatLevel")
Select Case strThreatLevel
Case ""
strThreatLevel = "Yellow"
Application("ThreatLevel") = strThreatLevel
strBlackOnColor = "buttons/ThreatLevelOrangeBlackOnOrange.gif"
strColorOnBlack = "buttons/ThreatLevelOrangeOrangeOnBlack.gif"
Case "Red"
strBlackOnColor = "buttons/ThreatLevelRedBlackOnRed.gif"
strColorOnBlack = "buttons/ThreatLevelRedRedOnBlack.gif"
Case "Orange"
strBlackOnColor = "buttons/ThreatLevelOrangeBlackOnOrange.gif"
strColorOnBlack = "buttons/ThreatLevelOrangeOrangeOnBlack.gif"
Case "Yellow"
strBlackOnColor = "buttons/ThreatLevelYellowBlackOnYellow.gif"
strColorOnBlack = "buttons/ThreatLevelYellowYellowOnBlack.gif"
Case "Blue"
strBlackOnColor = "buttons/ThreatLevelBlueYellowOnBlue.gif"
strColorOnBlack = "buttons/ThreatLevelBlueBlueOnYellow.gif"
Case Else
strBlackOnColor = "buttons/ThreatLevelYellowBlackOnYellow.gif"
strColorOnBlack = "buttons/ThreatLevelYellowYellowOnBlack.gif"
End Select
Dim strFirstParagraph
strFirstParagraph = Application("FirstParagraph")
If strFirstParagraph = "" Then
strFirstParagraph = "On Friday, January 9, the nation’s threat level was lowered from high " & _
"risk (“orange”) to elevated risk (“yellow”), the third highest level of the Homeland Security " & _
"Advisory System. "
Application("FirstParagraph") = strFirstParagraph
End If
%>
|