Che errore è?

[digitm]

Microsoft OLE DB Provider for ODBC Drivers error '8007000e'

[Microsoft][ODBC Microsoft Access Driver] System resource exceeded.

/site_news_preview_inc.asp, line 71

come mai mi da questo errore se non ho fatto nessuna modifica al sito?

grazie

[weppos]

VUol dire che il codice non è correttamente scritto e genera un eccesso di uso di risorse di sistema.

Controlla la chiusura di recrodset, connessioni e la distruzione di tutti gli oggetti istanziati.

[digitm]

non saprei dove quardare (lo script l'ho scaricato...). La pagina in cui mi da errore è:



<%
Dim adoNewsCon 'Database Connection Variable
Dim rsNewsConfiguration 'Holds the configuartion recordset
Dim strAdoNewsConfig 'Holds the Database driver and the path and name of the database
Dim strNewsSQL 'Holds the SQL query for the database
Dim intPreviewNewsItems 'Number of files shown on each page
Dim blnNewsLCode 'News page code set to true
Dim strNewsBgColour 'Holds the background colour of the News Administrator
Dim strNewsTextColour 'Holds the text colour of the News Administrator
Dim strNewsTextType 'Holds the font type of the News Administrator
Dim intNewsTextSize 'Holds the font size of the News Administrator
Dim intNewsSmallTextSize 'Holds the size of small fonts
Dim strNewsLinkColour 'Holds the link colour of the News Administrator
Dim strNewsTableColour 'Holds the table colour
Dim strNewsTableBorderColour 'Holds the table border colour
Dim strNewsTableTitleColour 'Holds the table title colour
Dim strNewsVisitedLinkColour 'Holds the visited link colour of the News Administrator
Dim strNewsActiveLinkColour 'Holds the active link colour of the News Administrator

Set adoNewsCon = Server.CreateObject("ADODB.Connection")
strAdoNewsConfig = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database/news.mdb")
adoNewsCon.Open strAdoNewsConfig
Set rsNewsConfiguration = Server.CreateObject("ADODB.Recordset")
strNewsSQL = "SELECT top 8 * From tblConfiguration;"
rsNewsConfiguration.Open strNewsSQL, strAdoNewsConfig
If NOT rsNewsConfiguration.EOF Then
strNewsTextColour = rsNewsConfiguration("text_colour")
strNewsTextType = rsNewsConfiguration("text_type")
intNewsTextSize = CInt(rsNewsConfiguration("text_size"))
intNewsSmallTextSize = CInt(rsNewsConfiguration("small_text_size"))
strNewsTableColour = rsNewsConfiguration("table_colour")
strNewsTableBorderColour = rsNewsConfiguration("table_border_colour")
strNewsTableTitleColour = rsNewsConfiguration("table_title_colour")
strNewsLinkColour = rsNewsConfiguration("links_colour")
strNewsVisitedLinkColour = rsNewsConfiguration("visited_links_colour")
strNewsActiveLinkColour = rsNewsConfiguration("active_links_colour")
blnNewsLCode = CBool(rsNewsConfiguration("Code"))
intPreviewNewsItems = rsNewsConfiguration("No_of_preview_items")
End If

'Reset server object
rsNewsConfiguration.Close
Set rsNewsConfiguration = Nothing

%>

<!-- Web Wiz Site News is written by Bruce Corkhill ©2001-2002
If you want your own Web Wiz Site News then goto http://www.webwizguide.info -->


<table width="100%" height="107" border="0" cellpadding="3" cellspacing="0">
<tr>
<td height="107" valign="top">
<table width="98%" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strNewsTableBorderColour %>" align="center" height="96">
<tr>
<td height="96">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF" bgcolor="<% = strNewsTableColour %>">
<tr>
<td height="97" align="center" valign="top" class="text"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%
Dim rsNews 'Database recordset holding the news items
Dim intNewsItems 'Loop counter for displaying the news items

'Create recorset object
Set rsNews = Server.CreateObject("ADODB.Recordset")

'Initalise the strNewsSQL variable with an SQL statement to query the database
strNewsSQL = "SELECT TOP " & intPreviewNewsItems & " tblNews.* FROM tblNews ORDER BY News_Date DESC;"

'Query the database
rsNews.Open strNewsSQL, adoNewsCon

'If there are no news item to display then display a message seying so
If rsNews.EOF Then Response.Write("<span class=""text"">Sorry, There is no Site News Items to display</span>")

'Loop round to display each of the news items
For intNewsItems = 1 to intPreviewNewsItems

'Iv there are no records then exit for loop
If rsNews.EOF Then Exit For

%>
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="49%" height="39" align="left" valign="top" class="text"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="news_item.asp?NewsID=<% = rsNews("News_ID") %>" target="_self">
<% = rsNews("News_title") %>
</a></font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<div align="justify"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% = rsNews("Short_news") %>
</font>
</div>
</td>
<td width="2%" align="left" class="text"></td>
<%
rsNews.MoveNext
%>
<td width="49%" align="left" valign="top" class="text">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="news_item.asp?NewsID=<% = rsNews("News_ID") %>" target="_self">
<% = rsNews("News_title") %>
</a></font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<div align="justify"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% = rsNews("Short_news") %>
</font> </div></td>
</tr>
<tr>
<td height="4" colspan="3" align="left" class="text"></td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%
'Move to the next record in the recordset
rsNews.MoveNext
Next

'Reset server objects
rsNews.Close
Set rsNews = Nothing
Set strAdoNewsConfig = Nothing
Set adoNewsCon = Nothing
%>
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnNewsLCode = True Then
Response.Write("<span class=""text"" style=""font-size:10px""> </span>")
Response.Write("
<span class=""text"" style=""font-size:10px""></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
</font> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>

[weppos]

Non si parla solo di quella pagina ma dell'intero sito.

[digitm]

può essere problema di server?
sono su aruba.

[weppos]

Originariamente inviato da digitm
può essere problema di server?
sono su aruba.

No, è un problema del codice delle pagine che sovraccarica il server.