怎样用vbscript 创建xmlhttp对象？该怎么解决

怎样用vbscript 创建xmlhttp对象？
写了一个
set   xmlhttp=CreateObject( "Msxml2.XMLHTTP ")
结果报错

Microsoft   VBScript   运行时错误   错误   '800a01ad '  

ActiveX   部件不能创建对象:   'Msxml2.HMLHTTP '  


[解决办法]
全部代码帖上来....
[解决办法]
set xmlhttp=Server.CreateObject( "Msxml2.XMLHTTP ")
[解决办法]
或者用 set xmlhttp=new ActiveXObject( "Msxml2.XMLHTTP ")