<%
Option Explicit
Dim BackgroundColor
Dim LargeFontColor
Dim SmallFontColor
Dim LargeFont
Dim SmallFont
If IsEmpty(Request.Form("Save")) Then
If not len(Request.Cookies("Prefs")("BackgroundColor")) > 0 Then
   Response.Cookies("Prefs")("BackgroundColor") = "#FFFFFF"
   BackgroundColor = "#FFFFFF"
   Response.Cookies("Prefs")("LargeFontColor") = "#000000"
   LargeFontColor = "#000000"
   Response.Cookies("Prefs")("SmallFontColor") = "#000000"
   SmallFontColor = "#000000"
   Response.Cookies("Prefs")("LargeFont") = "Arial,Helvetica,Univers,Zurich BT"
   LargeFont = "Arial,Helvetica,Univers,Zurich BT"
   Response.Cookies("Prefs")("SmallFont") = "Times New Roman,Times,Times NewRoman"
   SmallFont = "Times New Roman,Times,Times NewRoman"
   Response.Cookies("Prefs").Expires = "2/2/2002"
Else
   BackgroundColor =Request.Cookies("Prefs")("BackgroundColor")
   LargeFontColor = Request.Cookies("Prefs")("LargeFontColor")
   SmallFontColor = Request.Cookies("Prefs")("SmallFontColor")
   LargeFont = Request.Cookies("Prefs")("LargeFont")
   SmallFont = Request.Cookies("Prefs")("SmallFont")
End If
else
 Response.Cookies("Prefs")("BackgroundColor") = Request.Form("BackgroundColor")
 BackgroundColor = Request.Form("BackgroundColor")
 Response.Cookies("Prefs")("LargeFontColor") = Request.Form("LargeFontColor")
 LargeFontColor = Request.Form("LargeFontColor")
 Response.Cookies("Prefs")("SmallFontColor") = Request.Form("SmallFontColor")
 SmallFontColor = Request.Form("SmallFontColor")
 Response.Cookies("Prefs")("LargeFont") = Request.Form("LargeFont")
 LargeFont = Request.Form("LargeFont")
 Response.Cookies("Prefs")("SmallFont") = Request.Form("SmallFont")
 SmallFont = Request.Form("SmallFont")
 Response.Cookies("Prefs").Expires = "2/2/2002"
end if   
%>
