<%@ Language=VBScript %>
<%
Dim mySim
Dim servURL
Dim rc
servURL="http://"
& Request.ServerVariables("SERVER_NAME") & "/Temp/"
Set mySim =server.createobject("RDKX_SimpleSim.application")
rc=mySim.Simulate("D:\Temp\"
& session.sessionID & "\" & session("simCount"),Request.form("progOption"),Request.Form("mean"),Request.Form("std_dev"),Request.Form("min"),Request.Form("max"))
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")%>">
<%
Else
Response.Write(rc)
End If
%>
<!--END INSERT YOUR CUSTOM HTML HERE -->
</body>
</html>
©
Palisade Corporation, eDecisionTools.com,
2001