Sub EnableSearchButton()
	
    On Error Resume Next
	
	If Len(document.form1.txtSearch.value)  = 0 Then
		document.form1.btnSearch.Disabled = True
	Else
		document.form1.btnSearch.Disabled = False
	End IF

End Sub

Sub KeyPressAddress()

	Dim sKeyCode

    On Error Resume Next

	sKeyCode = chr(window.event.keyCode)
    
    If sKeyCode >= "A" And sKeyCode <= "Z" Then
    ElseIf sKeyCode >= "a" And sKeyCode <= "z" Then
    ElseIf sKeyCode >= "0" And sKeyCode <= "9" Then
    ElseIf sKeyCode = " " Then
    ElseIf sKeyCode = "'" Then
    ElseIf sKeyCode = "," Then
    ElseIf sKeyCode = "." Then
    ElseIf sKeyCode = "#" Then
    ElseIf sKeyCode = "-" Then
    Else
        window.event.keyCode =false
    End If
End Sub

Sub KeyPressAlphaNumeric(sSpace)

	Dim sKeyCode

    On Error Resume Next

	sKeyCode = chr(window.event.keyCode)

    If sKeyCode >= "0" And sKeyCode <= "9" Then
    ElseIf sKeyCode >= "A" And sKeyCode <= "Z" Then
    ElseIf sKeyCode >= "a" And sKeyCode <= "z" Then
	Else
	    If sSpace = "True" And sKeyCode = " " Then
	    Else    
    		window.event.keyCode =false
	    End If
	End If

End Sub

Sub KeyPressCurrency()

	Dim sKeyCode

    On Error Resume Next
                
	sKeyCode = chr(window.event.keyCode)

    If sKeyCode >= "0" And sKeyCode <= "9" Then
    Elseif sKeyCode = "$" Then
    Elseif sKeyCode = "." Then
    Else
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressDate()

	Dim sKeyCode

    On Error Resume Next
                
	sKeyCode = chr(window.event.keyCode)

    If sKeyCode >= "0" And sKeyCode <= "9" Then
    Elseif sKeyCode = "/" Then
    Else
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressEmail()

	Dim sKeyCode

    On Error Resume Next
                
	sKeyCode = chr(window.event.keyCode)

    If sKeyCode >= "0" And sKeyCode <= "9" Then
    ElseIf sKeyCode >= "A" And sKeyCode <= "Z" Then
    ElseIf sKeyCode >= "a" And sKeyCode <= "z" Then
    Elseif sKeyCode = "_" Then
    Elseif sKeyCode = "." Then
    Elseif sKeyCode = "@" Then
    Else
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressNoAlpha()

	Dim iKeyCode

    On Error Resume Next
                
	iKeyCode = window.event.keyCode

	If iKeyCode > 64 and iKeyCode < 91 then
		window.event.keyCode =false
	End If

	If iKeyCode > 96 and iKeyCode < 123 then
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressNoApostropheQuote()

	Dim iKeyCode

    On Error Resume Next
                
	iKeyCode = window.event.keyCode

	If iKeyCode = 34 or iKeyCode = 39 then
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressNumeric()

	Dim iKeyCode

    On Error Resume Next
                
	iKeyCode = window.event.keyCode
                
	If iKeyCode < 48 or iKeyCode > 57 then
		window.event.keyCode =false
	End If

End Sub

Sub KeyPressNumericComma()

	Dim iKeyCode

    On Error Resume Next
                
	iKeyCode = window.event.keyCode
                
	If iKeyCode < 48 or iKeyCode > 57 then
		If iKeyCode <> 44 Then
			window.event.keyCode =false
		End If
	End If

End Sub
  
Sub KeyPressPhone()
    
	Dim iKeyCode
                
    On Error Resume Next

	iKeyCode = window.event.keyCode

	If iKeyCode < 48 or iKeyCode > 57 Then
		If iKeyCode <> 45 then
			window.event.keyCode =false
		End If
	End If

End Sub

Sub KeyPressEditedAccountNumber()

	Dim iKeyCode

    On Error Resume Next
                        
	iKeyCode = window.event.keyCode
    
	If iKeyCode > 47 and iKeyCode < 58 Then 'Numbers
	Elseif iKeyCode > 64 and iKeyCode < 91 Then 'LC Letters
	Elseif iKeyCode > 96 and iKeyCode < 123 Then 'UC Letters
	Elseif iKeyCode = 45 Then 'Dash
	Elseif iKeyCode = 32 Then 'Space
	Else
	    window.event.keyCode =false
	    Exit Sub
	End If
	    
End Sub

Sub EnableDisableAddressLines

    Dim bEnable

    On Error Resume Next
    
    If document.form1.chkSameAddress.Checked = True Then
        bEnable = False
    Else
        bEnable = True
    End If

    document.form1.txtBillAddress1.Disabled = bEnable
    document.form1.txtBillAddress2.Disabled = bEnable
    document.form1.txtBillAddress3.Disabled = bEnable
    document.form1.txtBillAddress4.Disabled = bEnable
    document.form1.txtBillCity.Disabled = bEnable
    document.form1.ddlBillState.Disabled = bEnable
    document.form1.txtBillZipCode.Disabled = bEnable

    document.form1.txtShipAddress1.Disabled = bEnable
    document.form1.txtShipAddress2.Disabled = bEnable
    document.form1.txtShipAddress3.Disabled = bEnable
    document.form1.txtShipAddress4.Disabled = bEnable
    document.form1.txtShipCity.Disabled = bEnable
    document.form1.ddlShipState.Disabled = bEnable
    document.form1.txtShipZipCode.Disabled = bEnable
    
End Sub

Sub Csetup2ControlVisible()

    On Error Resume Next
        
    If document.form1.rbtnByBranchYes.checked = True Then
        document.form1.txtBranchInfo.style.visibility="visible"
        document.form1.txtBranchInfo1.style.visibility="visible"
    Else
        document.form1.txtBranchInfo.style.visibility="hidden"
        document.form1.txtBranchInfo1.style.visibility="hidden"
    End If
    
    If document.form1.rbtnChangeFormYes.checked = True Then
        document.form1.txtAddFormNumb.style.visibility="visible"
        document.form1.imgAddFormReq.style.visibility="visible"
        document.form1.btnSelectAddresForm.style.visibility="visible"
    Else
        document.form1.txtAddFormNumb.style.visibility="hidden"
        document.form1.imgAddFormReq.style.visibility="hidden"
        document.form1.btnSelectAddresForm.style.visibility="hidden"
    End If
End Sub

Sub ChangeTextOnSearch(sValue)

    On Error Resume Next
    
    document.form1.txtSearchValue.value = sValue
    
End Sub

Sub SetIDSearchText(sID,sControName)

    Dim iPosition
    Dim sValue
    Dim objIDControl
        
    Set objIDControl = document.getelementbyid(sControName)
    
    sValue = document.form1.txtIDNumber.value
    If objIDControl.checked = "True" then
        If Len(sValue) > 0 Then
            sValue = sValue & ";"
        End If
        
        sValue = sValue & sID
    Else
        iPosition = Instr(1,sValue,sID)
        If iPosition > 0 Then
            sValue = Left(sValue, iPosition - 1) & Mid(sValue,iPosition + Len(sID) + 2)
        End If
    End If
    
    If Len(sValue) = 0 then
        document.form1.btnSave.disabled = True
    Else
        document.form1.btnSave.disabled = False
    End If
    
    document.form1.txtIDNumber.value = sValue    
    
End Sub

Function ValidEditedAccountNumber(sValue)

    Dim iCount
    Dim sChar
    On Error resume next

    ValidEditedAccountNumber = "False"

    For iCount = 1 To Len(sValue)
        sChar = Mid(sValue, iCount, 1)
        If sChar >="A" And sChar <="Z" Then
            Exit Function
        Elseif sChar >="a" And sChar <="z" Then
            Exit Function
        End If
    Next

    ValidEditedAccountNumber = "True"

End Function

Sub TestAccountNumber()

    On Error Resume Next
    
    If window.event.keyCode = 32 Then 'Space
    ElseIf window.event.keyCode = 0 Then 'MouseClick
    Else
        Exit Sub
    End If
    
    document.form1.lblErrorMessage.value = ""

    If document.form1.chkCreateEditAcctNumbr.Checked = "False" Then
        If ValidEditedAccountNumber(document.form1.txtEditedAcctNumber.Value) = "True" Then
            document.getElementById("lblAccountNumber").style.visibility = "hidden"
            document.form1.txtAccountNumber.style.visibility="hidden"
            document.form1.imgAccountNumberReq.style.visibility="hidden"
            document.form1.imgAcctNumbError.style.visibility="hidden"
            document.form1.imgAcctNumberNumeric.style.visibility="hidden"
        Else
            document.getElementById("lblAccountNumber").style.visibility = "visible"
            document.form1.txtAccountNumber.style.visibility="visible"
            document.form1.imgAccountNumberReq.style.visibility="visible"
            document.form1.imgAcctNumberNumeric.style.visibility="visible"
            document.form1.chkCreateEditAcctNumbr.Checked = "False"
            Msgbox "Can not convert alphabetic characters in the Edited Account Number to a numeric Account Number.",,"Coupon e-Entry"
        End If
    Else
        document.getElementById("lblAccountNumber").style.visibility = "visible"
        document.form1.txtAccountNumber.style.visibility="visible"
        document.form1.imgAccountNumberReq.style.visibility="visible"
        document.form1.imgAcctNumberNumeric.style.visibility="visible"
    End If


End Sub

Sub SelectFrequency()

    On Error Resume Next

    If document.form1.ddlFrequency.Value = "A" Then
        document.getElementById("lblSecondSemiDay").style.visibility = "visible"
        document.form1.imgSemiDayReq.style.visibility="visible"
        document.form1.txtSecondSemiDay.style.visibility="visible"
    Else
        document.getElementById("lblSecondSemiDay").style.visibility = "hidden"
        document.form1.imgSemiDayReq.style.visibility="hidden"
        document.form1.txtSecondSemiDay.style.visibility="hidden"
    End If

End Sub

Sub SelectSkipMonth(sShow)

    On Error Resume Next

    If window.event.keyCode = 32 Then 'Space
    ElseIf window.event.keyCode = 0 Then 'MouseClick
    Else
        Exit Sub
    End If
    
    If sShow = "True" Then
        document.form1.imgSkipMonthsReq.style.visibility="visible"
        document.form1.imgSkipMonthsOpt.style.visibility="hidden"
        document.getElementById("cklstMonths").style.visibility = "visible"
    Else
        document.form1.imgSkipMonthsReq.style.visibility="hidden"
        document.form1.imgSkipMonthsOpt.style.visibility="visible"
        document.getElementById("cklstMonths").style.visibility = "hidden"
    End If
           
End Sub

Sub CriticalError(sProcedure)

    Msgbox "Error in " & sProcedure & "!"
    
End Sub

Sub OddPayIndictator()

    If document.form1.ddlOddPayIndicator.Value = "3" Then
        document.form1.imgFrequencyReq.style.visibility="hidden"
        document.form1.imgPayAmountReq.style.visibility="hidden"
        document.form1.imgPayDateReq.style.visibility="hidden"
        document.form1.btnSave.Value = "Enter Schedules"
        document.form1.btnSave.title = "Save current information and add/edit schedules"
        document.getElementById("lblPaymentDate").style.visibility = "hidden"
        document.form1.imgPayDateReq.style.visibility="hidden"
        document.form1.txtPaymentDate.style.visibility="hidden"
        document.getElementById("lblRegPayAmount").style.visibility = "hidden"
        document.form1.imgPayAmountReq.style.visibility="hidden"
        document.form1.txtRegPayAmount.style.visibility="hidden"
        document.getElementById("lblFrequency").style.visibility = "hidden"
        document.form1.imgFrequencyReq.style.visibility="hidden"
        document.form1.ddlFrequency.style.visibility="hidden"
        document.getElementById("lblLateChargeAmount").style.visibility = "hidden"
        document.form1.imgLateAmountOpt.style.visibility="hidden"
        document.form1.txtLateChargeAmount.style.visibility="hidden"
        document.getElementById("lblGraceDays").style.visibility = "hidden"
        document.form1.imgGraceDaysNumeric.style.visibility="hidden"
        document.form1.imgGraceDaysOpt.style.visibility="hidden"
        document.form1.txtGraceDays.style.visibility="hidden"
        document.getElementById("lblSecondSemiDay").style.visibility = "hidden"
        document.form1.imgSemiDayReq.style.visibility="hidden"
        document.form1.txtSecondSemiDay.style.visibility="hidden"        
    Else
        document.getElementById("lblPaymentDate").style.visibility = "visible"
        document.form1.imgPayDateReq.style.visibility="visible"
        document.form1.txtPaymentDate.style.visibility="visible"
        document.getElementById("lblRegPayAmount").style.visibility = "visible"
        document.form1.imgPayAmountReq.style.visibility="visible"
        document.form1.txtRegPayAmount.style.visibility="visible"
        document.getElementById("lblFrequency").style.visibility = "visible"
        document.form1.imgFrequencyReq.style.visibility="visible"
        document.form1.ddlFrequency.style.visibility="visible"
        document.getElementById("lblLateChargeAmount").style.visibility = "visible"
        document.form1.imgLateAmountOpt.style.visibility="visible"
        document.form1.txtLateChargeAmount.style.visibility="visible"
        document.getElementById("lblGraceDays").style.visibility = "visible"
        document.form1.imgGraceDaysNumeric.style.visibility="visible"
        document.form1.imgGraceDaysOpt.style.visibility="visible"
        document.form1.txtGraceDays.style.visibility="visible"
        document.form1.imgFrequencyReq.style.visibility="visible"
        document.form1.imgPayAmountReq.style.visibility="visible"
        document.form1.imgPayDateReq.style.visibility="visible"
        document.form1.btnSave.Value = "Save & New Entry"
        document.form1.btnSave.title = "Save current information and start a new e-Entry."
        SelectFrequency
    End If

    If document.form1.ddlOddPayIndicator.Value = "1" Or document.form1.ddlOddPayIndicator.Value = "2" Then
        document.getElementById("lblOddPaymentAmount").style.visibility = "visible"
        document.form1.imgOddPayAmountReq.style.visibility="visible"
        document.form1.txtOddPaymentAmount.style.visibility="visible"
        document.getElementById("lblOddPaymentLate").style.visibility = "visible"
        document.form1.imgOddPayLateAmountOpt.style.visibility="visible"
        document.form1.txtOddPaymentLate.style.visibility="visible"
        document.getElementById("lblOddPaymentGrace").style.visibility = "visible"
        document.form1.imgOddGraceDaysOpt.style.visibility="visible"
        document.form1.txtOddPaymentGrace.style.visibility="visible"
        document.form1.imgOddGraceDaysNumeric.style.visibility="visible"
    Else
        document.getElementById("lblOddPaymentAmount").style.visibility = "hidden"
        document.form1.imgOddPayAmountReq.style.visibility="hidden"
        document.form1.txtOddPaymentAmount.style.visibility="hidden"
        document.getElementById("lblOddPaymentLate").style.visibility = "hidden"
        document.form1.imgOddPayLateAmountOpt.style.visibility="hidden"
        document.form1.txtOddPaymentLate.style.visibility="hidden"
        document.getElementById("lblOddPaymentGrace").style.visibility = "hidden"
        document.form1.imgOddGraceDaysOpt.style.visibility="hidden"
        document.form1.txtOddPaymentGrace.style.visibility="hidden"
        document.form1.imgOddGraceDaysNumeric.style.visibility="hidden"
    End If

End Sub

Sub CalculateNextDate(sNumberOfPayments,sCurrentDateName,sNextDate,sFrequency)

    Dim iPosition
    Dim iPrevPosition
    Dim iMonth
    Dim iDay
    Dim iYear
    Dim sReturn
    Dim sCurrentDate
    Dim objNextDate
    Dim objCurrentDate
    
    Set objCurrentDate = document.getelementbyid(sCurrentDateName)
    Set objNextDate = document.getelementbyid(sNextDate)
    
    sCurrentDate = objCurrentDate.Value

    If Len(sCurrentDate) = 0 Then
        Exit Sub
    End If
    
    sReturn = IsValidDate(sCurrentDate)
    If len(sReturn) > 0 Then
        Exit Sub
    End If

    If Len(sNumberOfPayments) = 0 Then
        Exit Sub
    End If

    If IsNumeric(sNumberOfPayments) = False Then
        Exit Sub
    End If

    If Len(sFrequency) = 0 Then
        Exit Sub
    End If

    iPosition = InStr(sCurrentDate, "/")
    iPrevPosition = iPosition
    iMonth = CInt(Left(sCurrentDate, iPosition - 1))
    iPosition = InStr(iPrevPosition + 1, sCurrentDate, "/")
    iDay = CInt(Mid(sCurrentDate, iPrevPosition + 1, iPosition - iPrevPosition - 1))
    sYear = Mid(sCurrentDate, iPosition + 1, Len(sCurrentDate) - iPosition)

    If Len(sYear) = 2 Then
        sYear = "20" & sYear
    End If

    objCurrentDate.Value = CStr(iMonth) & "/" & CStr(iDay) & "/" & sYear

    iYear = CInt(sYear)

    If sFrequency = "8" Or sFrequency = "9" Or sFrequency = "B" Then
        Do Until IsDate(sCurrentDate) = True
            iDay = iDay - 1
            sCurrentDate = CStr(iMonth) & "/" & CStr(iDay) & "/" & CStr(iYear)
        Loop
    End If
    
    If sFrequency >= "1" And sFrequency <= "6" Then
        iMonth = iMonth + (CInt(sNumberOfPayments) * CInt(sFrequency))
        Do Until iMonth < 13
            iMonth = iMonth - 12
            iYear = iYear + 1
        Loop
        objNextDate.Value = CStr(iMonth) & "/" & CStr(iDay) & "/" & CStr(iYear)
    Elseif sFrequency = "7" Then
        iYear = iYear + CInt(sNumberOfPayments)
        objNextDate.Value = CStr(iMonth) & "/" & CStr(iDay) & "/" & CStr(iYear)
    Elseif sFrequency = "8" Then
        objNextDate.Value = CStr(DateAdd("d", 7 * Cint(sNumberOfPayments), CDate(sCurrentDate)))
    Elseif sFrequency = "9" Then
        objNextDate.Value = CStr(DateAdd("d", 14 * Cint(sNumberOfPayments), CDate(sCurrentDate)))
    Elseif sFrequency = "B" Then
        objNextDate.Value = CStr(DateAdd("d", 15 * Cint(sNumberOfPayments), CDate(sCurrentDate)))
    End If
    
End Sub

Sub EditDateField(sDateField)
    
    Dim sDate
    Dim sReturn
    
    sDate = document.getelementbyid(sDateField).Value
    
    If Len(sDate) = 0 Then
        Exit Sub
    End If
    
    sReturn = IsValidDate(sDate)
    If len(sReturn) > 0 Then
        Msgbox sReturn, vbOkOnly + vbExclamation, "Coupon e-Entry"
        document.getelementbyid(sDateField).Focus
        Exit Sub
    End If
    
    Frequency
   
End Sub

Function IsValidDate(sDate)

    Dim iCount
    Dim iPrevPosition
    Dim sMonth
    Dim sDay
    Dim sYear
    Dim sChar
    Dim sValue
    
    iPrevPosition = 1
    sValue = sDate
    
    If IsSlashesInDate(sValue) = False Then
        IsValidDate = "Invalid Date Format - The format must be mm/dd/yyyy!"
        Exit Function
    End IF

    IsValidDate = "The date is not a valid date!"
    
    For iCount = 1 To Len(sValue)
        sChar = Mid(sValue, iCount, 1)
        If IsNumeric(sChar) = False Then
            If sChar = "/" Then
                If Len(sMonth) = 0 Then
                    sMonth = Mid(sValue, iPrevPosition, iCount - iPrevPosition)
                    If IsNumeric(sMonth) = False Then
                        Exit Function
                    End If
                    If CInt(sMonth) < 1 Or CInt(sMonth) > 12 Then
                        Exit Function
                    End If
                ElseIf Len(sDay) = 0 Then
                    sDay = Mid(sValue, iPrevPosition + 1, iCount - iPrevPosition - 1)
                    If IsNumeric(sDay) = False Then
                        Exit Function
                    End If
                    If CInt(sDay) < 1 Or CInt(sDay) > 31 Then
                        Exit Function
                    End If

                    sYear = Mid(sValue, iCount + 1, Len(sValue) - iCount + 1)
                    If Len(sYear) = 4 Then
                    ElseIf Len(sYear) <> 2 Then
                        Exit Function
                    End If
                    If IsNumeric(sDay) = False Then
                        Exit Function
                    End If

                    Exit For
                Else
                    Exit Function
                End If
                iPrevPosition = iCount
            Else
                Exit Function
            End If
        End If
    Next

    Do Until IsDate(sValue) = True
        sDay = CStr(CInt(sDay) - 1)
        sValue = sMonth & "/" & sDay & "/" & sYear
    Loop
    
    sDate = sValue
    
    IsValidDate = ""

End Function

Function IsSlashesInDate(sDate) 

    Dim iCount 
    Dim iPosition 
    Dim sValue
    
    sValue = sDate
    
    IsSlashesInDate = False

    iPosition = -1
    iCount = 0

    Do Until iPosition = 0
        iPosition = InStr(sValue, "/")
        If iPosition > 0 Then
            iCount = iCount + 1
            sValue = Mid(sValue, iPosition + 1)
        End If
    Loop

    If iCount = 2 Then
        IsSlashesInDate = True
    End If

End Function
    
Sub RecaculateDates(sSkipDateCheck)
    
    Dim bSkipDateCheck
    
    bSkipDateCheck = Cbool(sSkipDateCheck)
    
    If document.form1.chkCalcPaymentDates.Checked = "False" Then
        Exit Sub
    End If

    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate1.Value, "txtPayDateHold1") = True Then
            CalculateNextDate document.form1.txtNumOfPayments1.Value, "txtPayDate1", "txtPayDate2", document.form1.ddlFrequency1.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments1.Value, "txtPayDate1", "txtPayDate2", document.form1.ddlFrequency1.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate2.Value, "txtPayDateHold2") = True Then
            CalculateNextDate document.form1.txtNumOfPayments2.Value, "txtPayDate2", "txtPayDate3", document.form1.ddlFrequency2.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments2.Value, "txtPayDate2", "txtPayDate3", document.form1.ddlFrequency2.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate3.Value,"txtPayDateHold3") = True Then
            CalculateNextDate document.form1.txtNumOfPayments3.Value, "txtPayDate3", "txtPayDate4", document.form1.ddlFrequency3.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments3.Value, "txtPayDate3", "txtPayDate4", document.form1.ddlFrequency3.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate4.Value, "txtPayDateHold4") = True Then
            CalculateNextDate document.form1.txtNumOfPayments4.Value, "txtPayDate4", "txtPayDate5", document.form1.ddlFrequency4.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments4.Value, "txtPayDate4", "txtPayDate5", document.form1.ddlFrequency4.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate5.Value, "txtPayDateHold5") = True Then
            CalculateNextDate document.form1.txtNumOfPayments5.Value, "txtPayDate5", "txtPayDate6", document.form1.ddlFrequency5.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments5.Value, "txtPayDate5", "txtPayDate6", document.form1.ddlFrequency5.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate6.Value, "txtPayDateHold6") = True Then
            CalculateNextDate document.form1.txtNumOfPayments6.Value, "txtPayDate6", "txtPayDate7", document.form1.ddlFrequency6.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments6.Value, "txtPayDate6", "txtPayDate7", document.form1.ddlFrequency6.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate7.Value, "txtPayDateHold7") = True Then
            CalculateNextDate document.form1.txtNumOfPayments7.Value, "txtPayDate7", "txtPayDate8", document.form1.ddlFrequency7.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments7.Value, "txtPayDate7", "txtPayDate8", document.form1.ddlFrequency7.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate8.Value, "txtPayDateHold8") = True Then
            CalculateNextDate document.form1.txtNumOfPayments8.Value, "txtPayDate8", "txtPayDate9", document.form1.ddlFrequency8.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments8.Value, "txtPayDate8", "txtPayDate9", document.form1.ddlFrequency8.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate9.Value, "txtPayDateHold9") = True Then
            CalculateNextDate document.form1.txtNumOfPayments9.Value, "txtPayDate9", "txtPayDate10", document.form1.ddlFrequency9.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments9.Value, "txtPayDate9", "txtPayDate10", document.form1.ddlFrequency9.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate10.Value, "txtPayDateHold10") = True Then
            CalculateNextDate document.form1.txtNumOfPayments10.Value, "txtPayDate10", "txtPayDate11", document.form1.ddlFrequency10.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments10.Value, "txtPayDate10", "txtPayDate11", document.form1.ddlFrequency10.Value
    End If
    
    If bSkipDateCheck = False Then
        If ValidOldDates(document.form1.txtPayDate11.Value, "txtPayDateHold11") = True Then
            CalculateNextDate document.form1.txtNumOfPayments11.Value, "txtPayDate11", "txtPayDate12", document.form1.ddlFrequency11.Value
        End If
    Else
        CalculateNextDate document.form1.txtNumOfPayments11.Value, "txtPayDate11", "txtPayDate12", document.form1.ddlFrequency11.Value
    End If
    
End Sub

Function ValidOldDates(sDate, sCompareTextBox)

    Dim iPosition 
    Dim iPrevPosition
    Dim iMonth
    Dim iDay
    Dim iYear
    Dim objTextBoxCompare
    Dim sOriginalDateTextBox
    
    ValidOldDates = True

    Set objTextBoxCompare = document.getelementbyid(sCompareTextBox)
    
    If Len(sDate) = 0 Then
        Exit Function
    End If
    
    If sDate <> objTextBoxCompare.Value Then
        If Len(IsValidDate(sDate)) = 0 Then
            iPosition = InStr(sDate, "/")
            iPrevPosition = iPosition
            iMonth = CInt(Left(sDate, iPosition - 1))
            iPosition = InStr(iPrevPosition + 1, sDate, "/")
            iDay = CInt(Mid(sDate, iPrevPosition + 1, iPosition - iPrevPosition - 1))
            iYear = CInt(Mid(sDate, iPosition + 1, Len(sDate) - iPosition))

            If iMonth < 1 or iMonth > 12 Then
                Exit Function
            End If
            
            If iDay < 1 or iDay > 31 Then
                Exit Function
            End If
            
            sDate = CStr(iMonth) & "/" & CStr(iDay) & "/" & CStr(iYear)
            Do Until IsDate(sDate) = True
                iDay = iDay - 1
                sDate = CStr(iMonth) & "/" & CStr(iDay) & "/" & CStr(iYear)
            Loop
            
            If DateDiff("d", CDate(sDate), Date) > 15 Then
                document.form1.txtTextBoxCompare.Value = "txtPayDate" & Right(objTextBoxCompare.ID, 1)
                If Msgbox("Payment Schedule Number " & Right(objTextBoxCompare.ID, 1) & " is older than 15 days. Keep this date?", vbYesNo + vbExclamation, "Coupon e-Entry") = vbYes Then
                    YesToDateDiffQuestion
                Else
                    sOriginalDateTextBox = "txtPayDate" & Mid(sCompareTextBox,Len("txtPayDateHold") +1)
                    document.getelementbyid(sOriginalDateTextBox).Value = objTextBoxCompare.Value
                End If
            End If
        End If
    End If

End Function

Sub YesToDateDiffQuestion

    Dim sHoldControlName
    Dim txtPayDate
    Dim txtPayDateDold

    sHoldControlName = "txtPayDateHold" & Right(document.form1.txtTextBoxCompare.Value, 1)

    Set txtPayDate = document.getelementbyid(document.form1.txtTextBoxCompare.Value)
    Set txtPayDateDold = document.getelementbyid(sHoldControlName)

    txtPayDateDold.Value = txtPayDate.Value

    RecaculateDates(True)

End Sub


Sub CalculateTotalPayments()

    Dim iTotal

    iTotal = 0

    If Len(document.form1.txtNumOfPayments1.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments1.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments1.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments2.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments2.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments2.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments3.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments3.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments3.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments4.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments4.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments4.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments5.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments5.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments5.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments6.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments6.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments6.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments7.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments7.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments7.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments8.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments8.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments8.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments9.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments9.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments9.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments10.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments10.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments10.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments11.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments11.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments11.Value)
        End If
    End If

    If Len(document.form1.txtNumOfPayments12.Value) > 0 Then
        If IsNumeric(document.form1.txtNumOfPayments12.Value) = True Then
            iTotal = iTotal + CInt(document.form1.txtNumOfPayments12.Value)
        End If
    End If

    document.form1.txtNumbPaymentsTotal.Value = CStr(iTotal)
    
End Sub

Sub Frequency()
    
    CalculateTotalPayments
    RecaculateDates(False)

End Sub

Sub EditDateRequest()

    Dim sDate
    Dim sReturn
    
    sDate = document.form1.txtPaymentDate.Value
    
    If Len(sDate) > 0 Then
        sReturn = IsValidDate(sDate)
        If len(sReturn) > 0 Then
            Msgbox sReturn, vbOkOnly ,"Coupon e-Entry"
           Exit Sub
        End If
                
        If DateDiff("d", CDate(sDate), Date) > 15 Then
            If document.form1.txtPayDateHold.Value <> document.form1.txtPaymentDate.Value Then
                If Msgbox("Payment Date is older than 15 days. Keep this date?", vbYesNo + vbExclamation, "Coupon e-Entry") = vbYes Then
                    document.form1.txtPayDateHold.Value = document.form1.txtPaymentDate.Value
                Else
                    document.form1.txtPaymentDate.Value = document.form1.txtPayDateHold.Value
                End If
            End If
        Else
            document.form1.txtPayDateHold.Value = document.form1.txtPaymentDate.Value
        End If
    Else
        document.form1.txtPayDateHold.Value = document.form1.txtPaymentDate.Value
    End If

End Sub

Sub ChangeIDonIntroScreen()
    
    document.form1.txtClientID.value = document.form1.ddlClientID.value

End Sub