| Line 50... |
Line 50... |
| 50 |
%>
|
50 |
%>
|
| 51 |
<%
|
51 |
<%
|
| 52 |
'-----------------------------------------------------------------------------------------------------------------
|
52 |
'-----------------------------------------------------------------------------------------------------------------
|
| 53 |
Sub GetOsDetails ( nOs_id, ByRef outobjDetails )
|
53 |
Sub GetOsDetails ( nOs_id, ByRef outobjDetails )
|
| 54 |
Dim rsQry, query
|
54 |
Dim rsQry, query
|
| - |
|
55 |
|
| 55 |
OraDatabase.Parameters.Add "OS_ID", nOs_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
56 |
OraDatabase.Parameters.Add "OS_ID", nOs_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 56 |
|
- |
|
| 57 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("OsDetails.sql") , ORADYN_DEFAULT )
|
57 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("OsDetails.sql") , ORADYN_DEFAULT )
|
| - |
|
58 |
OraDatabase.Parameters.Remove "OS_ID"
|
| 58 |
|
59 |
|
| 59 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
60 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 60 |
outobjDetails.Item ("os_id") = rsQry("os_id")
|
61 |
outobjDetails.Item ("os_id") = rsQry("os_id")
|
| 61 |
outobjDetails.Item ("os_name") = rsQry("os_name")
|
62 |
outobjDetails.Item ("os_name") = rsQry("os_name")
|
| 62 |
outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
|
63 |
outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
|
| Line 65... |
Line 66... |
| 65 |
Else
|
66 |
Else
|
| 66 |
Err.Raise 8, "Sub GetOsDetails", "Empty record set returned. nOs_id="& nOs_id
|
67 |
Err.Raise 8, "Sub GetOsDetails", "Empty record set returned. nOs_id="& nOs_id
|
| 67 |
|
68 |
|
| 68 |
End If
|
69 |
End If
|
| 69 |
|
70 |
|
| 70 |
OraDatabase.Parameters.Remove "OS_ID"
|
- |
|
| 71 |
rsQry.Close
|
71 |
rsQry.Close
|
| 72 |
Set rsQry = Nothing
|
72 |
Set rsQry = Nothing
|
| 73 |
End Sub
|
73 |
End Sub
|
| 74 |
'-----------------------------------------------------------------------------------------------------------------
|
74 |
'-----------------------------------------------------------------------------------------------------------------
|
| 75 |
Sub RenderTitle ( objCollector )
|
75 |
Sub RenderTitle ( objCollector )
|