Hi, I have an asp page that I call which opens an excel spreadsheet..<BR>Within the code, see below, I use a product that uploads the file..I no longer use this <BR>i.e.<BR><BR>Dim Upload<BR>Set Upload = Server.CreateObject("Persits.Upload.1")<BR>Upload. SendBinary FullName, True, "application/vnd.ms-excel", True<BR>Set Upload = Nothing<BR><BR><BR>and was wondering how I should tweak my code to get the excel to work...<BR><BR><BR>&#060;%@ Language=&#039;VBScript&#039; %&#062;<BR>&#060;% Option Explicit %&#062;<BR><BR>&#060;%<BR>Dim template, FullName, FileName<BR>Dim objApp, objWorkbook, objSheet, objBorder<BR><BR>template = server.mappath("/") & "
eportxlVC.xlt"<BR>FileName = "xlVC" & Session.SessionID & ".xls"<BR>FullName = server.mappath("/") & "
eport\" & FileName<BR><BR>Set objApp = CreateObject("Excel.Application")<BR>if err.number&#060;&#062;0 then<BR> response.write "&#060;span class=""error""&#062;Error: could not create excel document. " & Err.description & "&#060;/span&#062;"<BR> err.clear<BR> ExcelReport = "0"<BR>end if<BR><BR>On Error Resume Next<BR> <BR> objApp.Workbooks.Add template<BR> Set objWorkbook = objApp.ActiveWorkbook<BR><BR> Dim i<BR> <BR> Set objSheet = objWorkbook.ActiveSheet<BR> <BR> objSheet.Cells(1, 1).Value = "Header"<BR> objSheet.Cells(2, 1).Value = "CellContent"<BR> objSheet.Columns(strcellvalue).ColumnWidth = 50<BR> <BR> objSheet.Cells(1, 1).Select<BR><BR> objWorkbook.SaveAs FullName<BR> objWorkbook.close<BR> objApp.Quit<BR><BR> Set objSheet = Nothing<BR> Set objWorkbook = Nothing<BR> Set objApp = Nothing<BR> <BR> Dim Upload<BR> Set Upload = Server.CreateObject("Persits.Upload.1")<BR> Upload.SendBinary FullName, True, "application/vnd.ms-excel", True<BR> Set Upload = Nothing<BR> <BR> Dim fso, f<BR> Set fso = CreateObject("Scripting.FileSystemObject")<BR> If fso.FileExists(FullName) Then<BR> Set f = fso.GetFile(FullName)<BR> f.Delete True<BR> <BR> Set f = Nothing<BR> End If <BR> Set fso = Nothing <BR> <BR> <BR> %&#062;<BR><BR><BR><BR>Thanks<BR>