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

[fre2004]

Quando ho cercato di acceddere al mio sito, mi è comparso questo messaggio:

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

[Microsoft][ODBC Microsoft Access Driver] Not enough space on temporary disk.

/offerte/Index.asp, line 8

mi aiutate please???

in ogni pagina del sito ho 5 recordset, il codice è

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_linkofferte_STRING
Recordset1.Source = "SELECT testo FROM Url WHERE id=1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_linkofferte_STRING
Recordset2.Source = "SELECT testo FROM Url WHERE id=2"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_linkofferte_STRING
Recordset3.Source = "SELECT testo FROM Url WHERE id=3"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_linkofferte_STRING
Recordset4.Source = "SELECT testo FROM Url WHERE id=4"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<%
Dim Recordset5
Dim Recordset5_numRows

Set Recordset5 = Server.CreateObject("ADODB.Recordset")
Recordset5.ActiveConnection = MM_linkofferte_STRING
Recordset5.Source = "SELECT testo FROM Url WHERE id=5"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 1
Recordset5.Open()

Recordset5_numRows = 0
%> 

sotto al tag </html> ho:

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
<%
Recordset5.Close()
Set Recordset5 = Nothing
%> 

[wallrider]

sicuramente ti conviene chiudere subito i recordset appena li hai utilizzati, ma sei sicuro che non puoi usare un solo recordset in un ciclo for?

Dim Rs1 
Dim Rs1_numRows 

Set Rs1 = Server.CreateObject("ADODB.Recordset") 
for i= 1 to 5
    Rs1.ActiveConnection = MM_linkofferte_STRING 
    Rs1.Source = "SELECT testo FROM Url WHERE id=1" 
    Rs1.CursorType = 0 
    Rs1.CursorLocation = 2 
    Rs1.LockType = 1 
    Rs1.Open()
    'FAI QUELLO CHE DEVI
    Rs1.close()
next
Rs1_numRows = 0
Set Rs1=nothing

[PHP] [/ PHP]

[fre2004]

puoi farmi un esempio?