<% @LANGUAGE = "VBScript"%>
<%
Option Explicit olor, strFont
If Request.form("bgcolor") = "" Then
If Request.Cookies("usrPref")("bgColor") = "ffffff"
strBgColor = "#ffffff"
Response.Cookies("userPref")("fgColor") = "Verdana,Courier New,Serif"
strFont = "Verdana,Courier New,Serif"
Else
strBgColor = Request.Cookies("userProf")("bgcolor")
strFgColor = Request.Cookies("userPref")("fgColor")
strFont = Request.Cookies("userPref")("font")
End If
Else
strBgColor = Request.Form("bgcolor")
Response.Cookies("userPref")("bgColor")
strFgColor = Request.Form("fgcolor")
Response.Cookies("userPref")("fgColor") = strFgColor
strFont = Request.Form("font")
Response.Cookies("userPref")("font") = strFont
End If
Response.Cookies("userPref").Expires = "12/31/2005"
%>
"COLOR="<%=strColor %>">
Request and Response Object Cookie Example