Subversion Repositories DevTools

Rev

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

Rev 5952 Rev 5957
Line 59... Line 59...
59
    
59
    
60
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
60
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
61
    
61
    
62
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
62
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
63
    
63
    
64
    
-
 
65
    
-
 
66
    If rsQry.RecordCount > 0 Then
64
    If rsQry.RecordCount > 0 Then
67
        outobjDetails.Item ("location") = rsQry("location")
65
        outobjDetails.Item ("location") = rsQry("location")
68
        
66
        
69
    Else
67
    Else
70
        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
68
        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
Line 262... Line 260...
262
<%
260
<%
263
Call objFormComponent.FormEnd()
261
Call objFormComponent.FormEnd()
264
'-- FROM END ----------------------------------------------------------------------------------------------------------------
262
'-- FROM END ----------------------------------------------------------------------------------------------------------------
265
%>   
263
%>   
266
</table>
264
</table>
267
 
-
 
268
 
-
 
269
<!-- FOOTER -->
265
<!-- FOOTER -->
270
<!--#include file="_footer.asp"-->
266
<!--#include file="_footer.asp"-->
271
</body>
267
</body>
272
</html>
268
</html>
273
<%
-
 
274
Call Destroy_All_Objects
-
 
275
%>
-
 
276
269