{% Dim useList = (CurrentADC.PropValue("useList") = "1") ' Convert to boolean Dim inputName = CurrentQuestion.InputName() Dim inputValue Dim caption Dim resource Dim ar = CurrentQuestion.AvailableResponses Dim i If (useList) Then %} {% Else %} {% Dim inputId Dim attrChecked For i = 1 To ar.Count inputId = inputName + "_" + i attrChecked = On(ar[i].IsSelected, "checked=\"checked\"", "") inputValue = ar[i].InputValue() caption = ar[i].Caption resource = ar.ResourceURL[i] %} {% Next %}
{% EndIf %}