Dim credenziali As New TableLogOnInfo
Dim report As New ReportDocument

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim selForm As String
Dim nomeReport As String = Request.QueryString("name")


report.Load("C:\Inetpub\wwwroot\Report\" & nomeReport & ".rpt")

Dim connessione As String = Application("Connessione")

credenziali.ConnectionInfo.UserID = RecuperaCredenzialiDaStringaConnessione(connession e, "user id") credenziali.ConnectionInfo.Password = RecuperaCredenzialiDaStringaConnessione(connession e, "password") credenziali.ConnectionInfo.ServerName = RecuperaCredenzialiDaStringaConnessione(connession e, "Data Source")

CrystalStatistiche.LogOnInfo.Add(credenziali)




if nomeReport="report1" then

settaParametri()

else

report.RecordSelectionFormula = "{TABANAGRAFICA.REGIONE} = '" & Request.QueryString("reg")

End If

For intTablesCount As Integer = 0 To report.Database.Tables().Count() - 1

report.Database.Tables(intTablesCount).ApplyLogOnI nfo(credenziali)
For intSubReportCount As Integer = 0 To report.Subreports().Count() - 1

For tabella As Integer = 0 To report.Subreports.Item(intSubReportCount).Database ().Tables.Count - 1 report.Subreports().Item(intSubReportCount).Databa se().Tables(tabella).ApplyLogOnInfo(credenziali)

Next

Next intSubReportCount

Next intTablesCount

EsportainPDF()

End Sub