|
Одновременное подключение к SQL 2000 и Access
#32443228
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
|
Всем привет! У меня есть сайт на 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%>
<!-- #include file="include/common.asp" -->
<html>
<head>
...
</head>
<body>
...
<!--#include file="include/newsarticle.asp" -->
<!--#include file="include/newsjournal.asp" -->
...
</body>
</html>
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%>
Возможно, у меня неправильно сделано подключение, помогите, плиз:)
|
|
|
