Utilizando ASP podemos compactar una base de datos que tengamos en el servidor de manera que esta sea m?s peque?a y su rendimiento mejor.

El problema de las bases de datos de Acces es que van ceciendo y muchas veces al borrar un registro este no aparece per? sigue ocupando espacio en la base de datos. Al compactar, todos estos espacios ocupados y inservibles s?n borrados.

Veamos como hacerlo...

<%
Function CompactDB(source, Destination)

If trim(source) = "" and trim(Destination) = "" Then
CompactDB = False
Else
Dim DBE
Set DBE = CreateObject("DAO.DBEngine")
DBE.CompactDatabase source, Destination
CompactDB = True
End IF
End Function
%>

A la funcion "CompacDB()" le debemos pasar dos paramoetros que son el nombre del archivo .mdb que sera compactado y el nombre que tendra una ves compactado, atencion que esos nombres no pueden ser iguales.