All pastes #126472 Raw Edit

cnfsdkid

public text v1 · immutable
·published 2006-08-11 14:38 UTC
rendered paste body
	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