An incredible javascript event calendar, either a javascript calendar or an xml calendar.

Interactive Example Source Code

This source code does not include the Data Access functions for the Microsoft Access database. It also doesn't include the code to actually perform the the write of the scEvent.js. The data access method are in a class, while the file write is in a struct. It is assumed that you already know how to accomplish these tasks. Instead, the source centers around adding the event to the database and then generating as scEvent.js from the database.

<%@ Page language="c#" ValidateRequest="false" %>
<%@ Register TagPrefix="uc" TagName="footer" Src="template/footer.ascx" %>
<%@ Register TagPrefix="uc" TagName="header" Src="template/header.ascx" %>

private void Page_Load(object sender, System.EventArgs e)
{
	if (!IsPostBack)
	{
		// not a re-post
		initialize();
	}
	else
	{
		// re-post of the page with data
	}
}

private void initialize()
{
	cboStyle.Items.Add("");
	cboStyle.Items.Add("scEventRed");
	cboStyle.Items.Add("scEventOrange");
	cboStyle.Items.Add("scEventYellow");
	cboStyle.Items.Add("scEventGreen");
	cboStyle.Items.Add("scEventBlue");
	cboStyle.Items.Add("scEventPurple");
	cboStyle.Items.Add("scEventBlack");
}

private bool ValidatePage()
{
	string REGEX_NUMERIC = "^-{0,1}\\d+$";
	string REGEX_ALPHANUMERIC = "^[a-zA-Z0-9 ]+$";	
	string REGEX_URL = "(http:\\/\\/([\\w.]+\\/?)\\S*)";

System.Collections.Generic.List<string> errorMsgs = new System.Collections.Generic.List<string>();

// validate the MONTH
	if (RegexTest(txtMonth.Text, REGEX_NUMERIC) == false)
		errorMsgs.Add("The Month is invalid.");
	else
		if (txtMonth.Text.Length > 0 && int.Parse(txtMonth.Text) < 0  && int.Parse(txtMonth.Text) > 12) 
			errorMsgs.Add("The Month is invalid.");

// validate the DAY
	if (RegexTest(txtDay.Text, REGEX_NUMERIC) == false)
		errorMsgs.Add("The Day is invalid.");
	else
		if (txtDay.Text.Length > 0 && int.Parse(txtDay.Text) < 0  && int.Parse(txtDay.Text) > 31) 
			errorMsgs.Add("The Day is invalid.");

// validate the YEAR
	if (RegexTest(txtYear.Text, REGEX_NUMERIC) == false)
		errorMsgs.Add("The Year is invalid.");
	else
		if (txtYear.Text.Length > 0 && txtYear.Text.Length != 4) 
			errorMsgs.Add("The Year is invalid.");

// validate entire DATE
	if (txtMonth.Text.Length > 0 && txtDay.Text.Length > 0 && txtYear.Text.Length > 0)
	{
		string date = txtMonth.Text + "/" + txtDay.Text + "/" + txtYear.Text;
		if (IsDate(date)==false)
			errorMsgs.Add("The Date entered is invalid.");
	}

// validate the Event Text
	if (txtEventText.Text.Length == 0)
		errorMsgs.Add("The Event Text entered is invalid.");
	else
		if (RegexTest(txtEventText.Text, REGEX_ALPHANUMERIC) == false)
			errorMsgs.Add("The Event Text accepts numbers and letters only, no special characters (in the real version you can use HTML in the Event Text).");

// validate the Popup Link
	if (txtPopupLink.Text.Length != 0)
		if (RegexTest(txtPopupLink.Text, REGEX_URL) == false)
			errorMsgs.Add("The Popup Link accepts fully qualified URLs only (ex.: http://www.yahoo.com).");

// validate the Tooltip
	if (txtToolTip.Text.Length != 0)
		if (RegexTest(txtToolTip.Text, REGEX_ALPHANUMERIC) == false)
			errorMsgs.Add("The Tooltip accepts numbers and letters only.");

foreach(string msg in errorMsgs)
		AddValidationMessage(msg);
	
	if (errorMsgs.Count != 0)
		return false;

return true;
}

private bool RegexTest(string data, string pattern)
{
	Regex r = new Regex(pattern);
	Match m = r.Match(data);
	if (m.Success) 
		return true;
	else
		return false;
}

private void btnSubmit_OnClick(Object sender, EventArgs e)
{
	Page.Validate();
	if (Page.IsValid)
	{	
		if (ValidatePage())
		{
			InsertEvent();
			GenerateFile();
		}
	}		
}

private void InsertEvent()
{

cAccessDB DB = new cAccessDB();
	DB.VirtualDBPath = m_DBFile;

string SQL = "INSERT INTO Event (M, D, Y, EventText, PopupLink, Style, ToolTip, Script)";
	SQL += " VALUES (";
	SQL += ToNull(txtMonth.Text, true);
	SQL += ", " + ToNull(txtDay.Text, true);
	SQL += ", " + ToNull(txtYear.Text, true);
	SQL += ", " + ToNull(txtEventText.Text, false);
	SQL += ", " + ToNull(txtPopupLink.Text, false);
	SQL += ", " + ToNull(cboStyle.SelectedItem.Value, false);
	SQL += ", " + ToNull(txtToolTip.Text, false);
	SQL += ", " + ToNull(txtScript.Text, false);
	SQL += " )";

DB.Execute(SQL);
}

private void GenerateFile()
{
	cAccessDB DB = new cAccessDB();
	DB.VirtualDBPath = m_DBFile;

StringBuilder sb = new StringBuilder();

string SQL = "SELECT * FROM Event";
	DataTable DataTbl = DB.Fetch(SQL);
	
	foreach(DataRow Row in DataTbl.Rows)
	{
		sb.Append("fscEvent(");

sb.Append(TranslateNull(Row, "M", true));
		sb.Append(", ");
		sb.Append(TranslateNull(Row, "D", true));
		sb.Append(", ");
		sb.Append(TranslateNull(Row, "Y", true));

sb.Append(", ");
		sb.Append(TranslateNull(Row, "EventText", false));

sb.Append(", ");
		sb.Append(TranslateNull(Row, "PopupLink", false));

sb.Append(", ");
		sb.Append(TranslateNull(Row, "Style", false));

sb.Append(", ");
		sb.Append(TranslateNull(Row, "ToolTip", false));

sb.Append(", ");
		sb.Append(TranslateNull(Row, "Script", false));

sb.Append(");");
		sb.Append("\r\n");
	}

string output = sb.ToString();
	if (output.Length > 0)
		GENERIC.SaveFile(Server.MapPath(m_outFile), sb.ToString());
}

private string TranslateNull(DataRow Row, string fieldName, bool isNumeric)
{
	string result = "null";
	if (Row[fieldName]!=null)
	{
		result = Row[fieldName].ToString();
		if (result == string.Empty)
			result = "null";
		else
		{
			if (!isNumeric)
				result = "'" + result + "'";
		}
	}

//Response.Write("<div style='background-color:#ffff00;'>");
//Response.Write("f:" + fieldName);
//Response.Write("\tv:" + Row[fieldName].ToString());
//Response.Write("\tr:" + result);
//Response.Write("</div>");

return result;
}

private string ToNull(string data, bool isNumeric)
{	
	string result = "NULL";
	if (data.Length > 0)
	{
		result = data;
		if (!isNumeric)
			result = "'" + result + "'";
	}
	return result;
}

private bool IsDate(string data)
{
	try
	{
		DateTime conv = DateTime.Parse(data);
		return true;
	}
	catch (Exception ex)
	{
		return false;
	}
}

/// <summary>
/// Adds the string message to page validation
/// </summary>
/// <param name="message"></param>
public void AddValidationMessage(string message)
{
	ValidationMessage vm = new ValidationMessage(message);
        this.Validators.Add(vm);
}
</script>

<uc:header runat="server" ID="uc_header" NAME="uc_header" />
<h2>Interactive Example</h2>

<p>
<b>The software does not include any method of administering events online</b>.  The calendar is
 entirely javascript, and javascript has the built in limitation that the language cannot
 read or write files from the server or the client.  Thus, a <b>pure javascript calendar
 cannot have an Event Administration page</b>.
</p>

<p>
However, if your host has server side scripting capabilities, you can create such an
 Administration page yourself.  Below is a working example of such a page written in
 CSharp ( C# ).  The <a href="ISource.aspx">source code is available</a> if
 you would like to get a copy.
</p>

<p>
The script is very simply.  When the Add Event button is clicked, the data is inserted into
 a table in a Microsoft Access database.  Immediately after a new scEvent.js is generated by
 writing the fscEvent call for each record to a file.  The page reloads, displaying the calendar
 which now reads the new scEvent.js file.  Not all methods are included in the <a href="ISource.aspx">source code</a>, but all the code specific to calendar functions is shown.
</p>

<asp:ValidationSummary runat="server" 
	DisplayMode="BulletList" 
	HeaderText="The following errors were found on the page:"
	Class="Error"	/>

<div id="UserForm" name="UserForm">
<table align="center" border="0" cellspacing="0" cellpadding="2">
	<tr>
		<td>Date</td>
		<td>
			<asp:TextBox id="txtMonth" runat="server" Size="2" MaxLength="2" />
			/<asp:TextBox id="txtDay"  runat="server" Size="2" MaxLength="2" />
			/<asp:TextBox id="txtYear" runat="server" Size="4" MaxLength="4" />
		</td>
	</tr>	
	<tr>
		<td>Event Text</td>
		<td><asp:TextBox id="txtEventText" runat="server" Size="40"/></td>
	</tr>	
	<tr>
		<td>Popup Link</td>
		<td><asp:TextBox id="txtPopupLink" runat="server" Size="40"/></td>
	</tr>	
	<tr>
		<td>Style</td>
		<td><asp:DropDownList id="cboStyle" runat="server" /></td>
	</tr>	
	<tr>
		<td>ToolTip</td>
		<td><asp:TextBox id="txtToolTip" runat="server" Size="40"/></td>
	</tr>	
		
	<tr>
		<td colspan="2" align="center">
		<div id="button" name="button">
			<asp:LinkButton id="btnSubmit" runat="server"
				 Text="Add Event"
				 CausesValidation="false"
				 OnClick="btnSubmit_OnClick"
 			/>
		</div>
		</td>
	</tr>	
</table>
</div>
</form>

<iframe id="scIFrame" name="PMfMuaWQNr1TNH4JLuWa" src="scthemes/iexample/scrptcal.aspx"
	scrolling="no" frameborder="0" width="730" height="2000">
</iframe>

<uc:footer runat="server" ID="uc_footer" NAME="uc_footer" />

This the script to create the Microsoft Access Database. There is only one table, the "Event" table. The script can be easily modified to work with any database.