Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	    IGNORE WARNINGS
 4 
'                   IGNORE WARNINGS
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/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 44... Line 44...
44 
'-----------------------  MAIN LINE  ---------------------------
 44 
'-----------------------  MAIN LINE  ---------------------------
45 
 
 45 
 
46 
'--- Process submition ---
 46 
'--- Process submition ---
47 
If (FRrtag_id <> "") AND (FRpv_id <> "") Then
 47 
If (FRrtag_id <> "") AND (FRpv_id <> "") Then
48 
   Call SetIgnoreWarnings (FRforced, FRpv_id, FRrtag_id)
 48 
   Call SetIgnoreWarnings (FRforced, FRpv_id, FRrtag_id)
49
49
50 
	'Call Notify ( FRrtag_id )
 50 
    'Call Notify ( FRrtag_id )
51
51
- 
 
 52 
    Call Destroy_All_Objects
52 
	Response.Redirect("dependencies.asp?rtag_id="& FRrtag_id &"&pv_id="& FRpv_id)
 53 
    Response.Redirect("dependencies.asp?rtag_id="& FRrtag_id &"&pv_id="& FRpv_id)
53 
Else
 54 
Else
54 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 55 
    Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
55 
	Response.write QSTR_FullQuery
56 
    Response.write QSTR_FullQuery
56 
End If
 57 
End If
57 
%>
 58 
%>
58 
 
 - 
 
59 
<!-- DESTRUCTOR ------->
 59 
<!-- DESTRUCTOR ------->
60 
<!--#include file="common/destructor.asp"-->
 60 
<!--#include file="common/destructor.asp"-->
61 

            61