function _SOM_isDHTMLBrowser()
	{	
		if (typeof(this._isDHTMLBrowser) == 'undefined')
		{
			this._isDHTMLBrowser = false;
			var userAgent = String(Request.ServerVariables('HTTP_USER_AGENT'));
			if (userAgent.indexOf('MSIE 4.') != -1 ||
				userAgent.indexOf('MSIE 5.') != -1)
				this._isDHTMLBrowser = true;
		}
		return this._isDHTMLBrowser;
	}

	//*****************************************************************
	// function _SOM__dispatchGET()
	//	Dispatches methods invoked via an HTTP GET request.
	//*****************************************************************
	function _SOM__dispatchGET()
	{
		var methodname = Request.QueryString('_method').Item;

		var methodtype = Request.QueryString('_mtype').Item;
		if (methodtype == PAGE_EXECUTE)
		{
			// return if methodname is not provided
			if (methodname == '' || methodname == null)
				return false;
			if (this._vtableExecute != null && typeof(RSDispatch) == 'function')
			{
				this._bExecuteMethodInvoked = RSDispatch(this._vtableExecute,methodname);
				this._bEndPageProcessing = this._bExecuteMethodInvoked;
				return this._bExecuteMethodInvoked;
			}
			return false;
		}
		// default to show if methodname is not provided
		if (methodname == '' || methodname == null)
			methodname = 'show';
		// default to navigate if methodtype is not provided	
		if (methodtype != '' && methodtype != null && methodtype != PAGE_NAVIGATE)
			return false;
		if (this._vtableNavigate != null && typeof(this._vtableNavigate[methodname]) == 'function')
		{	// validate that function is part of this._vtableNavigate description
			// extract parameters and dispatch to this._vtableNavigate.methodname
			var params = '';
			var pcount = Request.QueryString('pcount').Item;
			if (pcount == '' || pcount == null) pcount = 0;
			// extract parameter values
			for (var i=0; i < pcount; i++)
			{
				var param = Request.QueryString('p'+i).Item;
				if (param == null)
					params += 'null';
				else
					params += 'Request.QueryString("p' + i + '").Item';
				if (i < pcount-1)
					params += ',';
			}
			var dispatch = 'this._vtableNavigate.' + methodname + '(' + params + ')';
			// validated against this._vtableNavigate, safe to eval on the server
			eval(dispatch);
			return true;
		}
		if (methodname == 'show')
			return true;
		return false;
	}

	//*****************************************************************
	// function _SOM__dispatchPOST()
	//	Dispatches methods invoked via an HTTP POST request.
	//*****************************************************************
	function _SOM__dispatchPOST()
	{
		var queryString = Request.Form('_method').Item;
		if (queryString == '' || queryString == null)
			return false;

		if (queryString.indexOf(this._location) != 0)
		{	// redirect to another page
			this._redirect = queryString;
			this._bEndPageProcessing = true;
			return true;
		}

		queryString += '&';
		var methodname = this._extractValue(queryString,'?_method');
		if (methodname == null)
			methodname = 'show';
		if (this._vtableNavigate != null && typeof(this._vtableNavigate[methodname]) == 'function')
		{	// validate that function is part of this._vtableNavigate description
			// extract parameters and dispatch to thisPage.Navigate.methodname
			var params = '';
			var pcount = this._extractValue(queryString,'pcount');
			if (pcount == null) pcount = 0;
			// extract parameter values
			for (var i=0; i < pcount; i++)
			{
				var param = this._extractValue(queryString,'p'+i);
				if (param == null)
					params += 'null';
				else
					params += 'unescape(this._extractValue(queryString,"p' + i + '"))';
				if (i < pcount-1)
					params += ',';
			}

			var dispatch = 'this._vtableNavigate.' + methodname + '(' + params + ')';
			// validated against this._vtableNavigate, safe to eval on the server
			eval(dispatch);
			return true;
		}
		if (methodname == 'show')
			return true;
		return false;
	}

	//*****************************************************************
	// function _SOM__buildURL(url,method,args)
	//	PRIVATE HELPER FUNCTION
	//	Create URL which represents call to given method.
	//*****************************************************************
	function _SOM__buildURL(url,method,args)
	{
		if (typeof(method) == 'string')
		{
			url += '?_method=' + method
			var params = '&pcount=0';
			if (typeof(args) != 'undefined' && args.length)
			{	// add parameters
				params = '&pcount=' + args.length 
				for (var i = 0; i < args.length; i++) 
				{
					var arg = args[i];
					params += '&p' + i + '=' + escape(arg);
				}
			}
			url += params;
		}
		return url;
	}

	//*****************************************************************
	// function _SOM__extractValue(s,name)
	//	PRIVATE HELPER FUNCTION
	//	Extracts the value of a name/value pair from the given string,
	//	if it conforms to the following format :  'name=value&'
	//*****************************************************************
	function _SOM__extractValue(s,name)
	{
		var chStart = s.indexOf(name + '=');
		if (chStart != -1)
		{
			chStart += name.length + 1;
			var chEnd = s.indexOf('&',chStart);
			if (chEnd == -1)
				chEnd = s.length + 1;
			return s.substring(chStart,chEnd);
		}
		return null;
	}

	//*****************************************************************
	// function _SOM__generateHiddenFields()
	//	PRIVATE HELPER FUNCTION
	//	Generates hidden fields for _method and all state that needs
	//	to be round-tripped to/from the client.
	//*****************************************************************
	function _SOM__generateHiddenFields()
	{
		var strHTML = '\n<' + 'INPUT type=hidden name="_method">\n';			
		this.persistState('thisPage',this._objState);
		if (this._objStateObjects != null)
		{	// output a hidden field for each state object
			for (var hiddenName in this._objStateObjects)
			{
				var objState = this._objStateObjects[hiddenName];
				var strState = '';
				for (var name in objState)
				{
					if (objState[name] != null)
					{
						if (strState != '') strState += '&';
						strState += name + '=' + escape(objState[name]);
					}
				}
				strHTML += '<' + 'INPUT type=hidden name="_' + hiddenName + '_state" value="' + strState + '">\n';
			}
		}
		Response.Write(strHTML);
	}

}	// end of _SOM_Object constructor function

// shared functions for handling databinding
function _SOM_getDataSource()
{	return this._objDataSource;		}

function _SOM_setDataSource(objDataSource)
{
	if (typeof(objDataSource) != 'object')
		return false;
		
	if ((this._objDataSource != null) && (this._strDataField != ''))
	{
		this._objDataSource.unadvise(this._rowEnterID);
		this._objDataSource.unadvise(this._beforeUpdateID);
	}					
	this._objDataSource = objDataSource;
	if ((this._objDataSource != null) && (this._strDataField != ''))
	{	
		this._rowEnterID = this._objDataSource.advise(RS_ONROWENTER, this.id + '._onrowenter(' + this._objDataSource.id + ', "' + this._strDataField + '");');
		this._beforeUpdateID = this._objDataSource.advise(RS_ONBEFOREUPDATE, this.id + '._onbeforeupdate(' + this._objDataSource.id + ', "' + this._strDataField + '");');
	}
	return true;
}
		
function _SOM_getDataField()
{	return this._strDataField;		}

function _SOM_setDataField(strDataField)
{	
	if ((this._objDataSource != null) && (this._strDataField != ''))
	{
		this._objDataSource.unadvise(this._rowEnterID);
		this._objDataSource.unadvise(this._beforeUpdateID);
	}
	this._strDataField = strDataField;
	if ((this._objDataSource != null) && (this._strDataField != ''))
	{
		this._rowEnterID = this._objDataSource.advise(RS_ONROWENTER, this.id + '._onrowenter(' + this._objDataSource.id + ', "' + this._strDataField + '");');
		this._beforeUpdateID = this._objDataSource.advise(RS_ONBEFOREUPDATE, this.id + '._onbeforeupdate(' + this._objDataSource.id + ', "' + this._strDataField + '");');
	}
	return true;
}

// ************************************************************************ 
// Microsoft Scripting Libary 
// Visual InterDev 6.0 EventManager Object for ASP
//
// Copyright 1998 Microsoft Corporation. All Rights Reserved.
// ************************************************************************ 
function CreateEventManager()
{
	return new _EventManager();
}

function _EventManager()
{
	if (typeof(_bEMPrototypeCalled) == 'undefined')
		_EM_Prototype();
	this._events = new Array;
	this._nLastAdviseID = 0;
}

function _EM_Prototype()
{	// public
	_EventManager.prototype.advise = _EM_advise;
	_EventManager.prototype.adviseDefaultHandler = _EM_adviseDefaultHandler;
	_EventManager.prototype.unadvise = _EM_unadvise;
	_EventManager.prototype.fireEvent = _EM_fireEvent;
	_EventManager.prototype.getEventCount = _EM_getEventCount;
	_EventManager.prototype.getEvent = _EM_getEvent;
	_EventManager.prototype.generateClientHandler = _EM_generateClientHandler;
	_EventManager.prototype.generateClientHandlers = _EM_generateClientHandlers;

	_bEMPrototypeCalled = 1;
	
	//scope implementation to _EM_Prototype function

	function _EM_Advisor()
	{
		this.funcToCall = 0;
		this.nAdviseID = 0;
		this.nPriority = 0;
	}

	function _EM_advise(strEvent,funcToCall,nPriority)
	{
		if ((typeof(strEvent) == 'string') && (strEvent != '') && 
			(typeof(funcToCall) != 'undefined'))
		{
			if (typeof(this._events[strEvent]) == 'undefined')
				this._events[strEvent] = new Array;

			var adviseList = this._events[strEvent];
			var objAdvisor = new _EM_Advisor;
			var nLen = adviseList.length;
			objAdvisor.funcToCall = funcToCall;
			objAdvisor.nAdviseID = ++this._nLastAdviseID;
			
			// maintain list sorted in descending priority
			if (typeof(nPriority) == 'number')
				objAdvisor.nPriority = nPriority;
				
			if (nLen == 0 || objAdvisor.nPriority <= adviseList[nLen-1].nPriority)
			{	// same or lower priority as last item, append to end
				adviseList[nLen] = objAdvisor;
			}
			else
			{	// higher priority than last item, insert in priority order
				for (var i=0; i < nLen; i++)
				{
					if (objAdvisor.nPriority > adviseList[i].nPriority)
						break;
				}
				// insert item at priority ordered index
				var aTemp = adviseList.slice(i);
				adviseList.length = i;
				adviseList[i] = objAdvisor;
				this._events[strEvent] = adviseList.concat(aTemp);
			}
	
			return this._nLastAdviseID;
		}
		return -1;
	}

	function _EM_adviseDefaultHandler(strName,strEvent)
	{
		var strDefaultHandler = strName + '_' + strEvent;
		if (eval('typeof(' + strDefaultHandler + ')') == 'function' ||
			eval('typeof(' + strDefaultHandler + ')') == 'unknown')
			return this.advise(strEvent,strDefaultHandler + '()');
		return -1;
	}

	function _EM_unadvise(strEvent,nAdviseID)
	{
		if ((typeof(strEvent) != 'undefined') && 
			(nAdviseID != 'undefined') && 
			(typeof(this._events[strEvent]) != 'undefined'))
		{
			var adviseList = this._events[strEvent];
			var nLen = adviseList.length
			for (var i=0; i < nLen; i++)
			{
				if (adviseList[i].nAdviseID == nAdviseID)
				{
					var aTemp = adviseList.slice(i+1);
					adviseList.length = i;
					this._events[strEvent] = adviseList.concat(aTemp);
					return true;
				}
			}
		}
		return false;
	}

	function _EM_fireEvent(strEvent)
	{
		if (typeof(this._events[strEvent]) != 'undefined')
		{
			var bReturn = true;
			for (var i=0; i < this._events[strEvent].length; i++)
				_EM__fireEvent(this._events[strEvent][i].funcToCall);
		}
	}

	function _EM_getEventCount()
	{
			var nLength = 0;
			for (var event in this._events)
				nLength++;
			return nLength;
	}

	function _EM_getEvent(nIndex)
	{
		var i = 0;
		for (var event in this._events)
		{
			if (nIndex == i)
				return event;
		}
		return '';
	}

	function _EM_generateClientHandler(strName,strEvent)
	{
		return "thisPage._fireEvent('" + strName + "','" + strEvent + "');";
	}

	function _EM_generateClientHandlers(strName)
	{
		var strHandlers = '';
		for (var event in this._events)
			strHandlers += ' ' + event + '="' + this.generateClientHandler(strName,event) + ' return false;"';
		return strHandlers;
	}

}	// end of _EM_Prototype function

// shared function for firing events, used by other script components
function _EM__fireEvent(funcToFire)
{
	if (typeof(funcToFire) == 'string')
		eval(funcToFire);
	else if (typeof(funcToFire) == 'function')
		funcToFire();
}

// shared function for mapping client events to server eventhandlers
function _EM__onclientevent(strName,strEvent)
{	// validate strName is an existing object
	var object = null;
	if (typeof(RuntimeObject) != 'undefined')
	{	// use global namespace to acquire object of 'strName'
		var objects = RuntimeObject(strName);
		object = objects[strName];
	}

	if (object != null && typeof(object) == 'object' && typeof(object._objEventManager) == 'object')
		object._objEventManager.fireEvent(strEvent);
}

</SCRIPT>