
<html>

  <script language="VB" runat="server">

      Sub Page_Load(Sender As Object, E As EventArgs)
      
          If Not (Page.IsPostBack)
            ViewState("Referer") = Request.Headers("Referer")

            BackColor.Value = CStr(Session("BackColor"))
            ForeColor.Value = CStr(Session("ForeColor"))
            LinkColor.Value = CStr(Session("LinkColor"))
            FontSize.Value = CStr(Session("FontSize"))
            FontName.Value = CStr(Session("FontName"))
          End If
      End Sub

      Sub Submit_Click(Sender As Object, E As EventArgs)
      
        Session("BackColor") = BackColor.Value
        Session("ForeColor") = ForeColor.Value
        Session("LinkColor") = LinkColor.Value
        Session("FontSize")  = FontSize.Value
        Session("FontName")  = FontName.Value
        
        If Not ViewState("Referer") = Nothing Then
          Response.Redirect(CStr(ViewState("Referer")))
        End If
      End Sub

      Sub Cancel_Click(Sender As Object, E As EventArgs)
        If Not ViewState("Referer") = Nothing Then
          Response.Redirect(CStr(ViewState("Referer")))
        End If
      End Sub

      Function GetStyle(Key As String) As String
        Return Server.HtmlEncode(CStr(Session(Key)))
      End Function

  </script>

  <style>

    body {
      font: <%=GetStyle("FontSize")%> <%=GetStyle("FontName")%>;
      background-color: <%=GetStyle("BackColor")%>;
    }

    table {
      font: <%=GetStyle("FontSize")%> <%=GetStyle("FontName")%>;
      background-color: <%=GetStyle("BackColor")%>;
      foreground-color: <%=GetStyle("ForeColor")%>
    }

    a { color: <%=GetStyle("LinkColor")%> }

  </style>

  <body style="color:<%=GetStyle("ForeColor")%>"> 

    <form runat="server">

    <h3><font face="Verdana">Customize This Page</font></h3>

    <b>Select Your Preferences: </b><p>

    <table style="color:<%=GetStyle("ForeColor")%>">
      <tr>
        <td>Background Color:</td>
        <td>
          <select id="BackColor" runat="server">
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>blue</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>black</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>Foreground Color:</td>
        <td>
          <select id="ForeColor" runat="server">
            <option>black</option>
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>blue</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>Hyperlink Color:</td>
        <td>
          <select id="LinkColor" runat="server">
            <option>blue</option>
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>black</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>Font Size:</td>
        <td>
          <select id="FontSize" runat="server">
            <option>8pt</option>
            <option>10pt</option>
            <option>12pt</option>
            <option>14pt</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>Font Name:</td>
        <td>
          <select id="FontName" runat="server">
            <option>verdana</option>
            <option>tahoma</option>
            <option>arial</option>
            <option>times</option>
          </select>
        </td>
      </tr>
    </table>

    <p>

    <input type="submit" OnServerClick="Cancel_Click" Value="Cancel" runat="server"/>
    <input type="submit" OnServerClick="Submit_Click" Value="Submit" runat="server"/>

    </form>

  </body>
</html>
