Funzione che potrebbe servire a qualcuno (recupero variabili da url)

[SGr33n]

ah Ok

Quando finirò questo lavoro qui poi e quando tu potrai, vorrei chiederti un paio di cose sull'upload se possibile

[santino83]

ma lo sai che alla fine mi è tornata utile questa funzione? oggi ne ho avuto proprio bisogno

ho fatto una piccola modifica per togliergli il case sensitive (o almeno spero di esserci riuscito )

ps: c'era un errore, in sostanza se la querystring era nulla inseriva cmq &nomeVar=valure, quindi andava in errore poi il tutto, invece così non lo fa +

grazie

function getUrlVariables(varName,value)

	Dim saryVars
	Dim intLenVar
	Dim blnReplaced
	Dim return
	Dim i
	
	blnReplaced = CBool("0")

	saryVars = Split(Request.ServerVariables("QUERY_STRING"),"&")
	intLenVar = Len(varName) + 1

	for i = LBound(saryVars) to UBound(saryVars)
	  if lcase(Left(saryVars(i),intLenVar)) = lcase(varName) & "=" Then
	  	return = return & Left(saryVars(i),intLenVar-1) & "=" & value
	  	if i <> UBound(saryVars) Then return = return & "&"
	  	blnReplaced = CBool("1")
	  else
	    return = return & saryVars(i)
	    if i <> UBound(saryVars) Then return = return & "&"
	  end if
	next
	
	if blnReplaced = False and ubound(saryVars)>0 Then 
	return = return & "&" & varName & "=" & value
	elseif blnReplaced = False then
	return = return & varName & "=" & value
	end if
		getUrlVariables = return
end function

[SGr33n]

bene mi fa piacere santino

Saluti