Robert G. Erhart Bob Erhart Rochester New York

HOME

ADD MESSAGE

PAGE/EMAIL

TAKE A DEMO SURVEY

SEE DEMO SURVEY RESULTS

VBA DEMO

BACK TO SOURCE CODE LISTING

<SCRIPT Language="JavaScript">
/*======================================================================
======================================================================*/
function AuditForUnsignedInt(strFieldValue)
{
var strUnsignedIntCheck
    strUnsignedIntCheck = "0123456789"  
var booAllValid         = true
var strCheckString
var chrFieldBuff
var chrCheckBuff

for (i = 0;  i < strFieldValue.length;  i++)
   {
    chrFieldBuff = strFieldValue.charAt(i);
    for (j = 0;  j < strUnsignedIntCheck.length;  j++)
      if (chrFieldBuff == strUnsignedIntCheck.charAt(j))
      {
        booAllValid = true;
        break;
      }
    if (j == strUnsignedIntCheck.length)
    {
      booAllValid = false;
      break;
    }
   }
  if (!booAllValid)
   {
    return (false);
   } 
 return (true);
}

function AuditForInteger(strFieldValue)
{
var strUnsignedIntCheck
    strUnsignedIntCheck = "-0123456789"  
var booAllValid         = true
var strCheckString
var chrFieldBuff
var chrCheckBuff

Private Function ClientFormAudit(strFormName, intFormIndex, intFieldCount)
Dim strHTMLFieldType  
Dim booAuditRequired  
Dim booAuditType     
Dim booAuditMinLength
Dim booAuditMaxLength 
Dim booAuditMinValue  
Dim booAuditMaxValue  
Dim strFieldType     
Dim intFieldMinLength
Dim intFieldMaxLength 
Dim intFieldMinValue  
Dim intFieldMaxValue  
Dim intFieldIndex     
Dim strFieldName            
Dim strFieldLabel    
Dim strFieldDesc
Dim intPtr

%>
<SCRIPT LANGUAGE="JavaScript">
function AuditForm_<% = strFormName %>()
{
var varFieldValueBuf;
var intRC;
<%
 For intPtr = 0 to intFieldCount     
  strFormName       = aryFormInfoValue(intFormIndex,intPtr,0)
  strHTMLFieldType  = aryFormInfoValue(intFormIndex,intPtr,7)
  booAuditRequired  = aryFormInfoValue(intFormIndex,intPtr,20)
  booAuditType      = aryFormInfoValue(intFormIndex,intPtr,21)
  booAuditMinLength = aryFormInfoValue(intFormIndex,intPtr,22)
  booAuditMaxLength = aryFormInfoValue(intFormIndex,intPtr,23) 
  booAuditMinValue  = aryFormInfoValue(intFormIndex,intPtr,24)
  booAuditMaxValue  = aryFormInfoValue(intFormIndex,intPtr,25) 
  strFieldType      = aryFormInfoValue(intFormIndex,intPtr,19) 
  intFieldMinLength = aryFormInfoValue(intFormIndex,intPtr,12) 
  intFieldMaxLength = aryFormInfoValue(intFormIndex,intPtr,13) 
  intFieldMinValue  = aryFormInfoValue(intFormIndex,intPtr,14) 
  intFieldMaxValue  = aryFormInfoValue(intFormIndex,intPtr,15)
  intFieldIndex     = aryFormInfoValue(intFormIndex,intPtr,2)
  strFieldName      = UCase(aryFormInfoValue(intFormIndex,intPtr,3))        
  strFieldLabel     = aryFormInfoValue(intFormIndex,intPtr,4)
  strFieldDesc      = aryFormInfoValue(intFormIndex,intPtr,28)

Select Case strHTMLFieldType
   Case "CHECKBOX"
    %>
    if (document.<% = strFormName %>.<% = strFieldName %>.checked == false)
      {
       document.<% = strFormName %>.<% = strFieldName %>.value = "False"
      }
    <% 
   Case Else
    'Do Nothimg
  End Select
 
  Select Case booAuditRequired
   Case True
    %>
// The <% = strFieldName %> Field is Required
   varFieldValueBuf = document.<% = strFormName %>.<% = strFieldName %>.value
   if (document.<% = strFormName %>.<% = strFieldName %>.value == "") 
     {
      document.<% = strFormName %>.<% = strFieldName %>.focus();
      alert("The <% = strFieldName %> field is required!\n<% = strFieldDesc %>");
      return false;
     }  
    <%
   Case Else
    'Do Nothing
  End Select

Select Case booAuditMinLength
   Case True
    %>
// The <% = strFieldName %> Field is Audited for Min Length
   varFieldValueBuf = document.<% = strFormName %>.<% = strFieldName %>.value
   if (document.<% = strFormName %>.<% = strFieldName %>.value != "")
     {
      if (document.<% = strFormName %>.<% = strFieldName %>.value.length < <% = intFieldMinLength %>) 
        {
         document.<% = strFormName %>.<% = strFieldName %>.focus();
         alert("The <% = strFieldName %> field must be at least <% =intFieldMinLength %> charaters! ");
         return false;
        }
     }  
    <%
   Case Else
    'Do Nothing
  End Select

Select Case booAuditMaxLength
   Case True
    %>
// The <% = strFieldName %> Field is Audited for Max Length
   varFieldValueBuf = document.<% = strFormName %>.<% = strFieldName %>.value
   if (document.<% = strFormName %>.<% = strFieldName %>.value != "")
     {
      if (document.<% = strFormName %>.<% = strFieldName %>.value.length > <% = intFieldMaxLength %>) 
        {
         document.<% = strFormName %>.<% = strFieldName %>.focus();
         alert("The <% = strFieldName %> field must be lest than <% =intFieldMinLength %> charaters! ");
         return false;
        }
     }  
    <%
   Case Else
    'Do Nothing
  End Select
 
  Select Case booAuditType
   Case True
    %>
// The <% = strFieldName %> Field is Audited Value Type
   varFieldValueBuf = document.<% = strFormName %>.<% = strFieldName %>.value
    <% 
   Select Case strFieldType
    Case "UNSIGNEDINTEGER"
    %>
    intRC = AuditForUnsignedInt(varFieldValueBuf);
    if (intRC == false)
      {
       document.<% = strFormName %>.<% = strFieldName %>.focus();
       alert("The <% = strFieldName %> field must be a positive whole number!");
       return false;
      }
    <%
    Case "INTEGER"
    %>
    intRC = AuditForInteger(varFieldValueBuf)
    if (intRC == false)
      {
       document.<% = strFormName %>.<% = strFieldName %>.focus();
       alert("The <% = strFieldName %> field must be a whole number!");
       return false;
      }
    <%
    Case "UNSIGNEDFLOAT"

Case "DATE"

Case "TIME"

End Select
    
   Case Else
    'Do Nothing
  End Select 
 Next
%>
 return true;
}
</SCRIPT>

End Function