function array_to_querystring( arrParams )
dim x : x=1
for each param in arrParams
array_to_querystring = "&" & x & "=" & param
x=x+1
next
end function
function array_to_querystring( arrParams )
dim x : x=1
dim output : output=""
for each param in arrParams
output = output & "&" & x & "=" & param
x=x+1
next
array_to_querystring = output
end function