Subversion Repositories DevTools

Rev

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

Rev 5632 Rev 5648
Line 1510... Line 1510...
1510 
                  <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
 1510 
                  <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
1511 
                     <strong>Ripple Type</strong>
 1511 
                     <strong>Ripple Type</strong>
1512 
                     <%=Quick_Help ( "ripple_type" )%>
 1512 
                     <%=Quick_Help ( "ripple_type" )%>
1513 
                  </td>
 1513 
                  </td>
1514 
                  <td width="80%" bgcolor=#f5f5f5>
 1514 
                  <td width="80%" bgcolor=#f5f5f5>
1515 
                     <p>
 - 
 
1516 
                        <%
 1515 
                        <%
1517 
                        Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
 1516 
                        Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1518 
                        Response.write "<tr>"
 1517 
                        Response.write "<tr>"
1519 
                        Response.write "<td class='sublbox_txt'>"
 1518 
                        Response.write "<td class='sublbox_txt'>"
1520 
                        Dim anotherQry, selectedRippleType
 1519 
                        Dim selectedRippleType, selectedRippleName, selectedRippleState
1521 
                        selectedRippleType = pkgInfoHash.Item ("ripple_field")
 1520 
                        selectedRippleType = pkgInfoHash.Item ("ripple_field")
1522 
                        Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
 1521 
                        selectedRippleName = rippleFieldName(selectedRippleType, selectedRippleState)
1523 
                        If anotherQry.RecordCount = 0  Then
 1522 
                        If NOT selectedRippleState Then
1524 
                           Response.write "<span class='err_alert'>Required!</span>"
 1523 
                           Response.write "<span class='err_alert'>Required!</span>"
1525 
                        Else
 1524 
                        Else
1526 
                        Response.write( anotherQry.Fields("state_name").Value )
 1525 
                            Response.write( selectedRippleName )
1527 
                        End If
 1526 
                        End If
1528 
                        anotherQry.Close()
 - 
 
1529 
                        Set anotherQry = nothing
 - 
 
1530 
                        If ( selectedRippleType = "L" ) Then
 1527 
                        If ( selectedRippleType = "L" ) Then
1531 
                        Dim qry
 1528 
                        Dim qry
1532 
                        Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
 1529 
                        Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
1533 
                        Response.write " "
 1530 
                        Response.write " "
1534 
                        If isNull(qry("major_limit")) Then
 1531 
                        If isNull(qry("major_limit")) Then
Line 1555... Line 1552...
1555 
                           Response.write( qry.Fields( "build_number_limit" ).Value )
 1552 
                           Response.write( qry.Fields( "build_number_limit" ).Value )
1556 
                        End If
 1553 
                        End If
1557 
                        qry.Close()
 1554 
                        qry.Close()
1558 
                        Set qry = nothing
 1555 
                        Set qry = nothing
1559 
                        End If
 1556 
                        End If
1560 
                        Response.Write "<br></td>"
 1557 
                        Response.Write "</td>"
1561 
                        Response.write "</tr>"
 1558 
                        Response.write "</tr>"
1562 
                        Response.write "</table>"
 1559 
                        Response.write "</table>"
1563 
                        %>
 1560 
                        %>
1564 
                     </p>
 - 
 
1565 
                  </td>
 1561 
                  </td>
1566 
               </tr>
 1562 
               </tr>
1567 
            <%End If%>
 1563 
            <%End If%>
1568 
         </table>
 1564 
         </table>
1569 
      </fieldset>
 1565 
      </fieldset>