<%
'===================================================================================
'								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
'------------------------------------------------------------------------------------------------------------------------------------
%>