| 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")
|
| 159 |
ghuddy |
11 |
|
| 119 |
ghuddy |
12 |
If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
|
|
|
13 |
nIss_db = Cint(Request("iss_db"))
|
|
|
14 |
nIss_id = Request("iss_id")
|
| 159 |
ghuddy |
15 |
|
| 119 |
ghuddy |
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"&_
|
| 159 |
ghuddy |
21 |
" FROM cq_devi.admin.software_issue si"&_
|
| 119 |
ghuddy |
22 |
" WHERE si.new_num = '"& Request("iss_id_num") &"'"
|
|
|
23 |
Else
|
|
|
24 |
' Database name unknown!
|
|
|
25 |
' Error message...
|
|
|
26 |
Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
|
|
|
27 |
End If
|
| 159 |
ghuddy |
28 |
|
| 119 |
ghuddy |
29 |
' Get Iss ID
|
|
|
30 |
rsQry.ActiveConnection = CQ_conn
|
|
|
31 |
rsQry.Source = SQLstr
|
|
|
32 |
rsQry.CursorType = 0
|
|
|
33 |
rsQry.CursorLocation = 2
|
|
|
34 |
rsQry.LockType = 3
|
|
|
35 |
rsQry.Open()
|
| 159 |
ghuddy |
36 |
|
| 119 |
ghuddy |
37 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
|
|
38 |
nIss_id = rsQry("dbid")
|
|
|
39 |
Else
|
|
|
40 |
' Iss number is not found!
|
|
|
41 |
' Error message...
|
|
|
42 |
Call RaiseMsg ( enum_WMSG_ERROR, "Issue number "& Request("iss_id_num") &" is not found in "& Request("iss_db_name") &" database!" )
|
|
|
43 |
End If
|
| 159 |
ghuddy |
44 |
|
| 119 |
ghuddy |
45 |
rsQry.Close
|
|
|
46 |
Set rsQry = nothing
|
|
|
47 |
Else
|
|
|
48 |
' Not enought parameters
|
|
|
49 |
' Error message...
|
|
|
50 |
Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!" )
|
| 159 |
ghuddy |
51 |
|
| 119 |
ghuddy |
52 |
End If
|
|
|
53 |
End Sub
|
|
|
54 |
'------------------------------------------------------------------------------------------------------------------------------------
|
| 159 |
ghuddy |
55 |
%>
|