Dim myreport As ReportDocument = New ReportDocument
 
 
 
Dim logOnInfo As New TableLogOnInfo
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
'The crystal reports template
'myreport.Load(Server.MapPath("reports/new_jobsheet.rpt"))
myreport.Load(Server.MapPath("reports/jobsheet.rpt"))
'myreport.Load(Server.MapPath("reports/test_it2.rpt"))
 
 
For Each crTable In myreport.Database.Tables
logOnInfo = crTable.LogOnInfo
	logOnInfo.ConnectionInfo.ServerName = System.Configuration.ConfigurationManager.AppSettings("DatabaseServer")
	logOnInfo.ConnectionInfo.DatabaseName = System.Configuration.ConfigurationManager.AppSettings("Database")
	'Get the username and pwd from the web.config file
	logOnInfo.ConnectionInfo.UserID = System.Configuration.ConfigurationManager.AppSettings("db_username")
	logOnInfo.ConnectionInfo.Password = System.Configuration.ConfigurationManager.AppSettings("db_password")
 
	crTable.ApplyLogOnInfo(logOnInfo)
	crTable.Location = crTable.Name
Next crTable
 
myreport.Refresh()
Dim strexportfile As String
If m_ID <> "" Then
	strexportfile = m_ID & ".pdf"
Else
	strexportfile = "jobsheet.pdf"
End If
 
'Set the crystal reports parameter for the job numbers
myreport.SetParameterValue("jobnumber", Request.QueryString("id"))
Dim s As System.IO.MemoryStream
Try
	s = myreport.ExportToStream(ExportFormatType.PortableDocFormat)
Catch ex As Exception
	Threading.Thread.Sleep(1000)
	s = myreport.ExportToStream(ExportFormatType.PortableDocFormat)
End Try
 
myreport.Close()
myreport.Dispose()
With HttpContext.Current.Response
	.ClearContent()
	.ClearHeaders()
	.ContentType = "application/pdf"
	.AddHeader("Content-Disposition", "attachment; filename=" & strexportfile)
	Dim b(s.Length) As Byte
	s.Read(b, 0, s.Length)
	.BinaryWrite(s.ToArray)
	s.Flush()
	s.Close()
	.Flush()
	.Close()
	.End()
End With