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