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