problema mai esistito

[pegaso22]

Ciao a tutti, ho una pagina che funzionava perfettamente da 2 anni; di punto in bianco ieri si è bloccata e mi da il seguente errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file already in use.

/caricamessaggi.asp, line 17

La pagina fa una semplice lettura da db.
Che errore può essere?
Come mai si è bloccata?

Fatemi sapere.
Grazie mille!

[Roby_72]

Posta lo script.

Roby

[pegaso22]

<%@ Language=VBScript %>
<%

pagina=CInt(request.QueryString("pagina"))


strq = "SELECT * FROM messaggi where ok='S' ORDER BY data DESC"

strprov = "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("dite la vostra/Messaggi.mdb")

set rst=Server.CreateObject("ADODB.Recordset")
set RstCount=Server.CreateObject("ADODB.Recordset")

strcount="SELECT COUNT('ID') as count FROM messaggi where ok='S'"

rst.Open strq, strprov
RstCount.open strcount, strprov 

messPerPagina = 5
rst.MoveFirst
TotMessaggi=rstcount("count")

 
messLastPage=TotMessaggi mod messPerPagina
if messLastPage = 0 then
	messLastPage = messPerPagina
end if

nPagine=((TotMessaggi-1) \ messPerPagina) + 1






if pagina > nPagine then pagina=nPagine


IndiceMessaggio=1
while IndiceMessaggio <  (((pagina - 1) * messPerPagina) + 1)
	rst.movenext
	IndiceMessaggio=IndiceMessaggio+1
wend
if pagina = nPagine then
	messPerPagina=messLastPage
end if

IndiceMessaggio=1

response.write "messaggi="

while (not rst.EOF) and (IndiceMessaggio <= messPerPagina)


	response.write "<font color='#00CC00'>" & nom & " - " & citt & "</font>
"
	response.write mess
	response.write "


"
	rst.movenext
	IndiceMessaggio=IndiceMessaggio+1
wend

response.write "&eseguito=1&nPagine=" & CStr(nPagine)

'end if
%>

questo è lo script; in rosso ho segnato la riga di errore!!
Ripeto, è una pagina che ha sempre funzionato perfettamente!!

[Roby_72]

Sei sicuro che ha sempre funzionato? Forse hai cancellato una riga:

strConn = "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("dite la vostra/Messaggi.mdb")
strprov.Open strConn

Devi aprire anche l'oggetto connessione...

Roby

[pegaso22]

Sono sicurissimo perchè non lo tocco da mesi e mesi e andava sempre perfettamente!!
A parte questo, ho provato a modificare il codice ma non mi ha funzionato(sicuramente ho sbagliato qualcosa).
Potresti mandarmi tutto il codice della parte della connessione?

[pegaso22]

Un altra cosa:
la connessione non la apro così:

rst.Open strq, strprov
RstCount.open strcount, strprov

[pegaso22]

Ciao Roby, mi hai abbandonato all'ultimo.
Aspetto tue notizie.
Il problema c'è sempre.

[Mems]

<%@ Language=VBScript %>
<%

pagina=CInt(request.QueryString("pagina"))


strq = "SELECT * FROM messaggi where ok='S' ORDER BY data DESC"

set conn = server.createObject("ADODB.Connection")
strprov = "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("dite la vostra/Messaggi.mdb")
conn.open strprov

set rst=Server.CreateObject("ADODB.Recordset")
set RstCount=Server.CreateObject("ADODB.Recordset")

strcount="SELECT COUNT('ID') as count FROM messaggi where ok='S'"

rst.Open strq, conn
RstCount.open strcount, conn 

messPerPagina = 5
rst.MoveFirst
TotMessaggi=rstcount("count")

 
messLastPage=TotMessaggi mod messPerPagina
if messLastPage = 0 then
	messLastPage = messPerPagina
end if

nPagine=((TotMessaggi-1) \ messPerPagina) + 1






if pagina > nPagine then pagina=nPagine


IndiceMessaggio=1
while IndiceMessaggio <  (((pagina - 1) * messPerPagina) + 1)
	rst.movenext
	IndiceMessaggio=IndiceMessaggio+1
wend
if pagina = nPagine then
	messPerPagina=messLastPage
end if

IndiceMessaggio=1

response.write "messaggi="

while (not rst.EOF) and (IndiceMessaggio <= messPerPagina)


	response.write "<font color='#00CC00'>" & nom & " - " & citt & "</font>
"
	response.write mess
	response.write "


"
	rst.movenext
	IndiceMessaggio=IndiceMessaggio+1
wend

response.write "&eseguito=1&nPagine=" & CStr(nPagine)

'end if
%>

[pegaso22]

Grazie mille... rifunziona tutto perfettamente!
A volte certe cose non le capisco!!
GRazie di nuovo!

[Mems]

Originariamente inviato da pegaso22
A volte certe cose non le capisco!!

Semplice. Mancava l'oggetto connessione.