<%@ Page Language="vb" validaterequest="false" Debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<script language="VB" runat="server">
sub page_load (obj as object, e as eventargs)
Try
'creo un oggetto di tipo jetEngine
Dim ObjCompatta As JRO.JetEngine
ObjCompatta = New JRO.JetEngine
ObjCompatta.CompactDatabase ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("miodatabase.mdb"))
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Errore")
End Try
end sub
</script>