<%
if Request.Form("index") = "" Then
%>
<form action = <%=Request.ServerVariables("SCRIPT_NAME") %> method = post>
<select name="index">
<option>Nasdaq</option>
<option>Dow Jones</option>
<option>S & P 500</option>
<option>Hang seng</option>
</select>
<input type = submit value = "submit">
</form>
<%
else
strIndex = Request.Form("index")
Select Case (strIndex)
Case "Nasdaq":
url = "http://chart.yahoo.com/c/1y/_/_ixic.gif"
Case "Dow Jones":
url = "http://chart.yahoo.com/c/1y/_/_dji.gif"
Case "S & P 500":
url = "http://chart.yahoo.com/c/1y/_/_spc.gif"
Case "Hang seng":
url = "http://chart.yahoo.com/c/1y/_/_hsi.gif"
End Select
Response.Write "<b>" & strIndex & "</b><br>"
Response.Write "<img src = " & url
End If
%>
|