codice:
Function URL_rewriter(cUrl, cQueryString)
	Dim URhttp
	Set URhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
	URhttp.open "GET", cUrl & cQueryString, false
	URhttp.Send()
->	UR = URhttp.ResponseText
	Set URhttp = Nothing
End Function

errata corrige:
URL_rewriter = URhttp.ResponseText