Este codigo es en Visual Basic, seguramente tenes que modificar cosas para hacerlo en ASP.
Public Function Compactar(cBaseDatosOrigen As String, cBaseDatosDestino As String)
If Archivos.FileExists(cBaseDatosDestino) Then
Archivos.DeleteFile cBaseDatosDestino, True
End If
BaseDatos.DBEngine.CompactDatabase cBaseDatosOrigen, cBaseDatosDestino
BaseDatos.Quit
' If Archivos.FileExists(cBaseDatosOrigen) Then
' Archivos.DeleteFile cBaseDatosOrigen, True
' End If
If Archivos.FileExists(cBaseDatosDestino) Then
Archivos.CopyFile cBaseDatosDestino, cBaseDatosOrigen, True
Archivos.DeleteFile cBaseDatosDestino, True
End If
Compactar = True
End Function
Public Function Reparar(cBaseDatos As String)
BaseDatos.DBEngine.RepairDatabase cBaseDatos
BaseDatos.Quit
Reparar = True
End Function
Private Sub Class_Initialize()
Set BaseDatos = New Access.Application 'Crea el objeto Acces
Set Archivos = New FileSystemObject 'Crea un objeto para el manejo de archivos
End Sub
Private Sub Class_Terminate()
Set BaseDatos = Nothing
Set Archivos = Nothing
End Sub
Saludos...
Guy.-