Problema con codice misto ASP + Javascript

[fraude]

Ciao, utilizzo questo codice misto ASP + Javascript su una select multiple:

<%

Function SELECTED(firstVal, secondVal)
If cSTR(firstVal) = cSTR(secondVal) then
   SELECTED = " SELECTED"
End If
End Function

%>

<select size="8" name="SelectMultipla" multiple
onChange="window.document.location='stessapagina.asp?
strVariabile='+this.options[this.selectedIndex].value+'';">

<%

valore_strVariabile = request.querystring("strVariabile")
If valore_strVariabile = "" then 

%> 
                                        
	<option>Seleziona un valore</option>
	<option value="10">10</option>
	<option value="100">100</option>
	<option value="150">150</option>

<% Else %>
     
     <option>Seleziona un valore</option>
     <option value="10" <%=SELECTED("10", valore_strVariabile)%>>10</option>
     <option value="100" <%=SELECTED("100", valore_strVariabile)%>>100</option>
     <option value="150" <%=SELECTED("150", valore_strVariabile)%>>150</option>

     
<% End If %>	

</select>

La mia necessità è quella di poter selezionare più valori contemporaneamente dalla select multipla e passarli in query string alla stessa pagina asp per poi inviarli ad un form.

Non ci riesco perchè se seleziono valore 100 nella combobox :

h t t p ://localhost/userTest/stessaPagina.asp?strVariabile=100

e se poi seleziono valore 150 nella combobox, il valore 100 viene perduto:

h t t p ://localhost/userTest/stessaPagina.asp?strVariabile=150

invece a me serve una cosa del tipo:

h t t p ://localhost/userTest/stessaPagina.asp?strVariabile=100,150

E' fattibile questa cosa?
Grazie

[Domenix]

<%
Function SELECTED(firstVal, secondVal())
	For e = 0 To UBound(secondVal)
		If cSTR(firstVal) = cSTR(secondVal(e)) then
		   SELECTED = " selected=""selected"""
		End If
	Next
End Function

%>
<form>
<select size="8" name="SelectMultipla" multiple="multiple">

<%

valore_strVariabile = Request.QueryString("SelectMultipla")
If len(valore_strVariabile) = 0 then 
%> 
                                        
	<option value="">Seleziona un valore</option>
	<option value="10">10</option>
	<option value="100">100</option>
	<option value="150">150</option>

<% 
Else 
If InStr(valore_strVariabile,",") > 0 then
valore_strVariabile = Replace(valore_strVariabile," ","")
elementi = split(valore_strVariabile,",")
Else
elementi = array(valore_strVariabile)
End If
%>
     
     <option value="">Seleziona un valore</option>
     <option value="10"<%=SELECTED("10", elementi)%>>10</option>
     <option value="100"<%=SELECTED("100", elementi)%>>100</option>
     <option value="150"<%=SELECTED("150", elementi)%>>150</option>

     
<% 
End If 
%>	
</select>
<input type="submit" value="vai" />
</form>

[fraude]

Tante grazie, a buon rendere