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