Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	   REMOVE Additional Note
 4 
'                 REMOVE Additional Note
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 31... Line 31...
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
Sub Remove_Additional_Note ( nNote_id, nPv_Id )
 35 
Sub Remove_Additional_Note ( nNote_id, nPv_Id )
- 
 
 36 
   objEH.TryORA ( OraSession )
36 
	OraSession.BeginTrans
 37 
   On Error Resume Next
37 
	OraDatabase.ExecuteSQL "DELETE FROM additional_notes WHERE note_id = "& nNote_id &" AND pv_id = "& nPv_id
 38 
   OraDatabase.ExecuteSQL "DELETE FROM additional_notes WHERE note_id = "& nNote_id &" AND pv_id = "& nPv_id
38 
  	OraSession.CommitTrans
 39 
   objEH.CatchORA ( OraSession )
39 
End Sub
 40 
End Sub
40 
%>
 41 
%>
41 
<%
 42 
<%
42 
'-----------------------  MAIN LINE  ---------------------------
 43 
'-----------------------  MAIN LINE  ---------------------------
43 
 
 44 
 
44 
'--- Process submition ---
 45 
'--- Process submition ---
45 
If (Request("pv_id") <> "") AND (Request("note_id") <> "")  Then
 46 
If (Request("pv_id") <> "") AND (Request("note_id") <> "")  Then
46 
	' All mendatory parameters FOUND
 47 
   ' All mendatory parameters FOUND
47 
	Call Remove_Additional_Note ( Request("note_id"), Request("pv_id") )
 48 
   Call Remove_Additional_Note ( Request("note_id"), Request("pv_id") )
48 
	Response.Redirect("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 49 
   Response.Redirect("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
49 
Else
 50 
Else
50 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 51 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
51 
	Response.write QSTR_All
52 
   Response.write QSTR_All
52
53 
 
53 
End If
 54 
End If
54 
%>
 55 
%>
55 
 
 56 
 
56 
<!-- DESTRUCTOR ------->
 57 
<!-- DESTRUCTOR ------->
57 
<!--#include file="common/destructor.asp"-->
 - 
 
58 

            58
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            59