Subversion Repositories DevTools

Rev

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

Rev 6770 Rev 6774
Line 27... Line 27...
27 
Dim rsQry
 27 
Dim rsQry
28 
Dim sMessage
 28 
Dim sMessage
29 
Dim Query_String
 29 
Dim Query_String
30 
 
 30 
 
31 
Dim server_id,server_name,display_name, active, full, description
31 
Dim server_id,server_name,display_name, active, full, description
32 
Dim activeChecked, fullChecked
 32 
Dim activeChecked
33 
 
 33 
 
34 
'------------ CONSTANTS DECLARATION -----------
 34 
'------------ CONSTANTS DECLARATION -----------
35 
'------------ VARIABLE INIT -------------------
 35 
'------------ VARIABLE INIT -------------------
36 
sMessage = NULL
 36 
sMessage = NULL
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
Line 112... Line 112...
112 
 
 112 
 
113 
   End If
 113 
   End If
114 
 
 114 
 
115 
End If
 115 
End If
116 
 
 116 
 
- 
 
 117 
'----------------------------------------------
- 
 
 118 
'   Generate HTML to show/display the Replicate mode Compo Box
- 
 
 119 
Sub GenReplicateModeCombo(cMode)
- 
 
 120 
 
- 
 
 121 
    Response.Write "<select  class = 'form_item' name=full>"
117 
 
 122 
 
- 
 
 123 
    Response.Write "<option value = 'N' " & IIF(cmode = "N", "selected", "" ) &" >Normal</option>"
- 
 
 124 
    Response.Write "<option value = 'P' " & IIF(cmode = "P", "selected", "" ) &" >All Projects</option>"
- 
 
 125 
    Response.Write "<option value = 'E' " & IIF(cmode = "E", "selected", "" ) &" >Entire Archive</option>"
- 
 
 126 
 
- 
 
 127 
    Response.Write "</select>"
- 
 
 128 
End Sub
118 
'----------------------------------------------
 129 
'----------------------------------------------
119 
%>
 130 
%>
120 
<html>
 131 
<html>
121 
<head>
 132 
<head>
122 
<title>Release Manager</title>
 133 
<title>Release Manager</title>
Line 167... Line 178...
167 
            description     = rsTemp("blat_description")
 178 
            description     = rsTemp("blat_description")
168 
 
 179 
 
169 
            activeChecked = ""
 180 
            activeChecked = ""
170 
            if active = "Y" Then activeChecked = "checked"
 181 
            if active = "Y" Then activeChecked = "checked"
171 
 
 182 
 
172 
            fullChecked = ""
 - 
 
173 
            if full = "Y" Then fullChecked = "checked"
 - 
 
174 
 
 - 
 
175 
            rsTemp.Close()
 183 
            rsTemp.Close()
176 
            Set rsTemp = Nothing
184 
            Set rsTemp = Nothing
177 
          Else
 185 
          Else
178 
            activeChecked = "checked"
 186 
            activeChecked = "checked"
- 
 
 187 
            full = "N"
179 
          End If%>
 188 
          End If%>
180
189
181 
         <table width="50%" border="0">
 190 
         <table width="50%" border="0">
182 
            <tr>
 191 
            <tr>
183 
               <td><span class="body_txt">Server Name</span></td>
 192 
               <td><span class="body_txt">Server Name</span></td>
Line 197... Line 206...
197 
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
 206 
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
198 
                  <span class="body_txt">Enable replication to this machine</span>
 207 
                  <span class="body_txt">Enable replication to this machine</span>
199 
               </td>
 208 
               </td>
200 
            </tr>
 209 
            </tr>
201 
            <tr>
 210 
            <tr>
202 
               <td><span class="body_txt nowrap">Replicate All</span></td>
 211 
               <td><span class="body_txt nowrap">Replication Mode</span></td>
203 
               <td>
 212 
               <td>
204 
                  <input type="checkbox" name="full" value="Y" <%=fullChecked%>>
 - 
 
205 
                  <span class="body_txt">Replicate the entire archive</span>
 213 
                    <%Call GenReplicateModeCombo(full) %>
206 
               </td>
 214 
               </td>
207 
            </tr>
 215 
            </tr>
208 
            <tr>
 216 
            <tr>
209 
               <td><span class="body_txt nowrap">Description</span></td>
 217 
               <td><span class="body_txt nowrap">Description</span></td>
210 
               <td>
 218 
               <td>