{%
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
%}