Se non volete comprimere un database access attraverso la funzione presente sul programma e volete farlo tramite uno script per svariati motivi, questo è il metodo:

<%
Set db = CreateObject("DAO.DBEngine.35")
db.CompactDatabase "directory del database da comprimere",
"directory del database compresso"
%>