asp-combo html-combo

<label>WareHouse
<select  id="loc" name="loc">
<%Call createList(bookTypes)
%>
</select>
</label>

<%

Dim bookTypes(10) 

bookTypes(0)="choice0"

bookTypes(1)="choice1"

bookTypes(2)="choice2"

bookTypes(3)="choice3"

bookTypes(4)="choice3" 

bookTypes(5)="choice4"

bookTypes(6)="choice5"

bookTypes(7)="choice6" 

bookTypes(8)="choice7" 

bookTypes(9)="choice8" 

Sub createList(some_array) 

dim i

response.write("<option value=" & i & ">" & i & "</option>" & vbCrLf)

For Each i in some_array

if i<>"" then

response.write("<option value=" & i & ">" & i & "</option>" & vbCrLf)

end if

Next 

End Sub  

%>