Jag vill lägga in text vid ett särskilt bokmärke i ett word dokument med hjälp av ASP. Jag började med att leta upp kod för hur man skapar word dokument. Hittade exempel på hur man skapar excel dokument, se kod nedan:

<%
'-- declare varaibles -----------------------------------
dim oExcel
'-- END: declare varaibles -----------------------------

'-- create Excel-object ---------------------------------
set oExcel = server.createObject("Excel.Application")
'-- END: create Excel-object ---------------------------

'-- Set Excel parameters -------------------------------
oExcel.Visible = True
oExcel.Application.Workbooks.Add
oExcel.Application.DisplayAlerts = False
oExcel.Worksheets(3).Delete
oExcel.Worksheets(2).Delete
oExcel.Application.DisplayAlerts = True
'-- END: Set excel parameters ---------------------------

'-- Write the worksheet name ---------------------------
oExcel.Application.Worksheets(1).Name = "Testar"
'-- END: Write the worksheet name -----------------------

'-- Set some cells parameters ---------------------------
oExcel.Activesheet.Range("A1", "C1").Font.Bold = True
oExcel.Activesheet.Range("A1", "C1").Interior.ColorIndex = 15
oExcel.Activesheet.Range("A1", "C1").Borders.ColorIndex = 1
'-- END: set some cells parameters ---------------------

'-- set the size of some cells -------------------------
oExcel.Activesheet.Columns("A").ColumnWidth = oExcel.Activesheet.Columns("A").ColumnWidth * 3
oExcel.Activesheet.Columns("B").ColumnWidth = oExcel.Activesheet.Columns("B").ColumnWidth * 5
'-- END: Set the size of some cells ---------------------

'-- Write data into the cells ---------------------------
oExcel.Cells(1, 1) = "Rubrik1"
oExcel.Cells(1, 2) = "Rubrik2"
oExcel.Cells(1, 3) = "Rubrik3"

oExcel.Cells(2, 1) = "Text1"
oExcel.Cells(2, 2) = "Text2"
oExcel.Cells(2, 3) = "Text3"
'-- END: Write data into the cells ---------------------

'-- Clean up the mess -----------------------------------
oExcel.ActiveWorkbook.SaveAs("C:\temp\test.xls")
oExcel.ActiveWorkbook.Close
oExcel.Quit

set oExcel = nothing
'-- END: Clean up the mess -----------------------------

Men vad som händer är att jag får upp detta felmeddelandet:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/japro/t.asp, line 31
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Det ska finnas en annan lösning som inte kräver några
komponenter för att fungera. Är det någon som har en lösning. Eller har det med IUSR_DatorNamnet att göra? Det är inte jag som anger vilken säkerhet filerna ska ha.

/Diana