<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="APPLICATION">
</OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 Const CONST_FL_NAME = "\GetAttributeCode.ini"
 Const CONST_FL_FORREADING = 1
 Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart
 On Error Resume Next
         
  Dim objFs       
  Dim objTs           
  Dim strLineData      
  Dim flgSection      
  Dim strTempData   
         
  Application("Service") = ""
  Application("User") = ""
  strLineData = ""  
  strTempData = ""
  flgSection = False

  Set objFs = Server.CreateObject ("Scripting.FileSystemObject")
  Set objTs = objFs.OpenTextFile(Server.MapPath (CONST_FL_NAME),CONST_FL_FORREADING,False)
  If Err.Number <> 0 Then
   　　Err.Clear 
     　Set objTs = Nothing
   　　Set objFs = Nothing
   　　Exit Sub
  End If

  While Not objTs.AtEndOfStream
     strLineData = objTs.ReadLine
   　If Trim(strLineData) <> "" Then
        If flgSection = True And Mid(strLineData,1,1) = "[" And _
       　　Mid(strLineData,Len(strLineData),1) = "]" Then
     　　　objTs.Close
         　Set objTs = Nothing
     　　　Set objFs = Nothing
     　　　Exit Sub
    　　End If
    
    　　If strLineData = CONST_DB_SECTION Then
     　　　flgSection = True
   　　 End If

If flgSection = True Then
      If Mid(strLineData,1,7) = "Service" Then
      　　strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
      　　If Mid(strTempData,1,1) = "=" Then
       　　　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
       　　　　Application.Lock
      　　　　 Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
       　　　　Application.UnLock
     　　 End If
     End If
     If Mid(strLineData,1,4) = "User" Then
      　　strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
      　　If Mid(strTempData,1,1) = "=" Then
       　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
       　　Application.Lock
       　　Application("User") = Mid(strTempData,2,Len(strTempData)-2)
       　　Application.UnLock
      End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</SCRIPT>