Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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

            63
            
%>

          

          

            -
            
 

            64