У меня задача - выкачивать на главной странице сайта (ASP+VBScript) информацию из базы данных MS SQL SERVER 2000, а также инфо из обычного xls файла.
Я подключилась к SQL и проблем с выводм инфо из базы данных нет, все отображается.
К базе MS SQL я подключаюсь таким образом:
<%Option Explicit%>
<%
Response.Expires=0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control", "no-store"
Response.ExpiresAbsolute=now()-1
Response.CharSet="windows-1251"
Dim conn,rs
Set Conn = Server.CreateObject ("ADODB.Connection")
conn.CursorLocation=3
conn.Open session("cn")
set rs=server.CreateObject ("adodb.recordset")
%>
<%
Dim LevelRS
Set RS = Conn.Execute ("SELECT * FROM qryLetters WHERE IsPublic=1 AND DateDiff(d,DateCreated,getdate()) < 8 ORDER BY DateCreated desc")
%>
<html>
<head>
...
</head>
<body>
...
'Какие действия над базой. Затем закрываю
<%RS.Close%>
<%Set RS = Nothing%>
'Где-то здесь нужно подключиться к xls файлу и выкачать инфо
'Делпю таким образом:
<%
Dim ExcelApp
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Worksheets.open "reestr_journal.xls"
%>
...
'Закрываю .xls
<%ExcelApp.Close%>
<%Set ExcelApp = Nothing%>
...
Опять подключаюсь к БД SQL
<%
Set RS = Conn.Execute ("SELECT * FROM st_sections WHERE ParentID=0 ORDER BY OrderID")
%>
<%Loop%>
<%RS.Close%>
<%Set LevelRS = Nothing%>
<%Set RS = Nothing%>
</body>
</html>
Сделала все вышеописанное - выдает ошибку:
Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object: 'Excel.Application'
Что делать
