Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The currently selected year
selectedYear = Request("year")
If Request("year") = "" Then
selectedYear = 2001
Else
selectedYear = CInt(Request("year"))
End If
'
' The following code generates the <option> tags for the HTML select box, with the
' <option> tag representing the currently selected year marked as selected.
'
ReDim optionTags(2001 - 1990)
For i = 1990 To 2001
If i = selectedYear Then
optionTags(i - 1990) = "<option value='" & i & "' selected>" & i & _
"</option>"
Else
optionTags(i - 1990) = "<option value='" & i & "'>" & i & "</option>"
End If
Next
selectYearOptions = Join(optionTags, "")
%>
<html>
<body style="margin:5px 0px 0px 5px">
<div style="font-size:18pt; font-family:verdana; font-weight:bold">
Database Integration Demo (1)
</div>
<hr style="border:solid 1px #000080" />
<div style="font-size:10pt; font-family:verdana; margin-bottom:20px">
• <a href="viewsource.asp?file=<%=Request("SCRIPT_NAME")%>">
View containing HTML page source code
</a>
<br />
• <a href="viewsource.asp?file=dbdemo1a.asp">
View chart generation page source code
</a>
<br />
<br />
<form>
I want to obtain the revenue data for the year
<select name="year">
<%=selectYearOptions%>
</select>
<input type="submit" value="OK">
</form>
</div>
<img src="dbdemo1a.asp?year=<%=selectedYear%>">
</body>
</html>