Subversion Repositories DevTools

Rev

Rev 5634 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5634 Rev 5640
Line 103... Line 103...
103 
                projId = rsProj("proj_id")
 103 
                projId = rsProj("proj_id")
104
104
105 
                rsProj.Close()
 105 
                rsProj.Close()
106 
                Set rsProj = nothing
 106 
                Set rsProj = nothing
107
107
- 
 
 108 
                If rsQry("os_id") <> "" Then
108 
                Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQry("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))
 109 
                    Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQry("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))
109
110
110 
                OSName = rsOS("bos_type")
 111 
                    OSName = rsOS("bos_type")
111
112
112 
                If OSName = "Windows" OR OSName = "MOS" Then
 113 
                    If OSName = "Windows" OR OSName = "MOS" Then
113 
                    OSName = "win32"
 114 
                        OSName = "win32"
- 
 
 115 
                    Else
- 
 
 116 
                        OSName = "sparc"
- 
 
 117 
                    End If
- 
 
 118
- 
 
 119 
                    rsOS.Close()
- 
 
 120 
                    Set rsOS = nothing
114 
                Else
 121 
                Else
115 
                    OSName = "sparc"
 122 
                    OSName = "Undefined"
116 
                End If
123 
                End If
117
- 
 
118 
                rsOS.Close()
 - 
 
119 
                Set rsOS = nothing
- 
 
120
124
121 
            End If
 125 
            End If
122 
          %>
126 
          %>
123
127
124 
          <tr>
 128 
          <tr>