.asp

<%	
		 Try
	      Dim str   
		  Set fps = Server.CreateObject("FamServer.FamApp")
		   If Not (fps Is Nothing) Then
		 
		'If  fps.FamEnroll(trim(Request("name")),Request.Form("LearnModel"),Request.ServerVariables("REMOTE_ADDR"))
		 str =  fps.FamEnroll(trim(Request("name")),Request.Form("LearnModel"),Request.ServerVariables("REMOTE_ADDR"))
		 'Then
		%>
			<p>&nbsp;</p>
			<p><font size="5" color="#ff0000"><%Response.write(str) %></font><font size="5">&nbsp;&nbsp;Enroll Successfully!</font></p> 
			
			<%
  Dim Conn
  Set Conn = Server.Createobject("ADODB.Connection")  
  Conn.Open "Driver={Oracle in XE};DBQ=xe;UID=biotpl;PWD=biotpl;"  
	 
  strSQL = "INSERT INTO BIOTPL.FIN_DATA(USER_NAME,KEY,DATA) values ('tEST','DDDDD','"& Request.QueryString[str] &"') "  

  Set objExec = Conn.Execute(strSQL)  
  If Err.Number = 0 Then  
'Response.write("Process completed successfully...")  
  Else  
 'Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")  
 End IF  
 Conn.Close()  
 Set objExec = Nothing  
 Set Conn = Nothing  
%>
		
<% 'End If
      End If 
	   Set fps = Nothing
	   Catch ex As Exception
	      Response.write(ex.Message)
		
%>