Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
<%
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
%>