<%@ Language=VBScript %>
<%
Dim rc
Dim servURL
Dim myApp
Dim theData
Dim i
Dim numData
servURL="http://"
& Request.ServerVariables("SERVER_NAME") & "/Temp/"
numData=request.form.count-1
Redim thedata(numData)
For i =0 To numData
thedata(i)=request.form(i+1)
Next
Set myApp= Server.CreateObject("bdkx_fitSampleData.application")
rc=myApp.performfit("D:\Temp\"
& session.SessionID & "\" & session("SimCount"),theData)
Response.Write(rc)
Set myApp =Nothing
%>
<html>
<head>
</head>
<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")
& "\fitResults.html")
Response.Write(fil.readall)
Else
Response.Write (rc)
End If
%>
<!--END INSERT YOUR CUSTOM HTML HERE -->
</body>
</html>
©
Palisade Corporation, eDecisionTools.com,
2001