Subversion Repositories DevTools

Rev

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

Rev 129 Rev 159
Line 46... Line 46...
46 
Dim IsOptionUsed
 46 
Dim IsOptionUsed
47 
Dim parCategMain
 47 
Dim parCategMain
48 
Dim parCategMinor
 48 
Dim parCategMinor
49 
Dim parIStates
 49 
Dim parIStates
50 
Dim parTitle
 50 
Dim parTitle
- 
 
 51 
Dim parDoQuery
51 
Dim oIStates
 52 
Dim oIStates
52 
Dim checked
 53 
Dim checked
53 
'------------ Constants Declaration -----------
 54 
'------------ Constants Declaration -----------
54 
Const rspMax = 100   ' maximum number of records displayed
 55 
Const rspMax = 100   ' maximum number of records displayed
55 
Const LENUM_ALL = "ALL"
 56 
Const LENUM_ALL = "ALL"
Line 67... Line 68...
67 
parCategMain = Request("categmain")
 68 
parCategMain = Request("categmain")
68 
parCategMinor = Request("categminor")
 69 
parCategMinor = Request("categminor")
69 
parSkipOpen = Request("skip_open")
 70 
parSkipOpen = Request("skip_open")
70 
parIStates = Request("istates")
 71 
parIStates = Request("istates")
71 
parTitle = Request("title")
 72 
parTitle = Request("title")
- 
 
 73 
parDoQuery = Request("doQuery")
72 
 
 74 
 
73 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 75 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
74 
 
 76 
 
75 
imported = FALSE
 77 
imported = FALSE
76 
IsOptionUsed = FALSE
 78 
IsOptionUsed = FALSE
Line 86... Line 88...
86 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
 88 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
87 
Else
 89 
Else
88 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
 90 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
89 
End If
 91 
End If
90 
 
 92 
 
- 
 
 93 
If (parDoQuery = "") Then parDoQuery = "0"
- 
 
 94 
 
91 
' Get DEVI issue states checked
 95 
' Get DEVI issue states checked
92 
Set oIStates = GetIStates()
 96 
Set oIStates = GetIStates()
93 
 
 97 
 
94 
 
 98 
 
95 
'----------------------------------------------
 99 
'----------------------------------------------
Line 126... Line 130...
126 
 
 130 
 
127 
 
 131 
 
128 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 132 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
129 
      SQLstr = _
 133 
      SQLstr = _
130 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 134 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
131 
      "   FROM DEVI_PROD.admin.software_issue si,"&_
 135 
      "   FROM CQ_DEVI.admin.software_issue si,"&_
132 
      "        DEVI_PROD.admin.STATEDEF sd"&_
 136 
      "        CQ_DEVI.admin.STATEDEF sd"&_
133 
      "  WHERE si.STATE = sd.ID "
 137 
      "  WHERE si.STATE = sd.ID "
134 
 
 138 
 
135 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 139 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
136 
      SQLstr = _
 140 
      SQLstr = _
137 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 141 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
138 
      "   FROM TDSE_2002.admin.request si, "&_
 142 
      "   FROM CQ_TDSE.admin.request si, "&_
139 
      "        TDSE_2002.admin.STATEDEF sd"&_
 143 
      "        CQ_TDSE.admin.STATEDEF sd"&_
140 
      "  WHERE si.STATE = sd.ID "
 144 
      "  WHERE si.STATE = sd.ID "
141 
 
 145 
 
142 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 146 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
143 
      SQLstr = _
 147 
      SQLstr = _
144 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 148 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
145 
      "   FROM VT5DM.admin.software_issue si,"&_
 149 
      "   FROM CQ_VT5DM.admin.software_issue si,"&_
146 
      "        VT5DM.admin.STATEDEF sd"&_
 150 
      "        CQ_VT5DM.admin.STATEDEF sd"&_
147 
      "  WHERE si.STATE = sd.ID "
 151 
      "  WHERE si.STATE = sd.ID "
148 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 152 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
149 
      SQLstr = _
 153 
      SQLstr = _
150 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 154 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
151 
      "   FROM VTSUP.admin.request si, "&_
 155 
      "   FROM CQ_VTSUP.admin.request si, "&_
152 
      "        VTSUP.admin.STATEDEF sd"&_
 156 
      "        CQ_VTSUP.admin.STATEDEF sd"&_
153 
      "  WHERE si.STATE = sd.ID "
 157 
      "  WHERE si.STATE = sd.ID "
154 
 
 158 
 
155 
 
 159 
 
156 
 
 160 
 
157 
   End If
 161 
   End If
Line 291... Line 295...
291 
   rsTemp.ActiveConnection = CQ_conn
 295 
   rsTemp.ActiveConnection = CQ_conn
292 
 
 296 
 
293 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 297 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
294 
      SQLstr = _
 298 
      SQLstr = _
295 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 299 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
296 
      "  FROM DEVI_PROD.admin.software_issue si,"&_
 300 
      "  FROM CQ_DEVI.admin.software_issue si,"&_
297 
      "       DEVI_PROD.admin.statedef sd"&_
 301 
      "       CQ_DEVI.admin.statedef sd"&_
298 
      " WHERE si.STATE = sd.ID"&_
 302 
      " WHERE si.STATE = sd.ID"&_
299 
      "   AND si.dbid IN ("& sIssIdList &")"
 303 
      "   AND si.dbid IN ("& sIssIdList &")"
300 
 
 304 
 
301 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 305 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
302 
      SQLstr = _
 306 
      SQLstr = _
303 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 307 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
304 
      "  FROM TDSE_2002.admin.request si,"&_
 308 
      "  FROM CQ_TDSE.admin.request si,"&_
305 
      "       TDSE_2002.admin.statedef sd"&_
 309 
      "       CQ_TDSE.admin.statedef sd"&_
306 
      " WHERE si.STATE = sd.ID"&_
 310 
      " WHERE si.STATE = sd.ID"&_
307 
      "   AND si.dbid IN ("& sIssIdList &")"
 311 
      "   AND si.dbid IN ("& sIssIdList &")"
308 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 312 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
309 
      SQLstr = _
 313 
      SQLstr = _
310 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 314 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
311 
      "  FROM VT5DM.admin.software_issue si,"&_
 315 
      "  FROM CQ_VT5DM.admin.software_issue si,"&_
312 
      "       VT5DM.admin.statedef sd"&_
 316 
      "       CQ_VT5DM.admin.statedef sd"&_
313 
      " WHERE si.STATE = sd.ID"&_
 317 
      " WHERE si.STATE = sd.ID"&_
314 
      "   AND si.dbid IN ("& sIssIdList &")"
 318 
      "   AND si.dbid IN ("& sIssIdList &")"
315 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
 319 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
316 
      SQLstr = _
 320 
      SQLstr = _
317 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 321 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
318 
      "  FROM VTSUP.admin.request si,"&_
 322 
      "  FROM CQ_VTSUP.admin.request si,"&_
319 
      "       VTSUP.admin.statedef sd"&_
 323 
      "       CQ_VTSUP.admin.statedef sd"&_
320 
      " WHERE si.STATE = sd.ID"&_
 324 
      " WHERE si.STATE = sd.ID"&_
321 
      "   AND si.dbid IN ("& sIssIdList &")"
 325 
      "   AND si.dbid IN ("& sIssIdList &")"
322 
 
 326 
 
323 
 
 327 
 
324 
   End If
 328 
   End If
Line 413... Line 417...
413 
 
 417 
 
414 
End If
 418 
End If
415 
%>
 419 
%>
416 
<%
 420 
<%
417 
'-------------- Main Line ---------------
 421 
'-------------- Main Line ---------------
- 
 
 422 
If parDoQuery <> "0" Then
418 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
 423 
   retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
- 
 
 424 
End If
419 
 
 425 
 
420 
' total number of pages required
 426 
' total number of pages required
421 
rspTotalPages = rspTotal \ rspMax
 427 
rspTotalPages = rspTotal \ rspMax
422 
If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
 428 
If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
423 
%>
 429 
%>
Line 451... Line 457...
451 
</script>
 457 
</script>
452 
</head>
 458 
</head>
453 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 459 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
454 
<%If retVal = 0 Then%>
 460 
<%If retVal = 0 Then%>
455 
<form name="importform" method="post" action="<%=scriptName%>">
 461 
<form name="importform" method="post" action="<%=scriptName%>">
456 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 462 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
457 
    <tr>
 463 
      <tr>
458 
      <td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>
 464 
         <td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>
459 
      <td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif"><table width="100" border="0" cellspacing="5" cellpadding="0">
 465 
         <td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif">
460 
        <tr>
 - 
 
461 
          <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
 - 
 
462 
          <td nowrap><input name="FRiss_num" type="text" class="form_item" id="FRiss_num" value="<%=parFRiss_num%>" size="30" > <span class="form_wtxt_link">Example: ALL, 123, DEVI-123 </span></td>
 - 
 
463 
        </tr>
 - 
 
464 
        <tr>
 - 
 
465 
          <td align="left" class="wform_ttl">Database</td>
 - 
 
466 
          <td><select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
 - 
 
467 
            <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 - 
 
468 
         <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 - 
 
469 
         <%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
 - 
 
470 
         <option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
 - 
 
471 
         <option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
 - 
 
472 
         <%End If%>
 - 
 
473 
          </select></td>
 - 
 
474 
        </tr>
 - 
 
475 
        <tr>
 - 
 
476 
          <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 - 
 
477 
          <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
 - 
 
478 
        </tr>
 - 
 
479 
      </table>
 - 
 
480 
 
 - 
 
481 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 - 
 
482 
        <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 - 
 
483 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
 - 
 
484 
          <tr>
 - 
 
485 
            <td align="left" class="wform_ttl" valign="top">Title</td>
 - 
 
486 
            <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
 - 
 
487 
          </tr>
 - 
 
488 
          <tr>
 - 
 
489 
            <td align="left" class="wform_ttl">Package</td>
 - 
 
490 
            <td><select name="package" class="form_item" id="package" style="width:100%;">
 - 
 
491 
              <option value="">ALL</option>
 - 
 
492 
              <%
 - 
 
493 
         '---- PACKAGES ----
 - 
 
494 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
495 
         rsCQTemp.ActiveConnection = CQ_conn
 - 
 
496 
 
 - 
 
497 
         '-- Get projects
 - 
 
498 
         SQLstr = _
 - 
 
499 
         "SELECT si.PACKAGE_REF"&_
 - 
 
500 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 - 
 
501 
         " WHERE NOT si.PACKAGE_REF IS NULL"&_
 - 
 
502 
         " GROUP BY si.PACKAGE_REF"&_
 - 
 
503 
         " ORDER BY si.PACKAGE_REF"
 - 
 
504 
 
 - 
 
505 
         rsCQTemp.Source = SQLstr
 - 
 
506 
         rsCQTemp.CursorType = 0
 - 
 
507 
         rsCQTemp.CursorLocation = 2
 - 
 
508 
         rsCQTemp.LockType = 3
 - 
 
509 
         rsCQTemp.Open()
 - 
 
510 
 
 - 
 
511 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
512 
           %>
 - 
 
513 
              <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
 - 
 
514 
              <%rsCQTemp.MoveNext
 - 
 
515 
         WEnd
 - 
 
516 
         rsCQTemp.Close()
 - 
 
517 
         %>
 - 
 
518 
            </select></td>
 - 
 
519 
          </tr>
 - 
 
520 
          <tr>
 - 
 
521 
            <td align="left" class="wform_ttl">Project</td>
 - 
 
522 
            <td><select name="project" class="form_item" id="project" style="width:100%;">
 - 
 
523 
              <option value="">ALL</option>
 - 
 
524 
              <%
 - 
 
525 
         '---- PROJECT ----
 - 
 
526 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
527 
         rsCQTemp.ActiveConnection = CQ_conn
 - 
 
528 
 
 - 
 
529 
         '-- Get projects
 - 
 
530 
         SQLstr = _
 - 
 
531 
         "SELECT si.PROJECT"&_
 - 
 
532 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 - 
 
533 
         " WHERE NOT si.PROJECT IS NULL"&_
 - 
 
534 
         " GROUP BY si.PROJECT"&_
 - 
 
535 
         " ORDER BY si.PROJECT"
 - 
 
536 
 
 - 
 
537 
         rsCQTemp.Source = SQLstr
 - 
 
538 
         rsCQTemp.CursorType = 0
 - 
 
539 
         rsCQTemp.CursorLocation = 2
 - 
 
540 
         rsCQTemp.LockType = 3
 - 
 
541 
         rsCQTemp.Open()
 - 
 
542 
 
 - 
 
543 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
544 
           %>
 - 
 
545 
              <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
 - 
 
546 
              <%rsCQTemp.MoveNext
 - 
 
547 
         WEnd
 - 
 
548 
         rsCQTemp.Close()
 - 
 
549 
         %>
 - 
 
550 
            </select></td>
 - 
 
551 
          </tr>
 - 
 
552 
          <tr>
 - 
 
553 
            <td align="left" class="wform_ttl">Product</td>
 - 
 
554 
            <td><select name="product" class="form_item" id="product" style="width:100%;">
 - 
 
555 
                <option value="">ALL</option>
 - 
 
556 
                <%
 - 
 
557 
         '---- PRODUCT ----
 - 
 
558 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
559 
         rsCQTemp.ActiveConnection = CQ_conn
 - 
 
560 
 
 - 
 
561 
         '-- Get projects
 - 
 
562 
         SQLstr = _
 - 
 
563 
         "SELECT si.PRODUCT"&_
 - 
 
564 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 - 
 
565 
         " WHERE NOT si.PRODUCT IS NULL"&_
 - 
 
566 
         " GROUP BY si.PRODUCT"&_
 - 
 
567 
         " ORDER BY si.PRODUCT"
 - 
 
568 
 
 - 
 
569 
         rsCQTemp.Source = SQLstr
 - 
 
570 
         rsCQTemp.CursorType = 0
 - 
 
571 
         rsCQTemp.CursorLocation = 2
 - 
 
572 
         rsCQTemp.LockType = 3
 - 
 
573 
         rsCQTemp.Open()
 - 
 
574 
 
 - 
 
575 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
576 
           %>
 - 
 
577 
                <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
 - 
 
578 
                <%rsCQTemp.MoveNext
 - 
 
579 
         WEnd
 - 
 
580 
         rsCQTemp.Close()
 - 
 
581 
         %>
 - 
 
582 
            </select></td>
 - 
 
583 
          </tr>
 - 
 
584 
          <tr>
 - 
 
585 
            <td align="left" class="wform_ttl">&nbsp;</td>
 - 
 
586 
            <td><fieldset>
 - 
 
587 
              <legend class="form_wtxt_link">Issue Status </legend>
 - 
 
588 
           <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 466 
            <table width="100" border="0" cellspacing="5" cellpadding="0">
589 
           <%
 - 
 
590 
            '---- ISSUE STATES ----
 - 
 
591 
            Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
592 
            rsCQTemp.ActiveConnection = CQ_conn
 - 
 
593 
 
 - 
 
594 
            '-- Get Issuestates
 - 
 
595 
            SQLstr = _
 - 
 
596 
            " SELECT sd.ID,"&_
 - 
 
597 
            "       sd.NAME"&_
 - 
 
598 
            "  FROM DEVI_PROD.admin.STATEDEF sd"&_
 - 
 
599 
            " ORDER BY sd.ORDINAL"
 - 
 
600 
 
 - 
 
601 
            rsCQTemp.Source = SQLstr
 - 
 
602 
            rsCQTemp.CursorType = 0
 - 
 
603 
            rsCQTemp.CursorLocation = 2
 - 
 
604 
            rsCQTemp.LockType = 3
 - 
 
605 
            rsCQTemp.Open()
 - 
 
606 
 
 - 
 
607 
              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
608 
               checked = ""
 - 
 
609 
 
 - 
 
610 
               If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 - 
 
611 
 
 - 
 
612 
              %>
 - 
 
613 
               <tr>
 467 
               <tr>
- 
 
 468 
                  <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
- 
 
 469 
                  <td nowrap>
614 
                     <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
 470 
                     <input name="FRiss_num" type="text" class="form_item" id="FRiss_num" value="<%=parFRiss_num%>" size="30" >
- 
 
 471 
                     <span class="form_wtxt_link">Example: ALL, 123, DEVI-123 </span>
- 
 
 472 
                  </td>
- 
 
 473 
               </tr>
- 
 
 474 
               <tr>
615 
                     <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
 475 
                  <td align="left" class="wform_ttl">Database</td>
616 
                   </tr>
 476 
                  <td>
- 
 
 477 
                     <select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
- 
 
 478 
                        <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
- 
 
 479 
                        <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
- 
 
 480 
                        <%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
- 
 
 481 
                           <option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
- 
 
 482 
                           <option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
- 
 
 483 
                        <%End If%>
617 
                   <%rsCQTemp.MoveNext
 484 
                     </select>
- 
 
 485 
                  </td>
618 
            WEnd
 486 
               </tr>
619 
            rsCQTemp.Close()
 487 
               <tr>
- 
 
 488 
                  <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
- 
 
 489 
                  <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
620 
            %>
 490 
               </tr>
621 
            </table>
 491 
            </table>
622 
         </fieldset></td>
 - 
 
623 
          </tr>
 - 
 
624 
          <tr>
 - 
 
625 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 - 
 
626 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
 - 
 
627 
          </tr>
 - 
 
628 
        </table>
 - 
 
629 
      </DIV>
 - 
 
630 
      <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 - 
 
631 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
 - 
 
632 
 
 - 
 
633 
        <tr>
 - 
 
634 
            <td align="left" class="wform_ttl">Project</td>
 - 
 
635 
            <td><select name="categmain" class="form_item" id="categmain" style="width:100%;">
 - 
 
636 
              <option value="">ALL</option>
 - 
 
637 
              <%
 - 
 
638 
         '---- PROJECT ----
 - 
 
639 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
640 
         rsCQTemp.ActiveConnection = CQ_conn
 - 
 
641 
 
 - 
 
642 
         '-- Get projects
 - 
 
643 
         SQLstr = _
 - 
 
644 
         "SELECT si.CATEGORY_MAIN"&_
 - 
 
645 
         "  FROM TDSE_2002.admin.REQUEST si"&_
 - 
 
646 
         " WHERE NOT si.CATEGORY_MAIN IS NULL"&_
 - 
 
647 
         " GROUP BY si.CATEGORY_MAIN"&_
 - 
 
648 
         " ORDER BY si.CATEGORY_MAIN"
 - 
 
649 
 
 - 
 
650 
         rsCQTemp.Source = SQLstr
 - 
 
651 
         rsCQTemp.CursorType = 0
 - 
 
652 
         rsCQTemp.CursorLocation = 2
 - 
 
653 
         rsCQTemp.LockType = 3
 - 
 
654 
         rsCQTemp.Open()
 - 
 
655 
 
 - 
 
656 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
657 
           %>
 - 
 
658 
              <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
 - 
 
659 
              <%rsCQTemp.MoveNext
 - 
 
660 
         WEnd
 - 
 
661 
         rsCQTemp.Close()
 - 
 
662 
         %>
 - 
 
663 
            </select></td>
 - 
 
664 
          </tr>
 - 
 
665 
          <tr>
 - 
 
666 
            <td align="left" class="wform_ttl">Product</td>
 - 
 
667 
            <td><select name="categminor" class="form_item" id="categminor" style="width:100%;">
 - 
 
668 
              <option value="">ALL</option>
 - 
 
669 
              <%
 - 
 
670 
         '---- PRODUCT ----
 - 
 
671 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
672 
         rsCQTemp.ActiveConnection = CQ_conn
 - 
 
673 
 
 - 
 
674 
         '-- Get product
 - 
 
675 
         SQLstr = _
 - 
 
676 
         "SELECT si.CATEGORY_MINOR"&_
 - 
 
677 
         "  FROM TDSE_2002.admin.REQUEST si"&_
 - 
 
678 
         " WHERE NOT si.CATEGORY_MINOR IS NULL"&_
 - 
 
679 
         " GROUP BY si.CATEGORY_MINOR"&_
 - 
 
680 
         " ORDER BY si.CATEGORY_MINOR"
 - 
 
681 
 
 - 
 
682 
         rsCQTemp.Source = SQLstr
 - 
 
683 
         rsCQTemp.CursorType = 0
 - 
 
684 
         rsCQTemp.CursorLocation = 2
 - 
 
685 
         rsCQTemp.LockType = 3
 - 
 
686 
         rsCQTemp.Open()
 - 
 
687 
 
 - 
 
688 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
689 
           %>
 - 
 
690 
              <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
 - 
 
691 
              <%rsCQTemp.MoveNext
 - 
 
692 
         WEnd
 - 
 
693 
         rsCQTemp.Close()
 - 
 
694 
         %>
 - 
 
695 
            </select></td>
 - 
 
696 
          </tr>
 - 
 
697 
          <tr>
 - 
 
698 
            <td align="left" class="wform_ttl">&nbsp;</td>
 - 
 
699 
            <td><fieldset>
 - 
 
700 
              <legend class="form_wtxt_link">Issue Status </legend>
 - 
 
701 
           <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
702 
           <%
 - 
 
703 
            '---- ISSUE STATES ----
 - 
 
704 
            Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
705 
            rsCQTemp.ActiveConnection = CQ_conn
 - 
 
706 
 
 - 
 
707 
            '-- Get Issuestates
 - 
 
708 
            SQLstr = _
 - 
 
709 
            " SELECT sd.ID,"&_
 - 
 
710 
            "       sd.NAME"&_
 - 
 
711 
            "  FROM TDSE_2002.admin.STATEDEF sd"&_
 - 
 
712 
            " UNION "&_
 - 
 
713 
            " SELECT sd.ID,"&_
 - 
 
714 
            "       sd.NAME"&_
 - 
 
715 
            "  FROM VTSUP.admin.STATEDEF sd"
 - 
 
716 
 
 - 
 
717 
            rsCQTemp.Source = SQLstr
 - 
 
718 
            rsCQTemp.CursorType = 0
 - 
 
719 
            rsCQTemp.CursorLocation = 2
 - 
 
720 
            rsCQTemp.LockType = 3
 - 
 
721 
            rsCQTemp.Open()
 - 
 
722 
 
 - 
 
723 
              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
724 
               checked = ""
 - 
 
725 
 
 - 
 
726 
               If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 - 
 
727 
 
 492 
 
- 
 
 493 
            <DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
- 
 
 494 
               <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
- 
 
 495 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
- 
 
 496 
                     <tr>
- 
 
 497 
                        <td align="left" class="wform_ttl" valign="top">Title</td>
- 
 
 498 
                        <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
- 
 
 499 
                     </tr>
- 
 
 500 
                     <tr>
- 
 
 501 
                        <td align="left" class="wform_ttl">Package</td>
- 
 
 502 
                        <td>
- 
 
 503 
                           <select name="package" class="form_item" id="package" style="width:100%;">
- 
 
 504 
                              <option value="">ALL</option>
- 
 
 505 
                              <%
- 
 
 506 
                              '---- PACKAGES ----
- 
 
 507 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 508 
                              rsCQTemp.ActiveConnection = CQ_conn
- 
 
 509 
 
- 
 
 510 
                              '-- Get projects
- 
 
 511 
                              SQLstr = _
- 
 
 512 
                              "SELECT si.PACKAGE_REF"&_
- 
 
 513 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
- 
 
 514 
                              " WHERE NOT si.PACKAGE_REF IS NULL"&_
- 
 
 515 
                              " GROUP BY si.PACKAGE_REF"&_
- 
 
 516 
                              " ORDER BY si.PACKAGE_REF"
- 
 
 517 
 
- 
 
 518 
                              rsCQTemp.Source = SQLstr
- 
 
 519 
                              rsCQTemp.CursorType = 0
- 
 
 520 
                              rsCQTemp.CursorLocation = 2
- 
 
 521 
                              rsCQTemp.LockType = 3
- 
 
 522 
                              rsCQTemp.Open()
- 
 
 523 
 
- 
 
 524 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 525 
                                 %>
- 
 
 526 
                                 <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
- 
 
 527 
                                 <%
- 
 
 528 
                                 rsCQTemp.MoveNext
- 
 
 529 
                              WEnd
- 
 
 530 
                              rsCQTemp.Close()
- 
 
 531 
                              %>
- 
 
 532 
                           </select>
- 
 
 533 
                        </td>
- 
 
 534 
                     </tr>
- 
 
 535 
                     <tr>
- 
 
 536 
                        <td align="left" class="wform_ttl">Project</td>
- 
 
 537 
                        <td>
- 
 
 538 
                           <select name="project" class="form_item" id="project" style="width:100%;">
- 
 
 539 
                              <option value="">ALL</option>
- 
 
 540 
                              <%
- 
 
 541 
                              '---- PROJECT ----
- 
 
 542 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 543 
                              rsCQTemp.ActiveConnection = CQ_conn
- 
 
 544 
 
- 
 
 545 
                              '-- Get projects
- 
 
 546 
                              SQLstr = _
- 
 
 547 
                              "SELECT si.PROJECT"&_
- 
 
 548 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
- 
 
 549 
                              " WHERE NOT si.PROJECT IS NULL"&_
- 
 
 550 
                              " GROUP BY si.PROJECT"&_
- 
 
 551 
                              " ORDER BY si.PROJECT"
- 
 
 552 
 
- 
 
 553 
                              rsCQTemp.Source = SQLstr
- 
 
 554 
                              rsCQTemp.CursorType = 0
- 
 
 555 
                              rsCQTemp.CursorLocation = 2
- 
 
 556 
                              rsCQTemp.LockType = 3
- 
 
 557 
                              rsCQTemp.Open()
- 
 
 558 
 
- 
 
 559 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 560 
                                 %>
- 
 
 561 
                                 <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
- 
 
 562 
                                 <%
- 
 
 563 
                                 rsCQTemp.MoveNext
- 
 
 564 
                              WEnd
- 
 
 565 
                              rsCQTemp.Close()
- 
 
 566 
                              %>
- 
 
 567 
                           </select>
- 
 
 568 
                        </td>
- 
 
 569 
                     </tr>
- 
 
 570 
                     <tr>
- 
 
 571 
                        <td align="left" class="wform_ttl">Product</td>
- 
 
 572 
                        <td>
- 
 
 573 
                           <select name="product" class="form_item" id="product" style="width:100%;">
- 
 
 574 
                              <option value="">ALL</option>
- 
 
 575 
                              <%
- 
 
 576 
                              '---- PRODUCT ----
- 
 
 577 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 578 
                              rsCQTemp.ActiveConnection = CQ_conn
- 
 
 579 
 
- 
 
 580 
                              '-- Get projects
- 
 
 581 
                              SQLstr = _
- 
 
 582 
                              "SELECT si.PRODUCT"&_
- 
 
 583 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
- 
 
 584 
                              " WHERE NOT si.PRODUCT IS NULL"&_
- 
 
 585 
                              " GROUP BY si.PRODUCT"&_
- 
 
 586 
                              " ORDER BY si.PRODUCT"
- 
 
 587 
 
- 
 
 588 
                              rsCQTemp.Source = SQLstr
- 
 
 589 
                              rsCQTemp.CursorType = 0
- 
 
 590 
                              rsCQTemp.CursorLocation = 2
- 
 
 591 
                              rsCQTemp.LockType = 3
- 
 
 592 
                              rsCQTemp.Open()
- 
 
 593 
 
- 
 
 594 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 595 
                                 %>
- 
 
 596 
                                 <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
- 
 
 597 
                                 <%
- 
 
 598 
                                 rsCQTemp.MoveNext
- 
 
 599 
                              WEnd
- 
 
 600 
                              rsCQTemp.Close()
- 
 
 601 
                              %>
- 
 
 602 
                           </select>
- 
 
 603 
                        </td>
- 
 
 604 
                     </tr>
- 
 
 605 
                     <tr>
- 
 
 606 
                        <td align="left" class="wform_ttl">&nbsp;</td>
- 
 
 607 
                        <td>
- 
 
 608 
                           <fieldset>
- 
 
 609 
                              <legend class="form_wtxt_link">Issue Status </legend>
- 
 
 610 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
- 
 
 611 
                                 <%
- 
 
 612 
                                 '---- ISSUE STATES ----
- 
 
 613 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 614 
                                 rsCQTemp.ActiveConnection = CQ_conn
- 
 
 615 
 
- 
 
 616 
                                 '-- Get Issuestates
- 
 
 617 
                                 SQLstr = _
- 
 
 618 
                                 " SELECT sd.ID,"&_
- 
 
 619 
                                 "       sd.NAME"&_
- 
 
 620 
                                 "  FROM CQ_DEVI.admin.STATEDEF sd"&_
- 
 
 621 
                                 " ORDER BY sd.ORDINAL"
- 
 
 622 
 
- 
 
 623 
                                 rsCQTemp.Source = SQLstr
- 
 
 624 
                                 rsCQTemp.CursorType = 0
- 
 
 625 
                                 rsCQTemp.CursorLocation = 2
- 
 
 626 
                                 rsCQTemp.LockType = 3
- 
 
 627 
                                 rsCQTemp.Open()
- 
 
 628 
 
- 
 
 629 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 630 
                                    checked = ""
- 
 
 631 
 
- 
 
 632 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
- 
 
 633 
                                    %>
- 
 
 634 
                                    <tr>
- 
 
 635 
                                       <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
- 
 
 636 
                                       <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
- 
 
 637 
                                    </tr>
- 
 
 638 
                                    <%
- 
 
 639 
                                    rsCQTemp.MoveNext
- 
 
 640 
                                 WEnd
- 
 
 641 
                                 rsCQTemp.Close()
- 
 
 642 
                                 %>
- 
 
 643 
                              </table>
- 
 
 644 
                           </fieldset>
- 
 
 645 
                        </td>
- 
 
 646 
                     </tr>
- 
 
 647 
                     <tr>
- 
 
 648 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
- 
 
 649 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
- 
 
 650 
                     </tr>
- 
 
 651 
                  </table>
- 
 
 652 
               </DIV>
- 
 
 653 
               <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
- 
 
 654 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
- 
 
 655 
                     <tr>
- 
 
 656 
                        <td align="left" class="wform_ttl">Project</td>
- 
 
 657 
                        <td>
- 
 
 658 
                           <select name="categmain" class="form_item" id="categmain" style="width:100%;">
- 
 
 659 
                              <option value="">ALL</option>
- 
 
 660 
                              <%
- 
 
 661 
                              '---- PROJECT ----
- 
 
 662 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 663 
                              rsCQTemp.ActiveConnection = CQ_conn
- 
 
 664 
 
- 
 
 665 
                              '-- Get projects
- 
 
 666 
                              SQLstr = _
- 
 
 667 
                              "SELECT si.CATEGORY_MAIN"&_
- 
 
 668 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
- 
 
 669 
                              " WHERE NOT si.CATEGORY_MAIN IS NULL"&_
- 
 
 670 
                              " GROUP BY si.CATEGORY_MAIN"&_
- 
 
 671 
                              " ORDER BY si.CATEGORY_MAIN"
- 
 
 672 
 
- 
 
 673 
                              rsCQTemp.Source = SQLstr
- 
 
 674 
                              rsCQTemp.CursorType = 0
- 
 
 675 
                              rsCQTemp.CursorLocation = 2
- 
 
 676 
                              rsCQTemp.LockType = 3
- 
 
 677 
                              rsCQTemp.Open()
- 
 
 678 
 
- 
 
 679 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 680 
                                 %>
- 
 
 681 
                                 <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
- 
 
 682 
                                 <%
- 
 
 683 
                                 rsCQTemp.MoveNext
- 
 
 684 
                              WEnd
- 
 
 685 
                              rsCQTemp.Close()
- 
 
 686 
                              %>
- 
 
 687 
                           </select>
- 
 
 688 
                        </td>
- 
 
 689 
                     </tr>
- 
 
 690 
                     <tr>
- 
 
 691 
                        <td align="left" class="wform_ttl">Product</td>
- 
 
 692 
                        <td>
- 
 
 693 
                           <select name="categminor" class="form_item" id="categminor" style="width:100%;">
- 
 
 694 
                              <option value="">ALL</option>
- 
 
 695 
                              <%
- 
 
 696 
                              '---- PRODUCT ----
- 
 
 697 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 698 
                              rsCQTemp.ActiveConnection = CQ_conn
- 
 
 699 
 
- 
 
 700 
                              '-- Get product
- 
 
 701 
                              SQLstr = _
- 
 
 702 
                              "SELECT si.CATEGORY_MINOR"&_
- 
 
 703 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
- 
 
 704 
                              " WHERE NOT si.CATEGORY_MINOR IS NULL"&_
- 
 
 705 
                              " GROUP BY si.CATEGORY_MINOR"&_
- 
 
 706 
                              " ORDER BY si.CATEGORY_MINOR"
- 
 
 707 
 
- 
 
 708 
                              rsCQTemp.Source = SQLstr
- 
 
 709 
                              rsCQTemp.CursorType = 0
- 
 
 710 
                              rsCQTemp.CursorLocation = 2
- 
 
 711 
                              rsCQTemp.LockType = 3
- 
 
 712 
                              rsCQTemp.Open()
- 
 
 713 
 
- 
 
 714 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 715 
                                 %>
- 
 
 716 
                                 <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
- 
 
 717 
                                 <%
- 
 
 718 
                                 rsCQTemp.MoveNext
- 
 
 719 
                              WEnd
- 
 
 720 
                              rsCQTemp.Close()
- 
 
 721 
                              %>
- 
 
 722 
                           </select>
- 
 
 723 
                        </td>
- 
 
 724 
                     </tr>
- 
 
 725 
                     <tr>
- 
 
 726 
                        <td align="left" class="wform_ttl">&nbsp;</td>
- 
 
 727 
                        <td>
- 
 
 728 
                           <fieldset>
- 
 
 729 
                              <legend class="form_wtxt_link">Issue Status </legend>
- 
 
 730 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
- 
 
 731 
                                 <%
- 
 
 732 
                                 '---- ISSUE STATES ----
- 
 
 733 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
- 
 
 734 
                                 rsCQTemp.ActiveConnection = CQ_conn
- 
 
 735 
 
- 
 
 736 
                                 '-- Get Issuestates
- 
 
 737 
                                 SQLstr = _
- 
 
 738 
                                 " SELECT sd.ID,"&_
- 
 
 739 
                                 "       sd.NAME"&_
- 
 
 740 
                                 "  FROM CQ_TDSE.admin.STATEDEF sd"&_
- 
 
 741 
                                 " UNION "&_
- 
 
 742 
                                 " SELECT sd.ID,"&_
- 
 
 743 
                                 "       sd.NAME"&_
- 
 
 744 
                                 "  FROM CQ_VTSUP.admin.STATEDEF sd"
- 
 
 745 
 
- 
 
 746 
                                 rsCQTemp.Source = SQLstr
- 
 
 747 
                                 rsCQTemp.CursorType = 0
- 
 
 748 
                                 rsCQTemp.CursorLocation = 2
- 
 
 749 
                                 rsCQTemp.LockType = 3
- 
 
 750 
                                 rsCQTemp.Open()
- 
 
 751 
 
- 
 
 752 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
- 
 
 753 
                                    checked = ""
- 
 
 754 
 
- 
 
 755 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
- 
 
 756 
 
- 
 
 757 
                                    %>
- 
 
 758 
                                    <tr>
- 
 
 759 
                                       <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
- 
 
 760 
                                       <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
- 
 
 761 
                                    </tr>
- 
 
 762 
                                    <%
- 
 
 763 
                                    rsCQTemp.MoveNext
- 
 
 764 
                                 WEnd
- 
 
 765 
                                 rsCQTemp.Close()
- 
 
 766 
                                 %>
- 
 
 767 
                              </table>
- 
 
 768 
                           </fieldset>
- 
 
 769 
                        </td>
- 
 
 770 
                     </tr>
- 
 
 771 
                     <tr>
- 
 
 772 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
- 
 
 773 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
- 
 
 774 
                     </tr>
- 
 
 775 
                  </table>
- 
 
 776 
               </DIV>
- 
 
 777 
            </DIV>
- 
 
 778 
 
- 
 
 779 
            <table width="400" border="0" cellspacing="5" cellpadding="0">
- 
 
 780 
               <tr background="images/lbox_bg_blue.gif">
- 
 
 781 
                  <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
728 
              %>
 782 
               </tr>
729 
               <tr>
 783 
               <tr>
730 
                     <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
 - 
 
731 
                     <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
 784 
                  <td width="1">&nbsp;</td>
732 
                   </tr>
 785 
                  <td width="100%">
733 
                   <%rsCQTemp.MoveNext
 786 
                     <input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp">
- 
 
 787 
                     <span class="form_wtxt_link">Click Find to initiate clearquest query based on your options</span>
734 
            WEnd
 788 
                  </td>
735 
            rsCQTemp.Close()
 - 
 
736 
            %>
 789 
               </tr>
737 
            </table>
 790 
            </table>
738 
         </fieldset></td>
 - 
 
739 
          </tr>
 791 
         </td>
740 
          <tr>
 - 
 
741 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 - 
 
742 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
 - 
 
743 
          </tr>
 - 
 
744 
        </table>
 - 
 
745 
      </DIV>
 - 
 
746 
 
 - 
 
747 
 
 - 
 
748 
</DIV>
 - 
 
749 
 
 - 
 
750 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
 - 
 
751 
          <tr background="images/lbox_bg_blue.gif">
 - 
 
752 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
753 
          </tr>
 - 
 
754 
          <tr>
 - 
 
755 
            <td width="1">&nbsp;</td>
 - 
 
756 
            <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
 - 
 
757 
          </tr>
 - 
 
758 
        </table></td>
 - 
 
759 
    </tr>
 - 
 
760 
 
 - 
 
761 
    <tr>
 - 
 
762 
      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
 - 
 
763 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
 - 
 
764 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 - 
 
765 
       <input type="submit" name="btn" value="Import" class="form_btn_comp">
 - 
 
766 
        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
 - 
 
767 
      </td>
 792 
      </tr>
768 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
 - 
 
769 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 - 
 
770 
    </tr>
 - 
 
771 
    <tr>
 - 
 
772 
      <td height="100%" width="1%">&nbsp;</td>
 - 
 
773 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 - 
 
774 
       <%If imported Then%>
 - 
 
775 
         <%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
 - 
 
776 
      <%End If%>
 - 
 
777 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 - 
 
778 
          <tr>
 - 
 
779 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 - 
 
780 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Number</td>
 - 
 
781 
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
 - 
 
782 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
 - 
 
783 
          </tr>
 - 
 
784 
        <%
 - 
 
785 
        rspCount = 0
 - 
 
786 
         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 - 
 
787 
           rsCQ.Move( rspMax * (rspPage - 1))
 - 
 
788 
 
 - 
 
789 
           %>
 - 
 
790 
           <%
 - 
 
791 
           While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
 - 
 
792 
 
 - 
 
793 
            If (objAccessControl.IsActive("ImportOpenIssues")) Then
 - 
 
794 
               Select Case UCase( rsCQ("state") )
 - 
 
795 
                  Case "OPEN"
 - 
 
796 
                     disabled = ""
 - 
 
797 
                  Case "SUSPENDED"
 - 
 
798 
                     disabled = ""
 - 
 
799 
                  Case Else
 - 
 
800 
                     disabled = ""
 - 
 
801 
               End Select
 - 
 
802 
            End If
 - 
 
803 
 
 - 
 
804 
            If NOT (objAccessControl.IsActive("ImportOpenIssues")) Then
 - 
 
805 
               If (parSkipOpen <> "") Then
 - 
 
806 
                  Select Case UCase( rsCQ("state") )
 - 
 
807 
                     Case "OPEN"
 - 
 
808 
                        disabled = "disabled"
 - 
 
809 
                     Case Else
 - 
 
810 
                        disabled = ""
 - 
 
811 
                  End Select
 - 
 
812 
               Else
 - 
 
813 
                  Select Case UCase( rsCQ("state") )
 - 
 
814 
                     Case "CLOSED"
 - 
 
815 
                        disabled = "disabled"
 - 
 
816 
                     Case Else
 - 
 
817 
                        disabled = ""
 - 
 
818 
                  End Select
 - 
 
819 
               End If
 - 
 
820 
            End If
 - 
 
821 
 
 - 
 
822 
 
 793 
 
823 
           %>
 794 
      <tr>
824 
             <tr>
 - 
 
825 
               <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_id")%>" <%=disabled%>></td>
 795 
         <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
826 
               <td nowrap class="form_item">
 796 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
827 
               <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=parFRiss_db%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
 - 
 
828 
               <%If parFRiss_num <> LENUM_ALL Then%>
 797 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
829 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
 798 
            <input type="submit" name="btn" value="Import" class="form_btn_comp">
830 
               <%Else%>
 - 
 
831 
               <%=rsCQ("iss_num")%>
 799 
            <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
832 
               <%End If%>
 - 
 
833 
               </a>
 - 
 
834 
            </td>
 800 
         </td>
835 
            <td class="form_item"><%=rsCQ("state")%></td>
 801 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
836 
               <td class="form_item"><%=Server.HTMLEncode(rsCQ("summary"))%></td>
 802 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
837 
             </tr>
 803 
         </td>
838 
           <%rspCount = rspCount + 1
 - 
 
839 
              rsCQ.MoveNext
 - 
 
840 
           WEnd
 804 
      </tr>
841 
           rsCQ.Close
 - 
 
842 
           Set rsCQ = nothing%>
 - 
 
843 
        <%End If%>
 - 
 
844 
          <tr>
 805 
      <tr>
845 
            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 806 
         <td height="100%" width="1%">&nbsp;</td>
846 
            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
 807 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
847 
            <%
 808 
            <%
848 
            If rspTotal > rspMax Then
 809 
            If imported Then
849 
               If CInt(rspPage) = CInt(rspTotalPages) Then
 810 
               Call DisplayInfo ( "ISSUES_IMPORTED", "300" )
850 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
 - 
 
851 
               Else
 - 
 
852 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
 - 
 
853 
               End If
 - 
 
854 
            Else
 - 
 
855 
               Response.write "Found "& rspTotal &" records"
 - 
 
856 
            End If
 811 
            End If
857 
            %>
 812 
            %>
- 
 
 813 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 814 
               <tr>
- 
 
 815 
                  <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
- 
 
 816 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Number</td>
- 
 
 817 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
- 
 
 818 
                  <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
- 
 
 819 
               </tr>
- 
 
 820 
               <%
- 
 
 821 
               rspCount = 0
- 
 
 822 
               If (parDoQuery <> "0") Then
- 
 
 823 
                  If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
- 
 
 824 
                     rsCQ.Move( rspMax * (rspPage - 1))
- 
 
 825 
 
- 
 
 826 
                     While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
- 
 
 827 
 
- 
 
 828 
                        If (objAccessControl.IsActive("ImportOpenIssues")) Then
- 
 
 829 
                           Select Case UCase( rsCQ("state") )
- 
 
 830 
                           Case "OPEN"
- 
 
 831 
                              disabled = ""
- 
 
 832 
                           Case "SUSPENDED"
- 
 
 833 
                              disabled = ""
- 
 
 834 
                           Case Else
- 
 
 835 
                              disabled = ""
- 
 
 836 
                           End Select
- 
 
 837 
                        End If
- 
 
 838 
 
- 
 
 839 
                        If NOT (objAccessControl.IsActive("ImportOpenIssues")) Then
- 
 
 840 
                           If (parSkipOpen <> "") Then
- 
 
 841 
                              Select Case UCase( rsCQ("state") )
- 
 
 842 
                              Case "OPEN"
- 
 
 843 
                                 disabled = "disabled"
- 
 
 844 
                              Case Else
- 
 
 845 
                                 disabled = ""
- 
 
 846 
                              End Select
- 
 
 847 
                           Else
- 
 
 848 
                              Select Case UCase( rsCQ("state") )
- 
 
 849 
                              Case "CLOSED"
- 
 
 850 
                                 disabled = "disabled"
- 
 
 851 
                              Case Else
- 
 
 852 
                                 disabled = ""
- 
 
 853 
                              End Select
- 
 
 854 
                           End If
- 
 
 855 
                        End If
- 
 
 856 
                        %>
- 
 
 857 
                        <tr>
- 
 
 858 
                           <td>
- 
 
 859 
                              <input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_id")%>" <%=disabled%>>
- 
 
 860 
                           </td>
- 
 
 861 
                           <td nowrap class="form_item">
- 
 
 862 
                              <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=parFRiss_db%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
- 
 
 863 
                                 <%If parFRiss_num <> LENUM_ALL Then%>
- 
 
 864 
                                    <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
- 
 
 865 
                                 <%Else%>
- 
 
 866 
                                    <%=rsCQ("iss_num")%>
- 
 
 867 
                                 <%End If%>
- 
 
 868 
                              </a>
- 
 
 869 
                           </td>
- 
 
 870 
                           <td class="form_item"><%=rsCQ("state")%></td>
- 
 
 871 
                           <td class="form_item"><%=Server.HTMLEncode(rsCQ("summary"))%></td>
- 
 
 872 
                        </tr>
- 
 
 873 
                        <%
- 
 
 874 
                        rspCount = rspCount + 1
- 
 
 875 
                        rsCQ.MoveNext
- 
 
 876 
                     WEnd
- 
 
 877 
                     rsCQ.Close
- 
 
 878 
                     Set rsCQ = nothing
- 
 
 879 
                  End If
- 
 
 880 
               End If
- 
 
 881 
               %>
- 
 
 882 
               <tr>
- 
 
 883 
                  <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
- 
 
 884 
                  <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
- 
 
 885 
                     <%
- 
 
 886 
                     If rspTotal > rspMax Then
- 
 
 887 
                        If CInt(rspPage) = CInt(rspTotalPages) Then
- 
 
 888 
                           Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
- 
 
 889 
                        Else
- 
 
 890 
                           Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
- 
 
 891 
                        End If
- 
 
 892 
                     Else
- 
 
 893 
                        Response.write "Found "& rspTotal &" records"
- 
 
 894 
                     End If
- 
 
 895 
                     %>
- 
 
 896 
                  </td>
- 
 
 897 
               </tr>
- 
 
 898 
            </table>
- 
 
 899 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 900 
               <tr>
- 
 
 901 
                  <td align="center">
- 
 
 902 
                     <%If CInt(rspPage) > 1 Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1;  importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
- 
 
 903 
                     <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1;  importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%>
- 
 
 904 
                  </td>
- 
 
 905 
               </tr>
- 
 
 906 
            </table>
- 
 
 907 
            <br>
858 
         </td>
 908 
         </td>
859 
          </tr>
 - 
 
860 
        </table>
 - 
 
861 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 - 
 
862 
          <tr>
 - 
 
863 
            <td align="center">
 - 
 
864 
           <%If CInt(rspPage) > 1 Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1;  importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
 - 
 
865 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1;  importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
 - 
 
866 
          </tr>
 - 
 
867 
        </table>
 - 
 
868 
        <br>
 - 
 
869 
      </td>
 909 
      </tr>
870 
    </tr>
 - 
 
871 
    <tr>
 910 
      <tr>
872 
      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 911 
         <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
873 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 912 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
874 
    </tr>
 913 
      </tr>
875 
  </table>
 914 
   </table>
876 
<input name="rpg" type="hidden" value="<%=rspPage%>">
 915 
   <input name="rpg" type="hidden" value="<%=rspPage%>">
877 
<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
 916 
   <input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
878 
<input name="pv_id" type="hidden" value="<%=parPv_id%>">
 917 
   <input name="pv_id" type="hidden" value="<%=parPv_id%>">
879 
<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
 918 
   <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
- 
 
 919 
   <input name="doQuery" id="doQuery" type="hidden" value="1">
880 
<input name="action" type="hidden" value="true">
 920 
   <input name="action" type="hidden" value="true">
881 
</form>
 921 
</form>
882 
<%Else%>
 922 
<%Else%>
883 
<%=enumMSSQL_ERROR%>
 923 
<%=enumMSSQL_ERROR%>
884 
<%End If%>
 924 
<%End If%>
885 
</body>
 925 
</body>