{% Dim instanceId = CurrentADC.InstanceId Dim inputName = CurrentQuestion.InputName() Dim inputID Dim inputValue = CurrentQuestion.InputValue() Dim caption Dim image Dim index Dim attrExclusive Dim total Dim maxPerColumn Dim remainder Dim columnCounter Dim ar = CurrentQuestion.AvailableResponses Dim attrSelected Dim i Dim j Dim k Dim flowDirection Dim isHeader Dim otherIDarray As NumberArray Dim arrOpenValues As StringArray Dim arrOpenNames As StringArray Dim otherID For i = 1 to ar.Count If (ar[i].isOpen = True) Then arrOpenValues.Push(ar[i].OpenQuestion.InputValue()) arrOpenNames.Push(ar[i].OpenQuestion.InputName()) otherIDarray.Push(ar[i].Index) Endif Next i Dim splitcapsArr Dim arialabel Dim inputVal = CurrentQuestion.InputValue() Dim numberOfColumns = CurrentADC.PropValue("columns").ToNumber() Dim flow = CurrentADC.PropValue("columnsFlow") Dim nbColumns = numberOfColumns Dim showHeader =CurrentADC.PropValue("showHeaders") ="1" Dim expandableHeaders = CurrentADC.PropValue("expandableHeaders") ="1" Dim accordionInitialState = CurrentADC.PropValue("accordionInitialState") Dim inputAnswers = "" For k = 1 To CurrentQuestion.Answers.Count inputAnswers = inputAnswers + CurrentQuestion.Answers[k].InputValue().ToString() + On(k < CurrentQuestion.Answers.Count,",","") Next k %} {% IF (numberOfColumns > 0) Then columnCounter = numberOfColumns For i = 1 To ar.Count If (flow = "vertical") Then flowDirection = (((1 + (Int((i - 1) / nbColumns))) + ((Int(ar.Count / nbColumns)) * ((i - 1) mod nbColumns))) * (1 - (Int(i / ((ar.Count + 1) - (ar.Count mod nbColumns)))))) + ((Int(i / ((ar.Count + 1) - (ar.Count mod nbColumns)))) * i) Else flowDirection = i EndIf inputValue = ar[flowDirection].InputValue() image = ar.ResourceURL[flowDirection] index = ar[flowDirection].index attrExclusive = On(ar[flowDirection].IsExclusive, " exclusive", "") isHeader = ar[flowDirection].isHeader splitcapsArr = ar[flowDirection].Caption.Split("|") IF splitcapsArr.Count > 1 THEN caption = splitcapsArr[1] ariaLabel = splitcapsArr[2] ELSE caption = splitcapsArr[1] ariaLabel = splitcapsArr[1] ENDIF if ( (columnCounter mod numberOfColumns) = 0 ) Then %}