Subversion Repositories DevTools

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 5296
Line 110... Line 110...
110 
	Set rsQry = Nothing
 110 
	Set rsQry = Nothing
111 
	OraDatabase.Parameters.Remove "NODE_ID"
 111 
	OraDatabase.Parameters.Remove "NODE_ID"
112 
End Function
 112 
End Function
113 
'-----------------------------------------------------------------------------------------------------------------------------
 113 
'-----------------------------------------------------------------------------------------------------------------------------
114 
Sub GetApplicationDetails ( nApp_id, ByRef outobjDetails )
 114 
Sub GetApplicationDetails ( nApp_id, ByRef outobjDetails )
- 
 
 115 
    If nApp_id <> "" Then
115 
	Dim rsQry, query
 116 
        Dim rsQry, query
116 
	query = "SELECT *  FROM   APPLICATIONS  WHERE app_id = "& nApp_id
 117 
        query = "SELECT *  FROM   APPLICATIONS  WHERE app_id = "& nApp_id
117
118
118 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 119 
        Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
119
120
120 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 121 
        If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
121 
		outobjDetails.Item ("app_id")   = rsQry("app_id")
 122 
            outobjDetails.Item ("app_id")   = rsQry("app_id")
122 
		outobjDetails.Item ("application_name") = rsQry("application_name")
 123 
            outobjDetails.Item ("application_name") = rsQry("application_name")
123
124
124 
	Else
 125 
        Else
125 
		Err.Raise 8, "Sub GetApplicationDetails", "Empty record set returned. nApp_id="& nApp_id
 126 
            Err.Raise 8, "Sub GetApplicationDetails", "Empty record set returned. nApp_id="& nApp_id
126
127
127 
	End If
 128 
        End If
128
129
129 
	rsQry.Close
 130 
        rsQry.Close
130 
	Set rsQry = Nothing
 131 
        Set rsQry = Nothing
- 
 
 132 
    End If
131 
End Sub
 133 
End Sub
132 
'-----------------------------------------------------------------------------------------------------------------------------
 134 
'-----------------------------------------------------------------------------------------------------------------------------
133 
Function ProgressBar ()
 135 
Function ProgressBar ()
134 
	ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
 136 
	ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
135 
End Function
 137 
End Function