<% Option Explicit %> <% Dim blnChatting %> <% blnChatting = chatChatHappening() If blnChatting Then %>
<% End If ' ' Application("txtSchedule") gets set in the moderator ' program UpdateSchedule.asp. If the application restarts ' then this value will be blank so first person to hit this ' page will reload it. ' If Len(Application("txtSchedule")) = 0 Then Call zaazLoadDictionary("CHATSCHED") Call zaazSetAppVar("txtSchedule",zaazGetDictionary("CHATSCHED")) Call zaazClearDictionary("CHATSCHED") End If %>

<%= Application("txtSchedule") %>

---

<% If blnChatting Then %> <% Else %> <% End If %>

<% Call krSetFont("") %>Screen Name:
	<% Call krSetFont("") %> Would you like us to notify you of upcoming Ken Roberts Company Chats? Just enter your e-mail address below and click on the button that says "Keep Me Informed!"
<% Call krSetFont("") %>EMail Address:

<% If blnChatting Then %>

<% Call krSetFont("") %>Do you want to be notified of upcoming chat events?	<% Call krSetFont("") %>     Yes No
<% Call krSetFont("") %>Do you want to receive an email when the archive of this chat is available?	<% Call krSetFont("") %>     Yes No

<% End If %>
<% If blnChatting Then %> <% Else %> <% End If %>

---

View the chat archives

---

<% Call krSetFont("") %> Note: If you're currently on The Ken Roberts Company Chat Mailing list, and you would like to have your name removed, enter your e-mail address and click on the "Remove" button.