<% dim RSSETTINGS Set RSSETTINGS = Server.CreateObject("ADODB.Recordset") RSSETTINGS.Open "Settings", Conn, 2, 2 RSSETTINGS.Find "ID='" & 1 & "'" RSSETTINGS("Admin_ID") = request("Admin_ID") RSSETTINGS("Page_Title") = request("Page_Title") RSSETTINGS("Background_Color") = request("Background_Color") RSSETTINGS("Font_Color") = request("Font_Color") RSSETTINGS("Link_Color") = request("Link_Color") RSSETTINGS("Hover_Link_Color") = request("Hover_Link_Color") RSSETTINGS("Visited_Link_Color") = request("Visited_Link_Color") RSSETTINGS("Active_Link_Color") = request("Active_Link_Color") RSSETTINGS("Weekday_Font") = request("Weekday_Font") RSSETTINGS("Weekday_Font_Size") = request("Weekday_Font_Size") RSSETTINGS("Weekday_Font_Color") = request("Weekday_Font_Color") RSSETTINGS("Weekday_Background_Color") = request("Weekday_Background_Color") RSSETTINGS("Date_Font") = request("Date_Font") RSSETTINGS("Date_Font_Size") = request("Date_Font_Size") RSSETTINGS("Date_Font_Color") = request("Date_Font_Color") RSSETTINGS("Date_Background_Color") = request("Date_Background_Color") RSSETTINGS("Event_Font") = request("Event_Font") RSSETTINGS("Event_Font_Size") = request("Event_Font_Size") RSSETTINGS("Event_Font_Color") = request("Event_Font_Color") RSSETTINGS("Cell_Background_Color") = request("Cell_Background_Color") RSSETTINGS("Cell_Width") = request("Cell_Width") RSSETTINGS("Cell_Height") = request("Cell_Height") RSSETTINGS("Border_Size") = request("Border_Size") RSSETTINGS("Border_Color") = request("Border_Color") RSSETTINGS("Header") = request("Header") RSSETTINGS("Footer") = request("Footer") RSSETTINGS("Admin_Pass") = request("Admin_Pass") If (request("Abbreviate_Days") = "on") Then RSSETTINGS("Abbreviate_Days") = True Else RSSETTINGS("Abbreviate_Days") = False End If If (request("Abbreviate_Months") = "on") Then RSSETTINGS("Abbreviate_Months") = True Else RSSETTINGS("Abbreviate_Months") = False End If If (request("Event_Display") = "on") Then RSSETTINGS("Event_Display") = True Else RSSETTINGS("Event_Display") = False End If RSSETTINGS.update RSSETTINGS.close set RSSETTINGS = nothing %>

	Apna Calendar Manager
	Home  Add Event  View/Edit Events  Add Category  View Categories  Settings  Log Out		Settings The settings have been updated. << Return
	Apna Calendar Manager