Hola
Además de lo que dice
David 
, puedes probar con esto
Código asp:
Ver originalFunction Remplaza(limpia,caso)
cadena = trim(limpia)
Select Case caso
Case 0:
cadena = replace(cadena,"'","'")
cadena = replace(cadena,"¿","¿")
cadena = replace(cadena,"¡","¡")
cadena = replace(cadena,"ñ","ñ")
cadena = replace(cadena,"Ñ","Ñ")
cadena = replace(cadena,"á","á")
cadena = replace(cadena,"Á","Á")
cadena = replace(cadena,"é","é")
cadena = replace(cadena,"É","É")
cadena = replace(cadena,"í","í")
cadena = replace(cadena,"Í","Í")
cadena = replace(cadena,"ó","ó")
cadena = replace(cadena,"Ó","Ó")
cadena = replace(cadena,"ú","ú")
cadena = replace(cadena,"Ú","Ú")
Case Else
cadena = limpia
End Select
Remplaza = cadena
End Function
Suerte