1 2 3 4 5 6 7 8 9 10 11 12 13
|
Dim script As String = "document.location.href('http://localhost/tmtrack/tmtrack.dll?ScriptPage&scriptName=AddItemRMM&title=" & Regex.Replace(sTitle, "<br/>", String.Empty, RegexOptions.IgnoreCase) & "&description=" & sDescription & "&livraison=" & sLivDemande & "&moduleid=" & TsMod & "');"
Dim SqlTSIDParent As String = String.Format("select TS_ID from USR_DMFI_MANAGEMENT where TS_ID = (select max(TS_ID) from USR_DMFI_MANAGEMENT)")
Dim DT_TSIDParent As DataTable = cnxtt.Resultat_Requete2(SqlTSIDParent)
Dim SqlTSIDEnfant As String = String.Format("select TS_ID from USR_DMFI_MANAGEMENT where TS_ISSUEID = {0}", sIssueId)
Dim DT_TSIDEnfant As DataTable = cnxtt.Resultat_Requete2(SqlTSIDEnfant)
Dim script2 As String = "document.location.href('http://mplateaux/tmtrack/tmtrack.dll?ScriptPage&destid=" & DT_TSIDParent.Rows(0).Item(0) & "&srcid=" & DT_TSIDEnfant.Rows(0).Item(0) & "&scriptname=AddLinksTMM');"
ScriptManager.RegisterStartupScript(Me, GetType(Page), "telechargerCET", script2, True) |
Partager