<%@ Language=VBScript %>
<%
dim mySim
dim rc
dim servURL
dim probMatrix
dim profitArray
dim progOption
dim policyDuration
dim replacementCost
redim probMatrix(3,3)
redim profitArray(3)
probMatrix(0,0)=Request.Form("m11")
probMatrix(0,1)=Request.Form("m12")
probMatrix(0,2)=Request.Form("m13")
probMatrix(0,3)=Request.Form("m14")
probMatrix(1,0)=Request.Form("m21")
probMatrix(1,1)=Request.Form("m22")
probMatrix(1,2)=Request.Form("m23")
probMatrix(1,3)=Request.Form("m24")
probMatrix(2,0)=Request.Form("m31")
probMatrix(2,1)=Request.Form("m32")
probMatrix(2,2)=Request.Form("m33")
probMatrix(2,3)=Request.Form("m34")
probMatrix(3,0)=Request.Form("m41")
probMatrix(3,1)=Request.Form("m42")
probMatrix(3,2)=Request.Form("m43")
probMatrix(3,3)=Request.Form("m44")
profitArray(0)=Request.Form("T1Profit")
profitArray(1)=Request.Form("T2Profit")
profitArray(2)=Request.Form("T3Profit")
profitArray(3)=Request.Form("T4Profit")
policyDuration=Request.Form("weeks")
replacementCost=Request.Form("cost")
servURL="http://"
& Request.ServerVariables("SERVER_NAME") & "/Temp/"
set
mysim=server.createobject("rdkx_maintenancepolicy.application")
rc=mySim.Simulate("D:\Temp\"
& session.SessionID & "\" & session("SimCount"),Request.Form("progOption"),policyDuration,replacementCost,profitArray,probMatrix)
set mysim=nothing
%>
<html>
<body>
<!--INSERT YOUR CUSTOM HTML HERE -->
<%
if
rc="" then
%>
<img border="0" src="<%Response.Write(servURL & session.SessionID &
"/" & session("SImCount") & "/graph.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>