<%@ language="JavaScript" %>

<%

//Create an instance of the application

var app = Server.CreateObject("PagosSpreadSheet.Application");

// Open quote template workbook

app.Workbooks.Open(Server.MapPath("Spreadsheets/Retirement/Retirement_chart.xls"));

// Load workbooks

var wb = app.Workbooks("Retirement_chart.xls");

//Set input values

wb.Names("Monthly_savings").Range.Value = parseInt(Request.QueryString("Monthly_savings"));

wb.Names("Annual_Investment_growth_rate").Range.Value = parseFloat(Request.QueryString("Annual_Investment_growth_rate"));

wb.Names("Annual_Salary_Increase_Rate").Range.Value = parseFloat(Request.QueryString("Annual_Salary_Increase_Rate"));

//Save workbook to a temporary file for streaming

var fileName = Server.MapPath("Spreadsheets/Temp/RetirementChart" + Session.SessionID + ".gif");

wb.Worksheets(1).ChartObjects(1).Chart.SaveAs(fileName);

//Prepare response for streaming

Response.Clear();

Response.ContentType = "image/gif";

//Stream chart to response

var stream = Server.CreateObject("ADODB.Stream");

stream.Mode = 3;

stream.Open();

stream.LoadFromFile(fileName);

content=stream.ReadText(-1);

Response.BinaryWrite(content);

stream.Close();

stream=null;

content=null;

//Delete temporary file

var fso=Server.CreateObject("Scripting.FileSystemObject");

fso.DeleteFile(fileName);

fso=null;

//Close workbook

wb.Close();

//End response

Response.End();

%>