Do While Not rsDocAssign.EOF
' Set flag for certificate display -- set to True if any of the assignments have a cert -- never reset to False
If rsDocAssign("Certificate") Then
Session("DisplayCert") = true
End If
If rsDocAssign("Statement") Then
Session("bStatement") = true
End If
' Alway choose the strictest seting for method of completion
Select Case rsDocAssign("CompletionMethod")
Case 1
If Session("FormCompMethod") = 0 then
Session("FormCompMethod") = 1
end if
Case 2
If Session("FormCompMethod") < 2 then
Session("FormCompMethod") = 2
end if
bCustom = true
For i = 1 To UBound(eSigOptArray)
If rsDocAssign("Acknowledgement") = eSigOptArray(i) Then
Select Case i
Case 1
bEsign1 = true
bCustom = false
Case 2
bEsign2 = true
bCustom = false
Case 3
bEsign3 = true
bCustom = false
Case 4
bEsign4 = true
bCustom = false
end select
End If
Next
If bCustom then
strEsignIndicates = strEsignIndicates & rsDocAssign("Acknowledgement") & "||"
end if
end select
rsDocAssign.MoveNext
Loop
if bEsign1 then
strEsignIndicates = "||" & eSigOptArray(1) & strEsignIndicates
end if
if bEsign2 then
strEsignIndicates = "||" & eSigOptArray(2) & strEsignIndicates
end if
if bEsign3 then
strEsignIndicates = "||" & eSigOptArray(3) & strEsignIndicates
end if
if bEsign4 then
strEsignIndicates = "||" & eSigOptArray(4) & strEsignIndicates
end if