Taking Stock | Future Scenarios

<% Dim intYear, intScenario intYear = 1 intScenario = 1 If (Request.QueryString("y") <> "") And IsNumeric(Request.QueryString("y")) Then intYear = Int(Request.QueryString("y")) If (intYear > 4) Then intYear = 1 ElseIf (intYear < 1) Then intYear = 4 End If End If If (Request.QueryString("s") <> "") And IsNumeric(Request.QueryString("s")) Then intScenario = Int(Request.QueryString("s")) If (intScenario > 4) Then intScenario = 1 ElseIf (intScenario < 1) Then intScenario = 4 End If End If Call getFuture(intYear, intScenario) %> Taking Stock | Future Scenarios | 2020 - 2050

<%=strFuturesScenario & " " & strFuturesYear%>

<%=strFuturesScenarioTitle & " - " & strFuturesYearTitle%>

<%=strFuturesTitle%>

<%=strFuturesText%>

<%=strFuturesImageCaption%>

<%=strFuturesNewsDate%>

<%=strFuturesNewsHeadline%>

<%=strFuturesNews%>

Navigation:
Please use the navigators, left, to scroll through the news articles for different generations and scenarios.

<% Response.End()%>