| 119 |
ghuddy |
1 |
<%
|
|
|
2 |
'===================================================================================
|
|
|
3 |
' CQ common subs
|
|
|
4 |
'===================================================================================
|
|
|
5 |
%>
|
|
|
6 |
<%
|
|
|
7 |
'------------------------------------------------------------------------------------------------------------------------------------
|
|
|
8 |
Sub Get_Iss_Parameters ( nIss_db, nIss_id )
|
|
|
9 |
Dim SQLstr, rsQry
|
|
|
10 |
Set rsQry = Server.CreateObject("ADODB.Recordset")
|
|
|
11 |
|
|
|
12 |
If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
|
|
|
13 |
nIss_db = Cint(Request("iss_db"))
|
|
|
14 |
nIss_id = Request("iss_id")
|
|
|
15 |
|
|
|
16 |
ElseIf Request("iss_db_name") <> "" AND Request("iss_id_num") <> "" Then
|
|
|
17 |
If Ucase(Request("iss_db_name")) = "DEVI" Then
|
|
|
18 |
nIss_db = enumCLEARQUEST_DEVI_ID
|
|
|
19 |
SQLstr = _
|
|
|
20 |
" SELECT si.dbid"&_
|
|
|
21 |
" FROM devi_prod.admin.software_issue si"&_
|
|
|
22 |
" WHERE si.new_num = '"& Request("iss_id_num") &"'"
|
|
|
23 |
|
|
|
24 |
ElseIf Ucase(Request("iss_db_name")) = "TDSE" Then
|
|
|
25 |
nIss_db = enumCLEARQUEST_TDSE_ID
|
|
|
26 |
SQLstr = _
|
|
|
27 |
" SELECT si.dbid"&_
|
|
|
28 |
" FROM tdse_2002.admin.request si"&_
|
|
|
29 |
" WHERE si.job_number = '"& Request("iss_id_num") &"'"
|
|
|
30 |
|
|
|
31 |
Else
|
|
|
32 |
' Database name unknown!
|
|
|
33 |
' Error message...
|
|
|
34 |
Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
|
|
|
35 |
End If
|
|
|
36 |
|
|
|
37 |
' Get Iss ID
|
|
|
38 |
rsQry.ActiveConnection = CQ_conn
|
|
|
39 |
rsQry.Source = SQLstr
|
|
|
40 |
rsQry.CursorType = 0
|
|
|
41 |
rsQry.CursorLocation = 2
|
|
|
42 |
rsQry.LockType = 3
|
|
|
43 |
rsQry.Open()
|
|
|
44 |
|
|
|
45 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
|
|
46 |
nIss_id = rsQry("dbid")
|
|
|
47 |
Else
|
|
|
48 |
' Iss number is not found!
|
|
|
49 |
' Error message...
|
|
|
50 |
Call RaiseMsg ( enum_WMSG_ERROR, "Issue number "& Request("iss_id_num") &" is not found in "& Request("iss_db_name") &" database!" )
|
|
|
51 |
End If
|
|
|
52 |
|
|
|
53 |
rsQry.Close
|
|
|
54 |
Set rsQry = nothing
|
|
|
55 |
Else
|
|
|
56 |
' Not enought parameters
|
|
|
57 |
' Error message...
|
|
|
58 |
Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!" )
|
|
|
59 |
|
|
|
60 |
End If
|
|
|
61 |
End Sub
|
|
|
62 |
'------------------------------------------------------------------------------------------------------------------------------------
|
|
|
63 |
%>
|