Access veritabanını web üzerinden sıkıştırıp, küçülterek hatalarını gideren(Compact and Repair) örnek bir kod.
Eski dosyayı "oldFile" değişkeninde belirtebilirsiniz ve yeni olacak veritabanını "newFile" değişkeninin değerinde isimlerini ayarlamalısınız.
<%
  oldFile = Server.MapPath("db.mdb")
  newFile = Server.MapPath("bak.mdb")

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& oldFile
  strConnBak = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & newFile
   
  Set objJRO = Server.CreateObject("JRO.JetEngine")
  objJRO.CompactDatabase strConn, strConnBak
  Set obj

İçeriğin devamı sadece üyeler içindir!