Subversion Repositories DevTools

<%
'===================================================================================
'                                                               CQ common subs
'===================================================================================
%>
<%
'------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Iss_Parameters ( nIss_db, nIss_id )
        Dim SQLstr, rsQry
        Set rsQry = Server.CreateObject("ADODB.Recordset")
        
        If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
                nIss_db = Cint(Request("iss_db"))
                nIss_id = Request("iss_id")
                
        ElseIf Request("iss_db_name") <> "" AND Request("iss_id_num") <> "" Then
                If Ucase(Request("iss_db_name")) = "DEVI" Then
                        nIss_db = enumCLEARQUEST_DEVI_ID
                        SQLstr = _
                        " SELECT si.dbid"&_
                        "   FROM devi_prod.admin.software_issue si"&_
                        "  WHERE si.new_num = '"& Request("iss_id_num") &"'"
                        
                ElseIf Ucase(Request("iss_db_name")) = "TDSE" Then
                        nIss_db = enumCLEARQUEST_TDSE_ID
                        SQLstr = _
                        " SELECT si.dbid"&_
                        "   FROM tdse_2002.admin.request si"&_
                        "  WHERE si.job_number = '"& Request("iss_id_num") &"'"
                        
                Else
                        ' Database name unknown!
                        ' Error message...
                        Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
                End If
                
                ' Get Iss ID
                rsQry.ActiveConnection = CQ_conn
                rsQry.Source = SQLstr
                rsQry.CursorType = 0
                rsQry.CursorLocation = 2
                rsQry.LockType = 3
                rsQry.Open()
                
                If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
                        nIss_id = rsQry("dbid")
                Else
                        ' Iss number is not found!
                        ' Error message...
                        Call RaiseMsg ( enum_WMSG_ERROR, "Issue number "& Request("iss_id_num") &" is not found in "& Request("iss_db_name") &" database!" )
                End If
                
                rsQry.Close
                Set rsQry = nothing
        Else
                ' Not enought parameters
                ' Error message...
                Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!" )
        
        End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------
%>