Dim Params As IDictionary = New Hashtable Params.Add("UserID", dtUser.Rows(0)("User_ID")) Params.Add("SubmitterID", CStr(Session("SubmitterID"))) Params.Add("XRefName", sXrefName) Params.Add("XRefLevel", dtSubscriber.Rows(0)("Responsibility_Sequence_No_Code")) Params.Add("TranType", CStr(Session("TranType")))
Dim sQuery As String = "spMtUpdateXRef " _ & "'" & Params.Item("UserID").ToString _ & "', '" & Params.Item("SubmitterID").ToString _ & "', '" & Params.Item("XRefName").ToString _ & "', '" & Params.Item("XRefLevel").ToString _ & "', '" & Params.Item("TranType").ToString & "'"HTH,