Subversion Repositories DevTools

Rev

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

Rev 5357 Rev 5384
Line 29... Line 29...
29 
Dim Query_String
 29 
Dim Query_String
30 
Dim dual
 30 
Dim dual
31 
Dim LICENCE_ID
 31 
Dim LICENCE_ID
32 
Dim Query_Stringx
 32 
Dim Query_Stringx
33 
'------------ CONSTANTS DECLARATION -----------
 33 
'------------ CONSTANTS DECLARATION -----------
34 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 - 
 
35 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 - 
 
36 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 - 
 
37 
'------------ VARIABLE INIT -------------------
 34 
'------------ VARIABLE INIT -------------------
38 
sMessage = NULL
 35 
sMessage = NULL
39 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 36 
Set objFormCollector = CreateObject("Scripting.Dictionary")
40 
'------------ CONDITIONS ----------------------
 37 
'------------ CONDITIONS ----------------------
41 
'----------------------------------------------
 38 
'----------------------------------------------
42 
%>
 - 
 
43 
<%
 - 
 
44 
 
 - 
 
45 
%>
 - 
 
46 
<%
 - 
 
47 
'------------ RUN BEFORE PAGE RENDER ----------
 39 
'------------ RUN BEFORE PAGE RENDER ----------
48 
 
 40 
 
49 
If CBool(Request("action")) Then
 41 
If CBool(Request("action")) Then
50 
 
 42 
 
51 
   If Request("LICENCE_NAME") = "" Then
 43 
   If Request("LICENCE_NAME") = "" Then
Line 91... Line 83...
91 
      rsQry.Close
 83 
      rsQry.Close
92 
      Set rsQry = nothing
 84 
      Set rsQry = nothing
93 
   End If
 85 
   End If
94 
 
 86 
 
95 
End If
 87 
End If
96 
 
 - 
 
97 
 
 - 
 
98 
'----------------------------------------------
 88 
'----------------------------------------------
99 
%>
 89 
%>
100 
<html>
 90 
<html>
101 
<head>
 91 
<head>
102 
<title>Release Manager</title>
 92 
<title>Release Manager</title>
Line 104... Line 94...
104 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 94 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
105 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 95 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
106 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 96 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
107 
<script language="JavaScript" src="scripts/common.js"></script>
 97 
<script language="JavaScript" src="scripts/common.js"></script>
108 
</head>
 98 
</head>
109 
 
 - 
 
110 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.LICENCE_NAME.focus();">
 99 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.LICENCE_NAME.focus();">
111 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 100 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
112 
   <tr>
 101 
   <tr>
113 
      <td bgcolor="#FFFFFF" class="body_txt">
 102 
      <td bgcolor="#FFFFFF" class="body_txt">
114 
         <span class="body_h1">
 103 
         <span class="body_h1">
Line 116... Line 105...
116 
         </span>
 105 
         </span>
117 
         <br>
 106 
         <br>
118 
         Add a new licence.
 107 
         Add a new licence.
119 
      </td>
 108 
      </td>
120 
   </tr>
 109 
   </tr>
121 
 
 - 
 
122 
   <%
 110 
   <%
123 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 111 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
124 
   objFormComponent.FormName = "FormName"
 112 
   objFormComponent.FormName = "FormName"
125 
   objFormComponent.Action = ScriptName
 113 
   objFormComponent.Action = ScriptName
126 
   objFormComponent.OnSubmit = "ShowProgress();"
 114 
   objFormComponent.OnSubmit = "ShowProgress();"
127 
   Call objFormComponent.FormStart()
 115 
   Call objFormComponent.FormStart()
128 
 
 - 
 
129 
   %>
 116 
   %>
130 
   <tr>
 117 
   <tr>
131 
      <td background="images/bg_login.gif">
 118 
      <td background="images/bg_login.gif">
132 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
 119 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
133 
            <tr>
 120 
            <tr>
Line 157... Line 144...
157 
         </table>
 144 
         </table>
158 
      </td>
 145 
      </td>
159 
   </tr>
 146 
   </tr>
160 
   <%=objPMod.ComposeHiddenTags()%>
 147 
   <%=objPMod.ComposeHiddenTags()%>
161 
   <input type="hidden" name="action" value="true">
 148 
   <input type="hidden" name="action" value="true">
162 
 
 - 
 
163 
   <%
 149 
   <%
164 
   Call objFormComponent.FormEnd()
 150 
   Call objFormComponent.FormEnd()
165 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 151 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
166 
   %>
 152 
   %>
167 
</table>
 153 
</table>