Lo script di compressione e rinomina database funziona perfettamente ma appena assegno la password al database mi da errore...
dove posso inserire il classico pwd=password; per dare i permessi relativi allo script?
codice:
KKPercorso = CartellaDelDatabase
KKMotore = "DAO.DBEngine.36"
KKArrayDB = array("database")%>
	Set miodb = CreateObject(KKMotore)
	miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"),server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb")
	response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb compresso con successo</p>"
	Set miodb=Nothing
	' backuppo il db
	Dim obJfso, objFile
	response.write "<p class='small'>Creo copia di backup ( "& KKArrayDB(i) &"_BKP_" & oggi & "_" & ora &".mdb ) in corso..."
	Set objFso=Server.CreateObject("scripting.filesystemobject")
	Set objFile=objFso.GetFile(server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"))
	objFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &"_BK_" & oggi & "_" & ora & ".mdb") 
	response.write "<p class='small'>Copia di backup creata!</p>"
	Set objFSO = Nothing
	Set objFile = Nothing
	' rinomino il database 
	response.write "<p class='small'>Ridenominazione del database " & KKArrayDB(i) &".mdb in corso...."
	Dim myobjFSO 
	Set myobjFSO = CreateObject("Scripting.FileSystemObject") 
	myobjFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &"_new.mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &".mdb") 
	response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb rinominato con succcesso

"
	Set myobjFSO = Nothing
next