求助一个关于replace函数应用问题

<%
Function myReplace(myString)
myString=Replace(myString,"&","&amp;")         '替换&为字符实体&amp;
myString=Replace(myString,"<","&lt;")          '替换<
myString=Replace(myString,">","&gt;")          '替换>
myString=Replace(myString,chr(10),"<br>")      '替换回车符  
myString=Replace(myString,chr(32),"  ")    '替换空格符
myString=Replace(myString,chr(9)," &nbsp; &nbsp; &nbsp; &nbsp;")     '替换Tab缩进符
myString=Replace(myString,chr(39),"&acute;")   '替换单引号
myString=Replace(myString,chr(34),"&quot;")    '替换双引号
myReplace=myString                             '返回函数值
End Function
%>

在xp系统中调用以上函数没有问题，但是当我把文件传到win2003服务器上运行时，就出错了。请各位高手指点一下，这是为什么啊？