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

{% EndIf %}