VBNet - Форум - Одновременное подключение к SQL 2000 и Access

Вопрос: Одновременное подключение к SQL 2000 и Access Добавлено: 16.03.04 12:25

Автор вопроса: Helen Chirkova

Всем привет! У меня есть сайт на ASP, на страницах которого используется вовод информации из БД MSSQL 2000 и БД Access. Страница работала идеально, вся информация выводилась. После того, как я сделала обычное добавление в БД Access, все изменилось. Страница стала грузиться через раз. Первый раз - все грузит, после обновления выдает ошибку:

Provider error '80004005'

Unspecified error

/is/include/common.asp, line 15

Не могу понять, откуда такая проблема появилаь, вроде бы ничего не меняла.

Вот код страницы Global.asa

<script language="VBScript" runat="server">

Sub Session_OnStart

Session("cn")="Provider=SQLOLEDB.1;Persist Security Info=True;Password=XXX;User ID=XXX;Initial Catalog=XXX;Data Source=XXX"

End Sub

</script>

Вот главная страница:

<%Option Explicit%>

...

...

...

common.asp:

<%

Response.Expires=0

Response.AddHeader "Pragma","no-cache"

Response.AddHeader "cache-control", "no-store"

Response.ExpiresAbsolute=now()-1

Response.CharSet="windows-1251"

Dim conn, ConnDBF, rs

Set conn = server.CreateObject ("ADODB.Connection")

Set ConnDBF = server.CreateObject ("ADODB.Connection")

conn.CursorLocation=3

set rs=server.CreateObject ("ADODB.recordset")

conn.Open session("cn")

ConnDBF.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/.../journale.mdb")

%>

newsarticle.asp:

<%

Dim LevelRS

Set RS = Conn.Execute ("SELECT * FROM ...")

%>

... вывод статей из БД SQL...

<%RS.Close%>

<%Set RS = Nothing%>

newsjournal.asp

<%

Dim test, sql_order

set test=server.createObject("adodb.recordset")

sql_order = "SELECT * FROM Subscribe"

test.open sql_order,ConnDBF

%>

... вывод журналов из БД Access ...

<%test.close%>

<%set test = nothing%>

Возможно, у меня неправильно сделано подключение, помогите, плиз:)

Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: