การทำ COM และ Server ทำอย่างไร จากตัวอย่าง จากตัวอย่างที่ทำไปแล้ว Run ASP ปรากฎวว่ามันมาตายที่ Excel.Application

<%
Set xlApp = Server.CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)


xlApp.Application.Visible = False

With xlApp.ActiveSheet.Cells(1,1)
.Value = "Overall Product Sales 2000"
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 16
End With

With xlApp.ActiveSheet.Cells(3,1)
.Value = "Product Name"
.Font.Italic = True
.Font.Name = "Tahoma"
.Font.Size = 13
.MergeCells = True
End With

With xlApp.ActiveSheet.Cells(3,2)
.Value = "Product Income"
.Font.Italic = True
.Font.Name = "Tahoma"
.Font.Size = 13
.MergeCells = True
End With

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & Server.MapPath("Sales00.mdb")
strQuery = "SELECT ProductName,ProductIncome FROM ProductSales"


While Not objRS.EOF
xlApp.ActiveSheet.Cells(iRow,1).Value = objRS("ProductName")
xlApp.ActiveSheet.Cells(iRow,2).Value = objRS("ProductIncome")
xlApp.ActiveSheet.Cells(iRow,2).NumberFormat = "$#,##0.00"
iRow = iRow + 1
objRS.MoveNext
Wend


xlSheet.SaveAs Server.MapPath("MyExcelBook.xls")


xlApp.Application.Quit

objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
%>