<%
  ' Declaration variable
  dim FS, objFile
  dim curPath, tmpPath
  dim UserID, FIRTextData
  
  UserID		= Request.Form("UserID")
  FIRTextData 	= Request.Form("FIRTextData")
  
  ' Save fir data to file
  
  ' Get current path
  tmpPath = Request.ServerVariables("PATH_TRANSLATED")
  curPath = left(tmpPath, InStrRev(tmpPath, "\")) & "FDB\"
  
  ' Set filename using UserID
  SET FS = Server.CreateObject("Scripting.FileSystemObject")
  SET objFile = FS.CreateTextFile( curPath & UserID & ".FDB", true)
  		
  objFile.WriteLine UserID
  objFile.WriteLine len(FIRTextData)
  objFile.WriteLine FIRTextData
  		
  objFile.Close

  SET FS = nothing
%>

<html>

<body>

<br>
<br>

<center>
<hr>
<H2>Demo Page for Enrollment (Result)</H2>
<hr>
<br>

<font size=5 color=#000080><b>Registration Success!</b></font>
<hr noshade width=300>

<br>
<br>

<b>Registration Information</b>
<p>

<table border=1 cellpadding=3>
<tr><th width=200>Item</th><th width=100>Value</th></tr>
<tr><td align=center>User ID</td><td align=center><%= UserID %></td></tr>
<tr><td align=center>FIR Data size</td><td align=center><%= len(FIRTextData) %></td></tr>
</table>
<p>

<br>
<input type=button OnClick="javascript:location.href='./default.asp';" value=" << Return to Home ">
<br>
<p>

<hr>
<font size=2>Copyright ¨Ï 2008. UNION COMMUNITY Co., Ltd.</font>
</center>

</body>
</html>