'**************************************
    ' Name: Compact and Repair Access Databa
    '     se
    ' Description:Compact and Repair 
    You can use the "Compact and Repair" function In Access from ASP code. The following code is an example of how this can be done. Note that when you decide To "Compact and Repair" your Access database, some autonumbers can be changed. Access makes all autonumbers consecutive. 
    This code uses one database, but I'm sure the code can easily be changed so that the listbox displays, For example, all the databases In one folder.
    
    ' By: Chris Peneguy
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=7404&lngWId=4    'for details.    '**************************************
    
    <% 
    Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
    Dim strDatabase, strFolder, strFileName
    '#######################################
    '     ########## 
    '# Edit the following two lines
    '# Define the full path to where your da
    '     tabase is
    strFolder = "F:\InetPub\wwwroot\_db\" 
    '# Enter the name of the database
    strDatabase = "YourAccessDatabase.mdb"
    '# Stop editing here
    '#######################################
    '     ###########
    Private Sub dbCompact(strDBFileName)
    Dim SourceConn
    Dim DestConn
    Dim oJetEngine
    Dim oFSO
    SourceConn = Jet_Conn_Partial & strFolder & strDatabase
    DestConn = Jet_Conn_Partial & strFolder & "Temp" & strDatabase
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set oJetEngine = Server.CreateObject("JRO.JetEngine")
    With oFSO
    if Not .FileExists(strFolder & strDatabase) Then
    Response.Write ("Not Found: " & strFolder & strDatabase)
    Stop
    Else
    if .FileExists(strFolder & "Temp" & strDatabase) Then
    Response.Write ("Something went wrong last time " _
    & "Deleting old database... Please try again")
    .DeleteFile (strFolder & "Temp" & strDatabase)
    End if
    End if
    End With
    With oJetEngine
    .CompactDatabase SourceConn, DestConn
    End With
    oFSO.DeleteFile strFolder & strDatabase
    oFSO.MoveFile strFolder & "Temp" _
    & strDatabase, strFolder& strDatabase
    Set oFSO = Nothing
    Set oJetEngine = Nothing
    End Sub
    Private Sub dbList()
    Dim oFolders
    Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
    Response.Write ("<Select Name=""DBFileName"">")
    For Each Item In oFolders.GetFolder(strFolder).Files
    if LCase(Right(Item, 4)) = ".mdb" Then
    Response.Write ("<OPTION Value=""" & Replace(Item, strFolder, "") _
    & """>" & Replace(Item, strFolder, "") & "</OPTION>")
    End if
    Next
    Response.Write ("</Select>")
    Set oFolders = Nothing
    End Sub
    %>
    <%
    ' Compact database and tell the user the
    '     database is optimized
    Select Case Request.form("cmd")
    Case "Compact"
    dbCompact Request.form("DBFileName")
    Response.Write ("Database " & Request.form("DBFileName") & " is optimized.")
    End Select
    %>
    <P><FONT size="4">Compact and repair database</FONT></P>
    <FORM method="POST" action="">
    <P><%dbList%><INPUT type="submit" value="Compact" name="cmd"></P>
    </FORM>