[script      language = "VBscript" 
                runat = "Server"]
  function dbug(ss)
    Response.Clear()
    Response.Write(ss)
    Response.End()
  end function '--dbug
[/script]

[script   language = jscript      runat = server]

/*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--
 * FUNCTION: fnCheckForField(...)
 * DESCRIPTION:
    Checks For the presence of a particular field
    in an ADO Recordset and returns a boolean result (true/false).
 * SOURCE LOCATION:
     http://www.geocities.com/matth3wbishop/eg/asp/fnCheckForField.txt
 * DOCUMENTED AT:
     http://www.geocities.com/matth3wbishop/eg/asp/fnCheckForField.doc(?)
*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*/
  function fnCheckForField(adoRs, sFieldName)
  { 
    var bFound = new Boolean();
    var ssA = new String();
    var ssB = new String();
    
    if (adoRs == null)
    {
      fnErrorMessage(
        "fnCheckForField", "adoRs",
        "A required parameter was omitted.");
    } /* if */

    if (sFieldName == null)
    {
      fnErrorMessage(
        "fnCheckForField", "sFieldName",
        "A required parameter was omitted.");
    } /* if */
    
    ssA = sFieldName.toLowerCase();
    
    for (var ii = 0; ii < adoRs.Fields.Count; ii++)
    {
      ssB = adoRs.Fields.Item(ii).Name;
      ssB = ssB.toLowerCase();
      if (ssB == ssA)
      {
        bFound = true;
      }
    } /* for */
    return bFound;
  } /* fnCheckForField */
  

[/script]