{% Dim inputName = CurrentQuestion.InputName() Dim responseTextPosition = CurrentADC.PropValue("responseTextPosition") Dim inputValue Dim caption Dim inputId Dim image Dim index Dim i Dim j Dim ar = CurrentQuestion.ParentLoop.Answers Dim labelCount = 0 IF CurrentADC.PropValue("rightLabelText") <> "" Then labelCount = labelCount + 1 EndIF IF CurrentADC.PropValue("leftLabelText") <> "" Then labelCount = labelCount + 1 EndIF For j = 1 To ar.Count inputName = CurrentQuestion.Iteration(ar[j].Index).InputName() caption = ar[j].Caption image = ar.ResourceURL[j] %} {% Next %}
{% For i = 1 To ar.Count inputValue = CurrentQuestion.iteration(ar[i].Index).InputValue() caption = ar[i].Caption image = ar.ResourceURL[i] index = i inputName = CurrentQuestion.iteration(ar[i].Index).InputName() %}
{% IF responseTextPosition = "top" Then %}
{%:= caption %}
{% EndIF %} {% IF image <> "" Then %} {% EndIF %} {% IF responseTextPosition = "bottom" Then %}
{%:= caption %}
{% EndIF %}
{% Next %}
{% IF CurrentADC.PropValue("leftLabelText") <> "" and CurrentADC.PropValue("displayLabelText") <> "none" Then %} {% EndIF %} {% IF CurrentADC.PropValue("rightLabelText") <> "" and CurrentADC.PropValue("displayLabelText") <> "none" Then %} {% EndIF %}
{%:= CurrentADC.PropValue("leftLabelText") %}
{%:= CurrentADC.PropValue("rightLabelText") %}
{% IF CurrentADC.PropValue("leftLabelText") <> "" and CurrentADC.PropValue("displayLabelText") <> "none" Then %} {% EndIF %} {% IF CurrentADC.PropValue("rightLabelText") <> "" and CurrentADC.PropValue("displayLabelText") <> "none" Then %} {% EndIF %}
{%:= CurrentADC.PropValue("leftLabelText") %}
{%:= CurrentADC.PropValue("rightLabelText") %}