Subversion Repositories DevTools

Rev

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

Rev 5071 Rev 5177
Line 47... Line 47...
47 
'   Go back from whence we came
 47 
'   Go back from whence we came
48 
' Grab the referre on the first call so that postback does not confuse us
 48 
' Grab the referre on the first call so that postback does not confuse us
49 
returnUrl = Request("returnUrl")
 49 
returnUrl = Request("returnUrl")
50 
If returnUrl = "" Then
 50 
If returnUrl = "" Then
51 
    returnUrl = Request.ServerVariables ("HTTP_REFERER")
 51 
    returnUrl = Request.ServerVariables ("HTTP_REFERER")
52 
End If
 - 
 
53 
 
 52 
 
- 
 
 53 
    ' It MUST have an rtag id
- 
 
 54 
    If InStr(returnUrl,"rtag_id") = 0 Then
- 
 
 55 
        Dim joiner : joiner = "?"
- 
 
 56 
        If InStr(returnUrl,"?") <> 0 Then joiner = "&"
- 
 
 57 
        returnUrl = returnUrl & joiner & "rtag_id=" & Request("rtag_id")
- 
 
 58 
    End If
- 
 
 59 
End If
- 
 
 60 
rmDebug = returnUrl
54 
'----------------------------------------------
 61 
'----------------------------------------------
55 
%>
 62 
%>
56 
<%
 63 
<%
57 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
58 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
 65 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )