compattare db

[marco25b]

Ciao a tutti!!
sto cercando di compattare il mio database con questo script:

<%
sub compatta(origine)
spezza=split(origine,"/")
if ubound(spezza)=0 then
nomedb=origine
else
nomedb=spezza(ubound(spezza))
end if
arrnome=split(nomedb,".")
nuovonome=arrnome(0)&"_bak."&arrnome(1)
destinaz=replace(origine,nomedb,nuovonom
e)

set objcompact = server.createObject("JRO.JetEngine")
objcompact.compactDatabase "provider=Microsoft.Jet.OLEDB.4.0;"&"Data source=" & Server.mapPath(origine), "provider=Microsoft.Jet.OLEDB.4.0;"&"Data source=" & Server.mapPath(destinaz)
set objcompact = nothing

set fso=server.createobject("scripting.filesystemObjec t")
fso.deletefile server.mappath(origine),true
fso.movefile server.mappath(destinaz),server.mappath(origine),t rue
fso.deletefile server.mappath(destinaz),true
end sub
''''''''''''''chiamata della funzione
database="/mdb-database/home.mdb"
call compatta(database)
%>

il problema che il db è in uso e con questo script non ci riesco ... come posso fare?

grazie a tutti
ciaoo

[rixx]

cosa vuole dire che è in uso?

[marco25b]

non posso compattare il db xkè è aperto! ma se po fa?

[rixx]

no

[marco25b]

quindi mi tocca ogni volta vietare l accesso al sito x compattare..
Grazie rixx ciao

[rixx]