<%
Dim objReport, strConnectionString
Set objReport = Server.CreateObject("AspWebSolution.ReportWizard")
'ACCESS connection string
strConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _
"C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb;"
'SQL Server connection string
'strConnectionString = "Provider=MSDASQL;Driver={SQL Server};Server=DECASTRO;Database=Northwind;User ID=sa;Password=sa;"
'NOTE: You must call the Init procedure before adding any HTML Tags/Text into your page
objReport.Init(strConnectionString)
%>
ASP Report Wizard
ASP Report Wizard
<%If Request.Form.Count = 0 Then%>
Welcome to the ASP Report Wizard by Tanwani Anyangwe
Please click on a table or report below to browse
or check several tables
and click on Build Report to build a new report.
<%Else%>
[ ">Home ]
<%End If%>
|
<%
objReport.DisplayReports
Set objReport = Nothing
%>
|