| Line 30... |
Line 30... |
| 30 |
Dim pkg_name
|
30 |
Dim pkg_name
|
| 31 |
Dim view_id
|
31 |
Dim view_id
|
| 32 |
Dim patch_version
|
32 |
Dim patch_version
|
| 33 |
Dim rsQry
|
33 |
Dim rsQry
|
| 34 |
Dim patch_number
|
34 |
Dim patch_number
|
| 35 |
Dim pos
|
35 |
Dim pos,pos2
|
| 36 |
Dim newPatch_version
|
36 |
Dim newPatch_version
|
| 37 |
Dim fs, f, i
|
37 |
Dim fs, f, i
|
| 38 |
Dim objNetwork, strDriveLetter, strRemotePath, strUser, strPassword, strProfile, CheckDrive
|
38 |
Dim objNetwork, strDriveLetter, strRemotePath, strUser, strPassword, strProfile, CheckDrive
|
| 39 |
Dim skip, AlreadyConnected
|
39 |
Dim skip, AlreadyConnected
|
| 40 |
Dim newPatchId
|
40 |
Dim newPatchId
|
| Line 401... |
Line 401... |
| 401 |
<input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
|
401 |
<input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
|
| 402 |
<%End If%>
|
402 |
<%End If%>
|
| 403 |
<input type="submit" name="btn" value="Submit" class="form_btn_comp">
|
403 |
<input type="submit" name="btn" value="Submit" class="form_btn_comp">
|
| 404 |
<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
|
404 |
<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
|
| 405 |
</td>
|
405 |
</td>
|
| 406 |
<td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
|
406 |
<td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
|
| 407 |
<img src="images/h_trsp_dot.gif" width="5" height="22">
|
407 |
<img src="images/h_trsp_dot.gif" width="5" height="22">
|
| 408 |
</td>
|
408 |
</td>
|
| 409 |
</tr>
|
409 |
</tr>
|
| 410 |
<tr>
|
410 |
<tr>
|
| 411 |
<td height="100%" width="1%"> </td>
|
411 |
<td height="100%" width="1%"> </td>
|
| 412 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
412 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
| 413 |
<table width="100%" border="0" cellspacing="1" cellpadding="3">
|
413 |
<table width="100%" border="0" cellspacing="1" cellpadding="3">
|
| 414 |
<tr>
|
414 |
<tr>
|
| 415 |
<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
|
415 |
<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
|
| 416 |
<td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=pkg_name%></td>
|
416 |
<td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" colspan="4"><%=pkg_name%></td>
|
| 417 |
</tr>
|
417 |
</tr>
|
| 418 |
<tr>
|
418 |
<tr>
|
| 419 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
|
419 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
|
| 420 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
|
420 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" colspan="4">
|
| 421 |
<input name="FRversion" type="text" class="form_item" size="30" maxlength="50" value="<%=patch_version%>">
|
421 |
<input name="FRversion" type="text" class="form_item" size="30" maxlength="50" value="<%=patch_version%>">
|
| 422 |
</td>
|
422 |
</td>
|
| 423 |
</tr>
|
423 |
</tr>
|
| 424 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
424 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 425 |
<%If NOT objEH.Finally Then%>
|
425 |
<%If NOT objEH.Finally Then%>
|
| Line 432... |
Line 432... |
| 432 |
<%End If%>
|
432 |
<%End If%>
|
| 433 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
433 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 434 |
<!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
434 |
<!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 435 |
<%If rsQry.RecordCount > 0 Then%>
|
435 |
<%If rsQry.RecordCount > 0 Then%>
|
| 436 |
<tr>
|
436 |
<tr>
|
| 437 |
<td nowrap class="body_colb" colspan="3"><br><br>Include Dependency Patches</td>
|
437 |
<td nowrap class="body_colb" colspan="6"><br><br>Include Dependency Patches</td>
|
| 438 |
</tr>
|
438 |
</tr>
|
| 439 |
<tr>
|
439 |
<tr>
|
| 440 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
|
440 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
|
| 441 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
|
441 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
|
| 442 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
|
442 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
|
| Line 458... |
Line 458... |
| 458 |
</tr>
|
458 |
</tr>
|
| 459 |
<%End If%>
|
459 |
<%End If%>
|
| 460 |
<%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
460 |
<%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| 461 |
|
461 |
|
| 462 |
newPatch_version = patch_version
|
462 |
newPatch_version = patch_version
|
| 463 |
pos = InStr(rsQry("pkg_version"), "p")
|
463 |
pos = InStr(rsQry("pkg_version"), "p")
|
| - |
|
464 |
pos2 = InStrRev(rsQry("pkg_version"), ".")
|
| 464 |
|
465 |
|
| 465 |
patch_number = Mid(rsQry("pkg_version"), pos+1, 3)
|
466 |
patch_number = Mid(rsQry("pkg_version"), pos+1, pos2-pos-1)
|
| 466 |
|
467 |
|
| 467 |
newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
|
468 |
newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
|
| 468 |
%>
|
469 |
%>
|
| 469 |
<tr>
|
470 |
<tr>
|
| 470 |
<td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
|
471 |
<td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
|