Subversion Repositories DevTools

Rev

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

Rev 153 Rev 159
Line 712... Line 712...
712 
	Set rsQry = CreateObject("ADODB.Connection")
 712 
	Set rsQry = CreateObject("ADODB.Connection")
713 
 
 713 
 
714 
	rsQry.Open CQ_conn
 714 
	rsQry.Open CQ_conn
715 
 
 715 
 
716 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 716 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
717 
		Source = "EXEC devi_prod.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
 717 
                Source = "EXEC cq_devi.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
718 
		rsQry.Execute Source
 718 
		rsQry.Execute Source
719 
	End If
 719 
	End If
720 
 
 720 
 
721 
	'On Error Resume Next
 721 
	'On Error Resume Next
722 
 
 722