<%@ Language=VBScript %>
<%
Dim mySim
Dim rc
Dim servURL
servURL="http://"
& Request.ServerVariables("SERVER_NAME") & "/Temp/"
Set mySim =server.createobject("rdkx_valueatrisk.application")
rc=mySim.simulate("D:\Temp\"
& session. SessionID & "\" & session("SimCount"),
Request.Form("progOption"), Request.Form("currentPrice"),
Request.Form("putExPrice"), Request.Form("putDuration"),
Request.Form("riskFreeRate"), Request.Form("growthRate"),
Request.Form("volatility"), Request.Form("putPrice"))
Set mySim =Nothing
%>
<html>
<head>
</head>
<body>
<!--INSERT YOUR CUSTOM HTML HERE -->
<%
If
rc="" Then
%>
<img border="0" src="<%Response.Write(servURL & session.SessionID &
"/" & session("SimCount") &
"/histogram.jpg")%>">
<img border="0" src="<%Response.Write(servURL & session.SessionID &
"/" & session("SimCount") &
"/cumulative.jpg")%>">
<%
dim fso
dim fil
Set
fso=server.createobject("scripting.filesystemobject")
Set fil = fso.opentextfile("D:\Temp\"
& session.SessionID & "\" & session("simCount")
& "\statistics.html")
Response.Write(fil.readall)
Else
Response.Write(rc)
End If
%>
<!--END INSERT YOUR CUSTOM HTML HERE -->
</body>
</html>
©
Palisade Corporation, eDecisionTools.com,
2001