<%
     'Initialize variables and objects
      Set objwiz      = Server.CreateObject("AspWebSolution.ReportWizard2")
      
      If Request("database") <> "" Then  
          Session("database") = Request("database")
      End  If
      
      If Session("database") = "" Then  
          'Session("database") = DatabaseName
          Response.Redirect "default.asp"
      End  If
      
     'Set up the connection string
     strConnectionString = "Provider=SQLOLEDB; Data Source= "& SQLServer & "; User Id= "& DatabaseUser & "; Password= "& DatabasePassword & "; Initial Catalog= "
     strConnectionString = strConnectionString &  Replace(Session("database"),"'","''" ) & ";"
      
     objwiz.ReportsFile = Session("database") & ".xml"
     objwiz.Init(strConnectionString)  
             
%>