<!-- noem deze pagina compact.asp -->
<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Comprimeer database</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
</head>
<body>
<b>COMPRIMEER DE DATABASE</b> !<br>
<%
Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
Dim strDatabase, strFolder, strFileName
' geef het volledige path van de database
strFolder = "c:\inetpub\wwwroot\database\"
strDatabase = "database.mdb"
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 ("Er liep iets verkeerds met de vorige poging, aub probeer opnieuw")
.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
%>
<br>
<FORM method="POST" action="">
<%dbList%> <INPUT type="submit" value="Compact" name="cmd"></P>
</FORM><br>
<br>
<%
' comprimeer database en vertel of het is gelukt
Select Case Request.form("cmd")
Case "Compact"
dbCompact Request.form("DBFileName")
response.write "<table width=200 border=0 cellpadding=0 cellspacing=1 bgcolor=""#95954D"" align=center ><tr>"
response.write "<td valign=top><table width=""100%"" border=0 cellpadding=4 cellspacing=0 bgcolor=""#D8D8B4"">"
response.write "<tr><td valign=middle align=center class=titel2>Database " & Request.form("DBFileName") & " is optimized !</td></tr></table></td></tr></table>"
End Select
%>
</body>
</html>