Still getting access denied
ok i've done what is suggested on other sites and i'm still get this freaking exception
here's my code
VB Code:
Dim rpt As New ReportDocument
Dim strExportFile As String = Server.MapPath(".") + "\Reports\Exports\" + Session.SessionID.ToString + ".pdf"
Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = _
New CrystalDecisions.Shared.DiskFileDestinationOptions
If Page.Request.QueryString("Quotation") <> "" AndAlso Page.Request.QueryString("Quotation") = "true" Then
Page.Title = "Quotation"
rpt.FileName = Server.MapPath(".") + "\Reports\Quotation.rpt"
Dim QuoteID As Decimal = Decimal.Parse(Page.Request.QueryString("QuoteID"))
Dim Revision As String = Page.Request.QueryString("Revision")
For Each parm As CrystalDecisions.Shared.ParameterField In _
rpt.ParameterFields
With parm
Dim ParmName As String = .ParameterFieldName
Select Case ParmName.ToLower
Case "@pQuoteID".ToLower
.CurrentValues.AddValue(QuoteID)
Case "@pRevision".ToLower
.CurrentValues.AddValue(Revision)
Case "TermsConditions".ToLower
'Load the terms and conditions from the file.
.CurrentValues.AddValue(LoadTermsAndConditions())
Case "CompanyName".ToLower
'Load the company name
.CurrentValues.AddValue(LoadCompanyInfo(True))
Case "CompanyContactInfo".ToLower
'Load the company address info and phone and fax
.CurrentValues.AddValue(LoadCompanyInfo(False))
End Select
End With
Next
ElseIf Page.Request.QueryString("CustPros") <> "" AndAlso Page.Request.QueryString("CustPros") = "true" Then
Page.Title = "Customer/Prospect Report"
rpt.FileName = Server.MapPath(".") + "\Reports\CustomerProspects.rpt"
End If
With rpt.ExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
DiskOpts.DiskFileName = strExportFile
.DestinationOptions = DiskOpts
End With
rpt.Export()
rpt.Close()
rpt.Dispose()
DiskOpts = Nothing
Response.Redirect("Reports/Exports/" + Session.SessionID.ToString + ".pdf", False)
and this is the exception i'm still getting
Access denied.Error in File C:\WINDOWS\TEMP\Quotation {4DCF44E3-6B8E-42BA-AC21-388B8E47EFEA}.rpt:
Access to report file denied. Another program may be using it. *