adcutil/templates/adc/all/resources/dynamic/single.html

Utilities tools for Askia Design Control

{%
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
            attrChecked = On(CurrentQuestion.AvailableResponses[i].IsSelected, "checked=\"checked\"", "")
            inputValue  = CurrentQuestion.AvailableResponses[i].InputValue()
            caption     = CurrentQuestion.AvailableResponses[i].Caption
        %}
        <li>
            <input type="radio" name="{%= inputName %}" id="{%= inputId %}" value="{%= inputValue %}" {%:= attrChecked %} />
            <label for="{%= inputId %}">{%= caption %}</label>
        </li>
        {% Next %}
    </ul>
{% EndIf %}