Eğer hareketli bir web siteniz varsa bu web sitesinin veritabanı gün geç tikçe büyüyecektir. O kadar hızlı bir büyüme yaşayacaktır ki zamanla bitki hücresinin tüm hacmini kaplayan koful misali tüm alanınızı bu veritabanı kaplayacaktır.Böyle bir durumda yapılacak en iyi şey veritabanını bilgisayarınıza indirip "onar"mak.
Access'in bir aracı ile veritabanınızı onarıyor ve boyutunu hiç bir veriyi kaybetmeden bazen %100'lere varan oranlarda azaltabiliyorsunuz. Ancak siteniz çok hareketli ise ve veritabanınızın boyu gerçekten büyükse onu bilgisayarınıza indirmek hem size hem de bu süre içinde sitenizden yararlanmak isteyen kullanıcılara bir işkence olacaktır.
<%
EskiDB = Server.MapPath("dbninyeri.mdb") 'Onarılacak db'nin adresi
YeniDB = Server.MapPath("burasionemlidegil.mdb" )'Burası önemli değil.Değiştirmeyin
BakDB = Replace(EskiDB, "mdb" ,"BAK")
Set objJRO = Server.CreateObject("JRO.JetEngine" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
If (objFSO.FileExists(EskiDB)) Then
Set SourceFile = objFSO.GetFile(EskiDB)
SourceFile.Copy BakDB
objJRO.CompactDatabase "Data Source=" & EskiDB, "Data Source=" & YeniDB
SourceFile.Delete
Set compDB = objFSO.GetFile(YeniDB)
compDB.Copy EskiDB
compDB.Delete
Else
End If
Set objJRO = Nothing
Set objFSO = Nothing
%>