codice:
<%
function setValueOnQString(theQString,theParameter,theValue)
if inStr(theQString,"&") > 0 then
couples = split(theQString,"&")
for i = 0 to uBound(couples)
temp = split(couples(i),"=")
if temp(0) = theparameter then
newQString = newQString & theParameter & "=" & theValue
else
newQString = newQString & couples(i)
end if
if i < uBound(couples) then newQString = newQstring & "&"
next
elseIf inStr(theQString,"=") > 0 then
couple = split(theQString,"=")
if couple(0) = theParameter then
newQString = newQString & theParameter & "=" & theValue
else
newQString = newQString & couple
end if
end if
setValueOnQString = newQString
end function
qString = request.serverVariables("QUERY_STRING")
if len(qString) = 0 then qString = "lang="
%>
">italiano |
">english