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