Imports System.Web.Security '   |||||   Required Class for Authentication
Imports System.Data '   |||||   DB Accessing Import
Imports System.Data.OleDb   '   ||||||  Access Database Required Import!
Imports System.Configuration    '   ||||||  Required for Web.Config appSettings |||||

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource

Public Class _1997Sales
	Inherits System.Web.UI.Page
	'   |||||   Database Connection Object  |||||
	Dim MyConn As OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings("strConn"))


#Region " Web Form Designer Generated Code "

	'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

	End Sub
	Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer

	'NOTE: The following placeholder declaration is required by the Web Form Designer.
	'Do not delete or move it.
	Private designerPlaceholderDeclaration As System.Object

	Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
		'CODEGEN: This method call is required by the Web Form Designer
		'Do not modify it using the code editor.
		InitializeComponent()
	End Sub

#End Region

	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		'If Not Page.IsPostBack Then
		CreateReport()
		'End If
	End Sub

	Private Sub CreateReport()
		Dim objReport As New Sales1997
		Dim myResults As CrystalDecisions.CrystalReports.Engine.Table
		Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
		For Each myResults In objReport.Database.Tables
			myLogin = myResults.LogOnInfo
			myLogin.ConnectionInfo.UserID = "admin"
			myResults.ApplyLogOnInfo(myLogin)
		Next
		CrystalReportViewer1.ReportSource = objReport

	End Sub


End Class