<% If Request.Cookies("login") = "" Or Request.Cookies("login") > "1" Then Response.Cookies("action") = "error" Response.Write("") Response.End End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If Dim objFSO, objJRO, strLocation,strName Dim strConn, strConnBak, strLocationType, strDB Dim strTempDB strLocation = Request("location") strName = Request("name") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If err <> 0 Then Response.Write"" err.clear Response.End End If strDB = strLocation & "\" & strName strTempDB = strLocation & "\mailerpro_" & Replace(Date(),"/","") & ".mdb" strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & strDB strConnBak = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTempDB Set objJRO = Server.CreateObject("JRO.JetEngine") If err <> 0 Then Response.Write"" err.clear Response.End End If objJRO.CompactDatabase strConn, strConnBak If err <> 0 Then Response.Write"" err.clear Response.End End If Set objJRO = Nothing If objFSO.FileExists(strDB) And objFSO.FileExists(strTempDB) Then objFSO.DeleteFile(strDB) objFSO.MoveFile strTempDB, strDB End If Set objFSO = Nothing Response.Cookies("compact") = "yes" Response.Redirect"access_maintenance.asp" %>