scrivere su una cella excel

[tigre2209]

ho provato ad aprire un foglio excel in asp
con Set ExcelApp = CreateObject("Excel.Application")

ma mi da questo errore:
Il componente ActiveX non può creare l'oggetto: 'Excel.Application'

invece se apro un foglio excel con asp:
Set rs= Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
rs.Source = "SELECT * FROM [foglio1$] "
rs.Open()

cosi apro il file excel
ma come posso scrivere su una singola cella?
esempio
se devo scrivere il cognome sulla cella(5,6)

che istruzione devo dare?

[ale_1976]

<%
Dim file
file = server.Mappath("/public/documento.xls")
With Response
    .Buffer = True
    .ContentType = "application/vnd.ms-excel"
    .AddHeader "content-disposition", "inline; filename=" & file

    'qui ti crei la tabella
%>
    <table style="border:1px solid #333333;">
        <tr><td style="border:1px solid #333333;">Nome</td><td style="border:1px solid #333333;">Cognome</td><td style="border:1px solid #333333;">Telefono</td><td style="border:1px solid #333333;">Email</td><td style="border:1px solid #333333;">Sito</td></tr>
        <tr><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td></tr>
        <tr><td style="border:1px solid #333333;">Alessio</td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td></tr>
        <tr><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;">Prova</td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td></tr>
        <tr><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;">465465465</td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td></tr>
        <tr><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td><td style="border:1px solid #333333;"></td></tr>
    </table>
<%
    .Flush
    .End
End With
%> 

Prova...

[tigre2209]

cosi funziona,
perchè se su visual basic 6 riesco ad aprire un file excel predisposto cosi:

Dim APPEXCEL As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet

APPEXCEL.Visible = False
Set cartExcel = Excel.Workbooks.Open(App.Path & "/elenco")
Set foglioExcel = Excel.Worksheets.Item(1)
Dim APPOGGIO
cartExcel.Activate

....e in questo modo riesco a scrivere su una cella stabilita:

foglioExcel.Cells(9 + i, 1).Value = numero

ho provato come dicevo con
Set ExcelApp = CreateObject("excel.application")

ma mi da errore :
Autorizzazione negata: 'CreateObject'