在网络找了几种方法，没有解决，还得回到CSDN?

strsql = "select top " & n & " * from awardnew2  order by newid()"
set rs = conn.execute(strsql)

Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = false
on error resume next
Set ExcelBook = ExcelApp.Workbooks.add
award=cint(award)
ExcelBook.WorkSheets(1).cells(1,10).value =award&"等奖抽奖结果"  
ExcelBook.WorkSheets(1).cells(2,1).value = "客户ID"
ExcelBook.WorkSheets(1).cells(2,2).value = "姓名"
ExcelBook.WorkSheets(1).cells(2,3).value = "性别"
ExcelBook.WorkSheets(1).cells(2,4).value = "手机号码" 
'ExcelBook.WorkSheets(1).cells(2,5).value = "邮编" 
ExcelBook.WorkSheets(1).cells(2,5).value = "地址" cnt=3
content = content & "<tr><td>客户ID</td><td>姓名</td><td>性别</td><td>手机号码</td><td>地址</td></tr>"
if rs.eof and rs.bof then
response.Write("<script>alert('资源有限哦！');window.location='awardnew.asp';</script>")
response.end()
end if在运行的时候提示Set ExcelApp =CreateObject("Excel.Application") 这行错误，我的系统是2003 装的IIS5  以下是错误提示代码
 <font face="宋体" size=2>
<p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2>错误 '800a0046'</font>
<p>
<font face="宋体" size=2>没有权限: 'createobject'</font> 
<p>