Da un form i cui input non sono mai di numero definito, devo creare un ciclo che splitti tutte le query della stringa e li riunisca in modo ordinato come vorrei io.
Ho iniziato con lo splittare la querystring per "&" ottenendo questo:
r_Dimensione=1
r_Ris_Std=0
Ris_Std_4|=1024 x 768
r_Freq_Std=1
r_Dot_Pitch=1
r_Multimediale=1
r_Colore=1
r_Certificazione=0
Certificazione_10|=ISO-13406-2
Certificazione_10|=TCO 03
Certificazione_10|=TCO 99
r_DVI=1
Elimino poi tutti gli input che iniziano per "r_" controllando il left dell'array e fin quì ok! Allora ho provato con questo ciclo
codice:
dim strQuery, arrQuery
strQuery = request.ServerVariables("QUERY_STRING")
strQuery = replace(strQuery,"%E0","à")
strQuery = replace(strQuery,"%EC","ì")
strQuery = replace(strQuery,"%7C","|")
strQuery = replace(strQuery,"%2C",",")
strQuery = replace(strQuery,"%2F",",")
strQuery = replace(strQuery,"+"," ")
arrQuery = split(strQuery,"&")
for i = 2 to ubound(arrQuery)-1
if left(arrQuery(i),2) = "r_" then
arrInput = ""
else
arrInput = split(arrQuery(i),"=")
for x = 0 to ubound(arrInput)
strInput = strInput & arrInput(x) & "-"
arr1Input = split(arrInput(x),arrInput(0))
for z = 0 to ubound(arr1Input)
if arr1Input(z) <> "" then
str2Input = str2Input & arr1Input(z) & ", "
end if
next
next
end if
query = query & arrQuery(i)&"
"
next
ma faccio solo confusione 
Io vorrei ottenere questo risultato:
4=1024 x 768
10=ISO-13406-2,TCO 03,TCO 99