problemi con replace

[sermanuel]

ho una funzione del genere

<%
function virgolette(stringa)
 virgolette = Replace(stringa, "'", "''") 
  virgolette = Replace(stringa, "'", "`") 
 virgolette = Replace(stringa, "%", "[%]") 
 virgolette = Replace(stringa, "[", "[[]") 
 virgolette = Replace(stringa, "]", "[]]") 
 virgolette = Replace(stringa, "_", "[_]") 
 virgolette = Replace(stringa, "#", "[#]") 
 virgolette = replace(trim(stringa), chr(13)&chr(10), "
")
end function
%> 

che richiamo in questo modo

strSQL="Update link Set home='"&virgolette(request("home"))&"' where id=" &request("id" 

solo che mi legge solo un replace gli altri gli ignora e quindi sono costretta a sceglierne uno e gli altri li virgoletto.
Secondo voi dove può essere il problema?