similar a esto mira....
Código:
<select multiple="multiple" name="criterio">
<option value="0">Primera Opcion</option>
<option value="1">Primera Opcion</option>
<option value="2">Primera Opcion</option>
<option value="3">Primera Opcion</option>
</select>
y esto en la parte donde recibes los datos
Código:
request.form("criterio")
Dim criterio(), I
I = 0
For Each Valor In Request.Form("criterio")
Redim Preserve criterio(I)
criterio(I) = Valor
I = I + 1
Next
te sirve????