<% @LANGUAGE = "VBScript"%> <% Option Explicit Dim strBgColor, strFgColor, strFont If Request.form("bgcolor") = "" Then If Request.Cookies("usrPref")("bgColor") = "" Then Response.Cookies("userPref")("bgColor") = "#ffffff" strBgColor = "#ffffff" Response.Cookies("userPref")("fgColor") = "#000000" strFgColor = "#000000" Response.Cookies("userPref")("font") = "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") = strBgColor 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" %>

Request and Response Object Cookie Example

Please select a background color:

Please select a foreground color:

Please select a font: