Subversion Repositories DevTools

Rev

Rev 6774 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6774 Rev 6775
Line 126... Line 126...
126 
                    canAdd = rsQry("INUSE") = 0
 126 
                    canAdd = rsQry("INUSE") = 0
127 
 
 127 
 
128 
                    Dim replicationMode
 128 
                    Dim replicationMode
129 
 
 129 
 
130 
                    replicationMode = ""
 130 
                    replicationMode = ""
131 
                    If rsQry("blat_full") = "P" Then
 131 
                    If rsQry("blat_mode") = "P" Then
132 
                        replicationMode = "All Projects"
 132 
                        replicationMode = "All Projects"
133 
                    ElseIf rsQry("blat_full") = "E" Then
 133 
                    ElseIf rsQry("blat_mode") = "E" Then
134 
                        replicationMode = "Entire Archive"
 134 
                        replicationMode = "Entire Archive"
135 
                    ElseIf  rsQry("inUse") > 0 Then
 135 
                    ElseIf  rsQry("inUse") > 0 Then
136 
                        replicationMode = "Project"
 136 
                        replicationMode = "Project"
137 
                    End If
 137 
                    End If
138 
                %>
 138 
                %>