Mit ASP Dateien an den Client senden

[Christl]

Hallo zusammen,

ich möchte mit ASP eine vom Server generierte Datei an den Client senden.

Ich beziehe mich dabei auf folgenden Artikel von ASPheute . Dabei wird eine Komponente von AlpaSierraPapa benutzt, die es ermöglichen soll, eine Datei in den Cache zu lesen und dann beim Client zum speichern anzubieten.

Die Datei erstellen und zu formatieren funktioniert tadellos, auch das Speicher auf dem Server funktioniert, nur wenn er an die Stelle des Scriptes kommt, wo er die Datei beim Client speichern soll bringt er folgende Fehlermeldung:

Serverobjekt- Fehler 'ASP 0178 : 80070005' 


Server.CreateObject-Zugriffsfehler 


/aquadoneu/gesperrt/shop_neu/main_shop4a.asp, line 804 


Server.CreateObject konnte beim Überprüfen der 

Berechtigungen nicht aufgerufen werden. 

Der Zugriff auf dieses Objekt wurde verweigert. 

 

In der Zeile 804 steht folgendes:

 

804    Set objFileCache = Server.CreateObject("Softwing.FileCache.1")

805    bXlsFile = objFileCache.InitFromFile(strFileName, False)

806    objFileCache.MimeType = "application/msexcel"

807    bXlsFile = objFileCache.Write()[/PHP]

Ich habe mit Googlen nicht sonderlich verwertbares rausgefunden, nur dass andere scheinbar selbiges Problem haben: hier

Auch auf Microsoft bekommt man auf der Suche nach der Fehlermeldung mehrere "Lösungen" angeboten, die nichts fruchten... (die beziehen sich dann auf FrontPage etc. und das benutz ich nun wirklich nicht... .. alle anderen Lösungsvorschläge bin uch schon durchgegangen und hab auch alle Schreibrechte vergeben etc..)

Zum System: Win2000 SP4

Hat jemand von Euch noch eine Idee?

[Christl]

Ich versuche nun, mit

Response.AddHeader "Content-Disposition", "attachment;filename=deinename.xls"

Response.ContentType = "application/vnd.ms-excel"

die Datei zu übertragen... Jetzt bietet er mir ein Downloadfenster zum Speichern einer Exceldatei an. Aber er pfriemelt mir den gesamten HTML-Code in die Exceldatei rein, das was ich vorher als Tabellenblatt etc.pp. formatiert und reingeschrieben hatte, ist weg....

Set xlApp = Server.CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)


xlApp.Application.Visible = FALSE

Dann definier ich meine Überschriften:

With xlApp.ActiveSheet.Cells(3,2)

        .Value = "Preisliste XYZ"

        .Font.Italic = True

        .Font.Name = "Tahoma"

        .Font.Size = 13

        .MergeCells = True

End With

Dann hüpf ich durch die Datenbank und such die erforderlichen Daten raus und schreib sie in die Tabelle...

'Ausgabeschleife

DO WHILE NOT objRS.EOF


'********************************************

xlApp.ActiveSheet.Cells(iRow,1).Value = objRS3.Fields("obergruppe")

xlApp.ActiveSheet.Cells(iRow,2).Value = objRS3.Fields("gruppe")

....

Dann könnte ich die Datei speichern, das hat auch geklappt..

xlSheet.SaveAs Server.MapPath(strFileName)

Wenn ich aber nun die Datei übertragen will....

Set objFileCache = Server.CreateObject("Softwing.FileCache.1")

bXlsFile = objFileCache.InitFromFile(strFileName, False)

objFileCache.MimeType = "application/msexcel"

bXlsFile = objFileCache.Write()

bringt er mir den Fehler...

Ich hab das nun durch das Response.AddHeader ersetzt, aber wie gesagt, dann ist nur noch HTML in der Datei....

Vielleicht weiss ja doch einer noch was dazu...:beagolisc