{%
Dim useList   = (CurrentADC.PropValue("useList") = "1") ' Convert to boolean
Dim inputName = CurrentQuestion.InputName()
Dim inputValue
Dim caption

Dim i

If useList Then %}
    <select name="{%= inputName %}">
        <option value=""></option>
    {% 
    Dim attrSelected
    For i = 1 To CurrentQuestion.AvailableResponses.Count 
        attrSelected = On(CurrentQuestion.AvailableResponses[i].IsSelected, "selected=\"selected\"", "")
        inputValue   = CurrentQuestion.AvailableResponses[i].InputValue()
        caption      = CurrentQuestion.AvailableResponses[i].Caption
        %}
        <option value="{%= inputValue %}" {%:= attrSelected %}>{%= caption %}</option>
    {% Next %}
    </select>
{% Else %}
    <ul>
        {% 
        Dim inputId
        Dim attrChecked
        For i = 1 To CurrentQuestion.AvailableResponses.Count 
            inputId     = (inputName + "_" + i).Replace("U", "askia-input")
            attrChecked = On(CurrentQuestion.AvailableResponses[i].IsSelected, "checked=\"checked\"", "")
            inputValue  = CurrentQuestion.AvailableResponses[i].InputValue()
            caption     = CurrentQuestion.AvailableResponses[i].Caption
        %}
        <li class="askia-response">
            <input type="radio" name="{%= inputName %}" id="{%= inputId %}" value="{%= inputValue %}" {%:= attrChecked %} />
            <label for="{%= inputId %}" class="askia-radio"></label>
            <label for="{%= inputId %}" class="askia-response-label">{%= caption %}</label>
        </li>
        {% Next %}
    </ul>
{% EndIf %}