ASP导出数据到Excel

ASP导出数据到Excel从网上找的，但老是网页有错误。
代码如下
<input type="button" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint">
<SCRIPT LANGUAGE="javascript">
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var hang = db1.rows.length;

var lie = db1.rows(0).cells.length;

for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = db1.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
conn.close
set conn=nothing
</SCRIPT>
-----
还有这个的原理是什么？毛病出在哪里？
我加上数据库连接和查询也不行。