Deprabado... no quisiera meterme en tu interesante discusion
pero no deberias hacer TRIM, deberias hacer REPLACE
<%
sEmail=Request("txtmail")
sEmail=Replace(sEmail,chr(32),"")
sEmail=Replace(sEmail,chr(34),""")
sEmail=Replace(sEmail,chr(39),"'")
....
%>