[script       language = "jscript"      runat = "server"]

/*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*  
 * FUNCTION: fnErrorMessage(...)
 * DESCRIPTION: Writes an error message to a webpage.
     This function is used by many of the other functions
     in order to display a message when something goes wrong.
     For example, when a required parameter in another 
     function is omitted by the programmer, then this function
     informs the programmer of the function-name, parameter-name
     and a description of what went wrong. All further output
     from the Web-server is then terminated.
 * PARAMETERS: 
    -- sFunc {String} The name of the function in which the
         problem occurred
    -- sParam
    -- sDescription
 * STATUS: working- tested 40%
 * DEPENDENCIES: none
 * WORKING HISTORY: 
     2000-- created
 * DOCUMENTATION: 
    http://www.geocities.com/matth3wbishop/eg/asp/
 * SOURCE CODE:	
    http://www.geocities.com/matth3wbishop/eg/asp/
 * LANGUAGE: MS Jscript
 * NOTES:
 *--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*/  
  function fnErrorMessage(sFunc, sParam, sDescription)
  {
    if (sFunc == null){}    
    if (sParam == null){}
    
    Response.Clear();
    Response.Write(
	  "<center>\n" +
	  "ERROR:\n" +
	  "<table    align = 'center' \n" +
        "         border = '0' \n" +
        "    cellspacing = '0' \n" +
        "    cellpadding = '0' \n" +
	  "<tr>\n" +
	  "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'><b>Function:</b></font></td>\n" + 
	  "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'>" + sFunc + "</font></td>\n" +
	  "</tr>\n" + 
	  "<tr>\n" +
	  "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'><b>Parameter:</b></font></td>\n" + 
	  "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'>" + sParam + "</font></td>\n" +
	  "</tr>\n" + 		       
	  "<tr>\n" +
        "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'><b>Description:</b></font></td>\n" + 
	  "  <td bgcolor = 'green'> \n" +
        "  <font color = 'white'>" + sDescription + "</font></td>\n" +
	  "</tr>\n" + 		       
	  "</table>\n" +
	  "</center>\n"); 		        
    Response.End();       
  } /* fnErrorMessage */

[/script]