Subversion Repositories DevTools

Rev

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

Rev 7288 Rev 7417
Line 34... Line 34...
34 
parToRtag_id = QStrPar("ToRtag_id")
 34 
parToRtag_id = QStrPar("ToRtag_id")
35 
parFromRtag_id = QStrPar("FromRtag_id")
 35 
parFromRtag_id = QStrPar("FromRtag_id")
36 
sMessage = NULL
 36 
sMessage = NULL
37 
If parFRproj_id = "" Then parFRproj_id = "-1"
 37 
If parFRproj_id = "" Then parFRproj_id = "-1"
38 
If parFRrtag_id = "" Then parFRrtag_id = "-1"
 38 
If parFRrtag_id = "" Then parFRrtag_id = "-1"
- 
 
 39 
objPMod.PersistInQryString("rtag_id")
39 
'----------------------------------------------
 40 
'----------------------------------------------
40 
%>
 41 
%>
41 
<%
 42 
<%
42 
Sub Get_Projects ( NNproj_id )
 43 
Sub Get_Projects ( NNproj_id )
43 
	Dim rsTemp, Query_String, tempLINK
 44 
	Dim rsTemp, Query_String, tempLINK