Ho una funzione replace anti sql_inj

Function Filtrasql(stringa)
stringa = Replace(stringa "'", "''")
stringa = Replace(stringa "%", "[%]")
stringa = Replace(stringa "[", "[[]")
stringa = Replace(stringa "]", "[]]")
stringa = Replace(stringa "_", "[_]")
stringa = Replace(stringa "#", "[#]")
stringa = Replace(stringa ";", "[;]")
stringa = Replace(stringa "--", "[--]")
stringa = Replace(stringa "+", "[+]")
stringa = Replace(stringa "(", "[)]")
FiltraSql = stringa
End function

richiamo la funzione cosi: Filtrasql(request("campo"))

questo è l'errore...

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03EE)
Previsto ')'
/lastfinale4/inc/filtra.asp, line 3, column 26
stringa = Replace(stringa "'", "''")