Subversion Repositories DevTools

Rev

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

Rev 127 Rev 129
Line 65... Line 65...
65 
 
 65 
 
66 
         Set dual = OraDatabase.DbCreateDynaset(Query_Stringx,cint(0))
 66 
         Set dual = OraDatabase.DbCreateDynaset(Query_Stringx,cint(0))
67 
         LICENCE_ID = dual("NEXTVAL")
 67 
         LICENCE_ID = dual("NEXTVAL")
68 
         dual.Close()
 68 
         dual.Close()
69 
         Set dual = Nothing
 69 
         Set dual = Nothing
70 
         objEH.Try()
 - 
 
- 
 
 70 
 
71 
         OraDatabase.Parameters.Add "LICENCE", LICENCE_ID, ORAPARM_INPUT, ORATYPE_NUMBER
 71 
         OraDatabase.Parameters.Add "LICENCE", LICENCE_ID, ORAPARM_INPUT, ORATYPE_NUMBER
72 
         OraDatabase.Parameters.Add "NAME",    Request("LICENCE_NAME"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
 72 
         OraDatabase.Parameters.Add "NAME",    Request("LICENCE_NAME"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
73 
 
 73 
 
- 
 
 74 
         objEH.TryORA ( OraSession )
74 
         OraSession.BeginTrans
 75 
         On Error Resume Next
75 
 
 - 
 
76 
         OraDatabase.ExecuteSQL ("begin INSERT INTO licences (licence, name) VALUES (:LICENCE, :NAME); end;")
 76 
         OraDatabase.ExecuteSQL ("begin INSERT INTO licences (licence, name) VALUES (:LICENCE, :NAME); end;")
77 
         OraSession.CommitTrans
 77 
         objEH.CatchORA ( OraSession )
78 
 
 78 
 
79 
         objEH.Catch()
 - 
 
80 
         OraDatabase.Parameters.Remove "LICENCE"
 79 
         OraDatabase.Parameters.Remove "LICENCE"
81 
         OraDatabase.Parameters.Remove "NAME"
 80 
         OraDatabase.Parameters.Remove "NAME"
82 
 
 81 
 
83 
         If objEH.Finally Then
 82 
         If objEH.Finally Then
84 
            Call OpenInParentWindow ("admin_licences.asp")
 83 
            Call OpenInParentWindow ("admin_licences.asp")