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 cq_devi.admin.software_issue si"&_
                        "  WHERE si.new_num = '"& 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
'------------------------------------------------------------------------------------------------------------------------------------
%>