<%@ Page Language="VB" %>

<%@ Import Namespace="System.IO" %>

<%@ Import Namespace="PagosSpreadSheet" %>

<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

'Create an instance of the application

Dim app As New Application()

'Open retirement workbook

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

'Load workbook

Dim wb As Workbook = app.Workbooks("Retirement_chart.xls")

'Set input values

wb.Names("Monthly_savings").Range.Value = Integer.Parse(Request.QueryString("Monthly_savings"))

wb.Names("Annual_Investment_growth_rate").Range.Value = Double.Parse(Request.QueryString("Annual_Investment_growth_rate"))

wb.Names("Annual_Salary_Increase_Rate").Range.Value = Double.Parse(Request.QueryString("Annual_Salary_Increase_Rate"))

'Save chart to a temporary file for streaming

Dim fileName As String = Server.MapPath("Spreadsheets/Temp/RetirementChart" & Session.SessionID & ".gif")

wb.Worksheets(0).ChartObjects(0).Chart.SaveAs(fileName)

'Prepare response for streaming

Response.Clear()

Response.ContentType = "image/gif"

'Stream chart to response

Response.WriteFile(fileName, True)

'Delete temporary file

File.Delete(fileName)

'Close workbook

wb.Close()

'End response

Response.End()

End Sub

</script>