<%
  
  On  Error  Resume  Next  
  
  Const MDB_PATH = "C:\Test.mdb"
  
CheckFile  
ListTables  
TestReportWiz  
  
  If Err.Number <> 0  Then  
     PrintError("")  
  End  If  
  
  Sub TestReportWiz()  
  
     Dim objWiz  
     Set objWiz = Server.CreateObject("AspWebSolution.ReportWizard2")  
      
    'Make sure you initialize before adding any HTML text  
     objWiz.Init "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= "(& MDB_PATH)  
          
    'put this where you want your reports  
     objWiz.DisplayReports  
      
     Set objWiz =  Nothing  
  
  End  Sub  
  
  Sub PrintError(s)  
     If s= "" Then s= "Error #: "& Err.Number & "<br>"& Err.Description & "<br>Source: "& Err.Source  
     Response.Write "<font color=red>"& s & "</font>"
  End  Sub  
  
  Sub CheckFile  
     Dim FSO  
     Set FSO = Server.CreateObject("Scripting.FileSystemObject")  
     If Not FSO.FileExists(MDB_PATH)  Then  
         PrintError("Your database file <b>"& MDB_PATH & "</b> does not exist.")  
     End  If  
  End  Sub  
  
  Sub ListTables()  
   Dim Conn  
   Set Conn = Server.CreateObject("ADODB.Connection")  
   Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= "& MDB_PATH ";"&
    
'Create catalog object  
   Dim Catalog  
   Set Catalog = Server.CreateObject("ADOX.Catalog")  
   Set Catalog.ActiveConnection = Conn  
    
'List tables And columns  
   Dim Table, added  
   For Each Table In Catalog.Tables  
     If Table.Type = "TABLE" Then  
       Response.Write Table.Name & "<br>"
       added=True  
     End  If  
   Next  
    
   If Not Added  Then  
     PrintError("You do not have any tables in your database")  
   End  If  
  End  Sub  
  
%>