API tools faq
paste
Advertisement
westernpilot

Untitled

westernpilot
Jan 27th, 2016
120
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.40 KB | None | 0 0
raw download clone embed print report
  1. <%@ Language=VBScript CodePage="65001" %>
  2. <%Option explicit
  3. %>
  4. <!-- #include file="common.inc" -->
  5. <!-- #include file="QueryStrHeader.asp"-->
  6. <!-- #include file="RefreshConstants.asp"-->
  7. <%
  8. '*********************************************
  9. 'QueryStrings
  10. 'OppFlag (Operation) = 1 - Download, 2 - Redirect/Close & Refresh Parent
  11. 'ClosewinFlag = 1 - Close the window and refresh the parent window
  12. ' 0 - Redirect the page to another page
  13. ' 7 - Reload Extjs grid.
  14. 'CloseWinCommand will have command string to close the window. For eg. ( Window, Window.Parent and so on )
  15. 'RedirectURL = URL of the redirect page
  16. '
  17. '*********************************************
  18. dim downloadlink,downloadanchor,downloadlinkstring
  19. dim lProcessID
  20. dim DomainStID,DomainEleID, asSister,modflg, lReportType, lMPPReport,lContactMode
  21. dim crpLvlFlag, lDocType,SysType, lOppFlag, lClosewinFlag, strRedirectURL, strCloseWinCommand, strCallFunction,OutXml,strExportXml, lCloseflg
  22.  
  23. lProcessID = XSSNumber(Request.QueryString("ProcessID"))
  24.  
  25. DomainStID = XssNumber(Request.QueryString("DomSId"))
  26. DomainEleID = XssNumber(Request.QueryString("DomNId"))
  27. asSister = XssNumber(Request.QueryString("asSister"))
  28. modflg = XssNumber(Request.QueryString("modflg"))'User manageMent
  29. crpLvlFlag = XssNumber(Request.QueryString("crpLvlFlag"))'User manageMent
  30. lDocType = XssNumber(Request.QueryString("DocType")) 'SummaryReport
  31. SysType = XssNumber(Request.QueryString("SysType"))
  32. lOppFlag = XssNumber(Request.QueryString("OppFlag"))
  33. lClosewinFlag = XssNumber(Request.QueryString("ClosewinFlag"))
  34. strRedirectURL = Request.QueryString("RedirectURL")
  35. strCloseWinCommand = Request.QueryString("CloseWinCommand")
  36. strCallFunction = Request.QueryString("CallFunction")
  37. lReportType = XssNumber(Request.QueryString("ReportType"))
  38. lMPPReport = XssNumber(Request.QueryString("MPP"))
  39. lContactMode = XssNumber(Request.QueryString("ContactMode"))
  40. lCloseflg = XssNumber(Request.QueryString("Closeflg"))
  41.  
  42. dim lDispFlg
  43. lDispFlg = XssNumber(Request.QueryString("DispFlg"))
  44. if lDispFlg = "" then lDispFlg = 0
  45.  
  46. If lClosewinFlag = "" Then lClosewinFlag = -1
  47. If lOppFlag = "" Then lOppFlag = -1
  48.  
  49. dim objBkGrnd,objBkGrd
  50. Dim lngStatus,Message,lResultID, msgDisplay
  51.  
  52.  
  53. on error resume next
  54. if lXmlFlg=1 then
  55. Set objBkGrd = Server.CreateObject("OrchestraMSP.MSPPDS")
  56. strExportXml=objBkGrd.GetExportStatus(lCrpID,lProcessID)
  57. set OutXml = Server.CreateObject("MSXML2.DOMDOCUMENT")
  58. OutXml.async = false
  59. OutXml.loadXML(strExportXml)
  60. response.write OutXml.xml
  61. response.end
  62.  
  63. else
  64. Set objBkGrnd = Server.CreateObject("Orchestra.Kernel")
  65. lngStatus = objBkGrnd.CheckStatus(lCrpID,strSessionId,lProcessID,Message,lResultID)
  66.  
  67. end if
  68.  
  69. if err then
  70. Message = GetErrorMsg()
  71. set objBkGrnd=nothing
  72. OrchRedir "ErrorResult/DisplayError.asp?lngStatus=-1&Flg=" & lFlg & "&msg=" & server.urlEncode(Message & "") & "&" & GetCommonQstr() & "&AppID=" & lAppID
  73. end if
  74. set objBkGrnd=nothing
  75.  
  76. on error goto 0
  77.  
  78. Select Case lngStatus
  79. Case -3
  80. if lFlg = OrchExport then
  81. msgDisplay = "<br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;</td></tr></table>"
  82. call reloadParentScript
  83. else
  84. msgDisplay = "<br><br><br><br><table width=100% align=center ><tr><td valign=bottom align=center width=100% border=1><span class=instructions> " & Message & "</span>&nbsp;</td></tr></table>"
  85. end if
  86. Case -2
  87. msgDisplay = "<br><br><br><br><table width=100% align=center ><tr><td valign=bottom align=center width=100% border=1><span class=instructions> "& lng_search_in_progress &" </span>&nbsp;<img src=images/dots.gif></td>/tr></table>"
  88. Case 0
  89. msgDisplay = "<br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;<img src=images/dots.gif></td></tr></table>"
  90. Case 1
  91. if lDispFlg = 1 then
  92. msgDisplay = "<table width=100% align=center cellpadding=0 cellspacing=0 border=0><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;<img src=images/dots.gif height=18></td></tr></table>"
  93. else
  94. msgDisplay = "<br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;<img src=images/dots.gif></td></tr></table>"
  95. end if
  96.  
  97. Case 2
  98. If lOppFlag < 0 Then
  99. set objBkGrnd=nothing
  100. ' These line are going to delete the temporary files and folder on file server
  101. if ((lFlg=OrchWordImport and lStrtID <> "") or lFlg=OrchWinFolderImport or ( lFlg=OrchCorpTemplImp and clng(SysType) <> 14) or (lFlg=OrchStructWordImport)) then
  102.  
  103. dim ObjDMS
  104. on error resume next
  105. set ObjDMS = server.CreateObject("OrchDocuments.Documents")
  106. ObjDMS.DeleteTemp lCrpID,lPrjID, lProcessID, strSessionId
  107. set ObjDMS=nothing
  108.  
  109. end if
  110.  
  111. if lFlg = OrchSubscribedCorporate then 'Redirecting to subscribed corporate
  112. OrchRedir "UserMgmt/ListSubCorporate.asp"
  113. elseif lFlg = OrchSearchResult then
  114. 'Response.Redirect ("search/SearchResult.asp?ProcessID=" & lResultID & "&" & GetCommonQstr() & "&AppID=" & lAppID )
  115. OrchRedir "search/NewSearch.asp?SubProcessID=" & lResultID & "&AppID=" & lAppID & "&" & Request.Querystring()
  116. elseif lFlg = OrchRefreshMail then
  117. OrchRedir "Mails/MailsListing.asp?" & GetCommonQstr() & "&AppID=" & lAppID
  118. elseif lFlg = OrchProjectCreation then
  119. OrchRedir "tree/project.asp?PrjID=" & lResultID & "&CrpID=" & lCrpID & "&AppID=101&stEvName=" & server.URLEncode(strEventName & "") & "&EventActive=1"
  120. elseif lFlg = OrchExport then
  121. call CloseWin("Results/Download.asp?" & GetCommonQstr() & "&ProcessID=" & lResultID)
  122. elseif lFlg = OrchHtmlReport then
  123. call popHtmlReport ("Descriptors/makereport.asp?" & GetCommonQstr()& "&ProcessID=" & lProcessID & "&Fetch=1")
  124. elseif lFlg = OrchWordReport then
  125. call CloseWin("Descriptors/makereport.asp?" & GetCommonQstr()& "&ProcessID=" & lProcessID & "&Fetch=2")
  126. 'Response.Redirect ("Descriptors/makereport.asp?" & GetCommonQstr()& "&ProcessID=" & lProcessID & "&Fetch=2")
  127. elseif lFlg = OrchExcelReport then
  128. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=4&ProcessID=" & lProcessID)
  129. elseif lFlg = OrchCSVExport then
  130. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=6&ProcessID=" & lProcessID)
  131. elseif lFlg = OrchXptReport then
  132. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=9&ProcessID=" & lProcessID)
  133. elseif lFlg = OrchPrismReport then
  134. call CloseWin( "reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=10&ProcessID=" & lProcessID )
  135. elseif lFlg = OrchXmlReport then
  136. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=7&ProcessID=" & lProcessID)
  137. elseif lFlg = OrchWordImport then
  138. if lStrtID = "" then
  139. OrchRedir "tree/ListStructures.asp?" & GetCommonQstr()
  140. else
  141. call ImportSuccess()
  142. end if
  143. elseif lFlg = OrchStructWordImport then
  144. OrchRedir "tree/ListStructures.asp?" & GetCommonQstr() '" & Request.QueryString()
  145. elseif lFlg = OrchProjectHTMLReport then
  146. call CloseWin( "reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=1&ProcessID=" & lProcessID )
  147. elseif lFlg = OrchProjectWordReport then
  148. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=2&ProcessID=" & lProcessID)
  149. elseif lFlg = OrchProjectPDFReport then
  150. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=11&ProcessID=" & lProcessID)
  151. elseif lFlg = OrchCorpTemplImp then
  152. if clng(SysType) = 14 then
  153. OrchRedir ("EmailTemplate/FolderTemplateList.asp?CrpID=" & lCrpID & "&PrjID=" & lPrjID & "&StrtID=" & DomainStID & "&ElemID=" & DomainEleID & "&srcElemID=" & DomainEleID & "&SysType=14&StrtFlg=")
  154. else
  155. OrchRedir ("ElementTemplate/ElementTemplateList.asp?CrpID=" & lCrpID & "&PrjID=" & lPrjID & "&StrtID=" & DomainStID & "&ElemID=" & DomainEleID & "&srcElemID=" & DomainEleID & "&SysType=15&StrtFlg=")
  156. end if
  157. elseif lFlg = OrchFormSummaryReport then
  158. If CLng(lDocType) = 9 Then
  159. call CloseWin("Forms/ShowExcelReport.asp?" & GetCommonQstr() & "&AppID=" & lAppID & "&FolderID=" & Request.QueryString("FolderID") & "&FolderTitle=" & Request.QueryString("FolderTitle") & "&ProcessID=" & lProcessID & "&DocType=" & lDocType)
  160. Else
  161. OrchRedir "Forms/ShowReport.asp?" & GetCommonQstr() & "&AppID=" & lAppID & "&FolderID=" & Request.QueryString("FolderID") & "&FolderTitle=" & Request.QueryString("FolderTitle") & "&ProcessID=" & lProcessID & "&DocType=" & lDocType
  162. End IF
  163. elseif lFlg = OrchMailsReport then
  164. OrchRedir "reports/publishedEmails.asp?" & GetCommonQstr() & "&Fetch=2&ProcessID=" & lProcessID
  165. elseif lFlg = OrchRefreshWFMail then
  166. call WFSendC2CMail
  167. elseif lFlg = OrchGetAllocatedDocs then
  168. OrchRedir "reports/DisplayAllocDocs.asp?" & GetCommonQstr() & "&ProcessID=" & lResultID
  169. elseif lFlg = OrchAddMultipleUsers then
  170. msgDisplay = "<br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;</td></tr></table>"
  171. call reloadParentScript
  172. elseif lFlg = OrchFormsConsolidated then
  173. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=4&ProcessID=" & lProcessID)
  174. elseif lFlg = OrchWinFolderImport then
  175. FolderImportSuccess()
  176. elseif lFlg = OrchFormsCheckIn then
  177. OrchRedir "Forms/FormList.asp?" & GetCommonQstr() & "&FolderID=" & Request.QueryString("FolderID") & "&AppID=" & lAppID
  178. elseif lFlg = OrchFormsDownload then
  179. if (lMPPReport = "1") Then lReportType = 5
  180.  
  181. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=" & lReportType & "&ProcessID=" & lProcessID)
  182.  
  183. elseif lFlg = OrchSearchForUserMatch then
  184. OrchRedir "CorpTree/AddNewUser.asp?" & GetCommonQstr() & "&Flg=" & lFlg & "&ProcessID=" & lProcessID & "&BckStatus=" & lngStatus & "&msg=" & server.urlEncode(Message) & "&modflg=" & Request.QueryString("modflg") & "&crpLvlFlag=" & Request.QueryString("crpLvlFlag") & "&Systype=" & Request.QueryString("Systype") & "&FavFlg=" & Request.QueryString("FavFlg") & "&EmailID=" & Request.QueryString("EmailID") & "&ContactMode=" & Request.QueryString("ContactMode")
  185. elseif lFlg = OrchFormRelease then
  186. call CloseOnCompete(Message)
  187. elseif lFlg = OrchBhpbConsolDownload then
  188. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=4&ProcessID=" & lProcessID)
  189. ElseIf lFlg = OrchFormsCustomFunc Then
  190. If Request.QueryString("ThreadID") = "3000" Then
  191. Call popHtmlReport("Forms/FormsReferesh.asp?" & Request.QueryString())
  192. End If
  193. Elseif lFlg = OrchCryptTreeDocuments then
  194. call CloseOnCompete(Message)
  195. Elseif lFlg = OrchConnectFactiva then
  196. Response.Write "<br><br><br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font color=""blue"">"& Message &"</font></td></tr></table>"
  197. elseif lFlg = OrchTreeDeleteStatus Then
  198. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1 style=""font-size:11px; font-family:Verdana; color:Blue;FONT-STYLE: normal"">Tree(s) deleted successfully.</font></td></tr></table>"
  199.  
  200. elseif lFlg = OrchRecManagement then
  201. OrchRedir "Reports/RecManagementHTMLReport.asp?" & GetCommonQstr() & "&ProcessID=" & lResultID &"&RT="& OrchRecManagement
  202. elseif lFlg = OrchETL then
  203. OrchRedir "ETL/ImportExcelData.asp?" & Request.QueryString()
  204. elseif lFlg = OrchExcelImport Then
  205. OrchRedir "Forms/ImportExcelData.asp?" & GetCommonQstr() & "&Fetch=1&ProcessID=" & lProcessID
  206. elseif lFlg = OrchBulkEditStatus Then
  207. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font color=""blue"">Sucessfully Edited Document Details.</font></td></tr></table>"
  208. elseif lFlg = OrchLiveLink then
  209. %>
  210. <script language="javascript">
  211. setTimeout("window.close();",2000);
  212. </script>
  213. <%
  214.  
  215. elseif lFlg = OrchPublishElem then
  216. if (Request.QueryString("PblFlg") = "0" ) Then
  217. Response.Write "<br><br><br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font color=""blue"">Published Successfully</font></td></tr></table>"
  218. %>
  219. <script language="javascript">
  220. setTimeout("window.close();", 2000);
  221. </script>
  222. <%
  223. else
  224. Response.Write "<br><br><br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font color=""blue"">Unpublished Successfully</font></td></tr></table>"
  225. %>
  226. <script language="javascript">
  227. setTimeout("window.close();", 2000);
  228. </script>
  229. <%
  230. end if
  231. elseif lFlg = OrchSearchResultExcel then
  232. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=8&ProcessID=" & lProcessID)
  233. %>
  234. <script language="javascript">
  235. setTimeout("window.close();",2000);
  236. </script>
  237. <%
  238. elseif lFlg = OrchExportCrawlStatusData then
  239. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=8&ProcessID=" & lProcessID)
  240. %>
  241. <script language="javascript">
  242. setTimeout("window.close();",2000);
  243. </script>
  244.  
  245. <%
  246. elseif lFlg = OrchSplitRequests then
  247. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font color=""blue"">Sucessfully Splitted The Requests.</font></td></tr></table>"
  248. %>
  249. <script language="javascript">
  250. setTimeout("window.close();",2000);
  251. setTimeout("window.opener.close();",2000);
  252. window.parent.opener.RefreshGrid();
  253. </script>
  254. <%
  255. elseif lFlg = OrchCreateTemplate then
  256. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font style=""font-size:12px;text-align:center;font-style:normal;font-family:Verdana;"" color=""blue"">Sucessfully created the Study Template.</font></td></tr></table>"
  257. %>
  258. <script language="javascript">
  259. setTimeout("window.close();",3000);
  260. setTimeout("window.opener.close();",3000);
  261. setTimeout("window.parent.opener.NavigateToTemplate();",2000);
  262. </script>
  263. <%
  264. elseif lFlg = OrchCreateStudyfromTemplate then
  265. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font style=""font-size:12px;text-align:center;font-style:normal;font-family:Verdana;"" color=""blue"">Sucessfully created the Study using a Study Template.</font></td></tr></table>"
  266. %>
  267. <script language="javascript">
  268. setTimeout("window.close();",3000);
  269. setTimeout("window.opener.close();",3000);
  270. //TD-SWP-15- Refresh the parent window
  271. window.parent.opener.opener.parent.opener.location.href = "Forms/FunnelHeader.asp?CrpID=" + <%=lCrpID%>;
  272. </script>
  273. <%
  274. elseif lFlg = ValidationSuccessMsg then
  275. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font style=""font-size:12px;text-align:center;font-style:normal;font-family:Verdana;"" color=""blue"">Data Validation Successful.</font></td></tr></table>"
  276. %>
  277. <script language="javascript">
  278. window.parent.opener.location.href = "Forms/FunnelHeader.asp?CrpID=" + <%=lCrpID%>;
  279. setTimeout("window.parent.location.reload();",5000);
  280. </script>
  281. <%
  282. elseif lFlg = ImportSuccessMsg then
  283. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font style=""font-size:12px;text-align:center;font-style:normal;font-family:Verdana;"" color=""blue"">Data Import Successful.</font></td></tr></table>"
  284. %>
  285. <script language="javascript">
  286. window.parent.opener.location.href = "Forms/FunnelHeader.asp?CrpID=" + <%=lCrpID%>;
  287. </script>
  288. <%
  289. elseif lFlg = ImportStatusMsg then
  290. OrchRedir "ETL/ImportExcelData.asp?" & Request.QueryString() & "&SolID=41"
  291. elseif lFlg = ImportRetryStatus then
  292. Response.Write "<br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><font style=""font-size:12px;text-align:center;font-style:normal;font-family:Verdana;"" color=""blue"">Data Import Successful.</font></td></tr></table>"
  293. %>
  294. <script language="javascript">
  295. try{
  296. window.parent.opener.parent.location.href = "Forms/FunnelHeader.asp?CrpID=" + <%=lCrpID%>;
  297. }catch(e){}
  298. </script>
  299. <%
  300. elseif lFlg = OrchSaveSchemaComplete then
  301. msgDisplay = "<br><br><br><br><table width=100% align=center ><tr><td valign=bottom align=center width=100% border=1><span class=instructions><font color=blue> Profile Completed Successfully.</font></span>&nbsp;</td></tr></table>"
  302. %>
  303. <body>
  304. <img src="Images/newpowered.gif" border=0 align="left">
  305. <%= msgDisplay %>
  306. </body>
  307. <script language="javascript">
  308. setTimeout("window.close();",1000);
  309. window.parent.opener.SaveMappingMSMQ(0);
  310. </script>
  311. <%
  312. end if
  313. Response.End
  314. Else
  315. If lOppFlag = 1 Then 'Download File
  316. msgDisplay = ""
  317. 'Response.Write "Results/Download.asp?" & GetCommonQstr() & "&ProcessID=" & lResultID
  318. 'Response.End
  319. Call CloseWin("Results/Download.asp?" & GetCommonQstr() & "&ProcessID=" & lResultID)
  320. ElseIf lOppFlag = 2 Then 'Redirect
  321. if lClosewinFlag = 5 then
  322. msgDisplay = ""
  323. else
  324. msgDisplay = lng_closing_window
  325. end if
  326.  
  327. If lClosewinFlag = 0 Then
  328. OrchRedir strRedirectURL
  329. Else
  330. Call RefreshParentWindow
  331. End If
  332. Else 'Redirect and Refresh Parent Window
  333. msgDisplay = ""
  334. Call RefreshParentWindow
  335. End If
  336. Response.End
  337. End If
  338. Case 3
  339. if lFlg = OrchAddMultipleUsers then
  340. msgDisplay = "<br><br><br><br><table width=100% align=center><tr><td valign=bottom align=center width=100% border=1><span class=instructions>" & Message & "</span>&nbsp;</td></tr></table>"
  341. call reloadParentScript
  342. end if
  343. Response.End
  344. Case 4
  345. if lFlg = SDEExport Then
  346. call CloseWin("reports/ReportGuiXSL.asp?" & GetCommonQstr() & "&Fetch=" & lReportType & "&ProcessID=" & lProcessID)
  347. end if
  348. Response.End
  349. Case else
  350. if lAppID = "" then lAppID = -1
  351. OrchRedir ("ErrorResult/DisplayError.asp?lngStatus=-1&Flg=" & lFlg & "&msg=" & server.urlEncode(Message & "") & "&" & GetCommonQstr() & "&AppID=" & lAppID & "&DispFlg=" & lDispFlg)
  352. End Select
  353.  
  354.  
  355. %>
  356. <HTML>
  357. <head>
  358. <title>Orchestra</title>
  359. <meta http-equiv="Refresh" content="4;" url="CommonRefresh.asp?<%=GetCommonQstr()%>&AppId=<%=lAppId%>&ProcessID=<%=GetHTMLEncode(lProcessID)%>&Flg=<%=lFlg%>&DomSId=<%=DomainStID%>&DomNId=<%=DomainEleID%>&FolderID=<%=GetHTMLEncode(Request.QueryString("FolderID"))%>&FolderTitle=<%=GetHTMLEncode(Request.QueryString("FolderTitle"))%>&asSister=<%=asSister%>&modflg=<%=modflg%>&crpLvlFlag=<%=crpLvlFlag%>&DocType=<%=GetHTMLEncode(lDocType)%>&SysType=<%=SysType%>&ContactMode=<%=GetHTMLEncode(lContactMode)%>&searchword=<%=GetHTMLEncode(Request.QueryString("searchword"))%>&RedirectURL=<%=GetURLEncode(strRedirectURL)%>" >
  360. <script language="JavaScript" src="JS/OrchFunc.js"> </script>
  361. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  362. </head>
  363.  
  364. <body bgcolor="#f4f4f4">
  365. <% if lDispFlg <> 1 then %>
  366. <img src="Images/newpowered.gif" border=0>
  367. <% end if %>
  368. <%= msgDisplay %>
  369. <Form Name ="frmCommonReferesh" Action="CommonRefersh.asp?<%=GetHTMLEncode(Request.QueryString())%>" Method=post>
  370. </Form>
  371. </body>
  372.  
  373.  
  374. <%function CloseWin(DownloadURL)%>
  375. <HTML>
  376. <HEAD>
  377. <title><%=lng_download_complete%></title>
  378. <meta http-equiv=Refresh content="0; url=<%=GetHTMLEncode(DownloadURL)%>" >
  379. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  380. </head>
  381. <BODY bgcolor="#f4f4f4">
  382. <% if lDispFlg <> 1 then %>
  383. <img src="Images/newpowered.gif" border=0>
  384. <% end if %>
  385. <p >&nbsp;</p>
  386. <p class="instructions" style=" TEXT-ALIGN:left;">
  387. <%
  388.  
  389. if lFlg = OrchProjectWordReport or lFlg = OrchProjectPDFReport or lFlg = OrchFormSummaryReport then
  390. Response.Write lng_report_generated_successfully
  391. ElseIf lFlg = OrchExcelReport then
  392. Response.Write lng_report_generated_successfully
  393. ElseIf lFlg = OrchSearchResultExcel then
  394. Response.Write lng_exporttoexcel_msg
  395. ElseIf lFlg = OrchExportCrawlStatusData then
  396. Response.Write lng_CrawlExported_msg
  397. ElseIf lFlg = OrchCSVExport then
  398. Response.Write lng_exporttocsv_msg
  399. ElseIf lFlg = OrchPrismReport then
  400. Response.Write lng_exporttoprism_msg
  401. ElseIf lFlg = OrchFormsDownload Or lFlg = OrchFormsConsolidated or lFlg = OrchBhpbConsolDownload Then
  402. if lDispFlg <> 1 then
  403. Response.Write lng_form_downloaded_successfully
  404. end if
  405. ElseIf lFlg = OrchDocsDownload then
  406. Response.Write lng_docs_downloaded_successfully
  407. ElseIf lFlg = SDEExport Then
  408. if lDispFlg = 2 Then
  409. Response.Write lng_SDEExport
  410. elseIf lDispFlg = 3 Then
  411. Response.Write lng_export_with_validation
  412. End IF
  413. Else
  414. Response.Write lng_export_completed_successfully
  415. end if
  416. %>
  417.  
  418. <% if lDispFlg <> 1 then %>
  419. <p class="instructions">
  420. <%=lng_download_starts_automatically%>.
  421.  
  422. <%
  423. downloadlink = "<a class=""hlink"" href="""& GetHTMLEncode(DownloadURL) & """>"
  424. downloadanchor = "</a>"
  425. downloadlinkstring = replace(lng_click_here_if_you_have_problem,"%1",downloadlink)
  426. Response.Write replace(downloadlinkstring,"%3",downloadanchor)
  427. %>
  428. </p>
  429. <% if lFlg <> OrchDocsDownload then %>
  430. <p align=center><button class="stdbutton" onclick="windowClose();" id=button2 name=button2><%=lng_close%></button>
  431. <% end if
  432. end if %>
  433. <script language= javascript>
  434. lCloseflg = "<%=lCloseflg%>";
  435. function windowClose(){
  436. if (lCloseflg == "1"){
  437. top.Ext.getCmp('newOrchWindow').close();
  438. }
  439. else{
  440. window.close();
  441. //window.parent.Ext.getCmp(window.name).close(); //new line added
  442. }
  443. }
  444. </script>
  445. </body>
  446. </html>
  447.  
  448. <%
  449. response.end
  450. end function
  451.  
  452. function popHtmlReport(popUrl)
  453. %>
  454. <html>
  455. <head>
  456. </head>
  457. <body bgcolor="#f4f4f4">
  458. <img src="Images/newpowered.gif" border=0>
  459. <script language= javascript>
  460. var Qstrval = unescape("<%=escape(popUrl)%>");
  461. window.open(Qstrval,"ReportWindow","resizable=yes,menubar=yes,scrollbars=yes,status=yes,width=600,height=600,left=250,top=100");
  462. setTimeout("window.close();",3000)
  463. </script>
  464. </body>
  465. </html>
  466. <%
  467. end function
  468.  
  469. function ImportSuccess()%>
  470. <HTML>
  471. <HEAD>
  472. <title><%=lng_imported_successfully%></title>
  473. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  474. <script language="javascript">
  475. function Reload()
  476. {
  477. var asSister = "<%=asSister%>";
  478. var selectedNodeRef;
  479. var tempimgRef;
  480. if(window.opener){
  481. if(asSister == "1"){
  482. selectedNodeRef = window.opener.selectednodeid.parentElement.parentElement ;
  483. }
  484. else{
  485. selectedNodeRef = window.opener.selectednodeid ;
  486. }
  487. try
  488. {
  489. tempimgRef = selectedNodeRef.childNodes[selectedNodeRef.childNodes.length - 3];
  490. }
  491. catch(E)
  492. {}
  493.  
  494. try
  495. {
  496. var imEndPOs = tempimgRef.src.lastIndexOf("/");
  497. var TempimgName = tempimgRef.src.substring(imEndPOs,tempimgRef.src.length);
  498.  
  499. if(TempimgName.indexOf("T") > 0){
  500. tempimgRef.src="images/T-.gif";
  501. }else{
  502. if(TempimgName.indexOf("L") > 0){tempimgRef.src="images/L-.gif";}
  503. }
  504. var openerref = window.opener
  505. var UlRef ;
  506. UlRef = selectedNodeRef.childNodes[selectedNodeRef.childNodes.length-1];
  507. UlRef.setAttribute("QS",0);
  508. UlRef.innerHTML = "" ;
  509. openerref.submitforchilds(openerref.getDBNodeid(UlRef.parentElement.id),true,"",openerref.getDBNodeid(UlRef.parentElement.id));
  510. this.close()
  511. }
  512. catch(E)
  513. {
  514. window.opener.location.reload(true);
  515. this.close()
  516. }
  517.  
  518. }
  519.  
  520. }
  521. </script>
  522. </head>
  523. <BODY onload="Reload();" bgcolor="#f4f4f4">
  524. <img src="Images/newpowered.gif" border=0>
  525. <p >&nbsp;</p>
  526. <p class="instructions" >
  527. <%=lng_imported_successfully%>
  528. <p align=center>
  529. <button class=stdbutton onclick="window.close();" id=button1 name=button1><%=lng_close%> </button>
  530. </body>
  531. </html>
  532.  
  533. <%
  534. response.end
  535. end function
  536.  
  537.  
  538. function WFSendC2CMail()%>
  539. <script>
  540. var QstrURL;
  541.  
  542. QstrURL = "../Documents/DMSMainpage.asp?<%=GetCommonQstr()%>&ItmID=<%=Server.URLEncode(Request.QueryString("ItmID"))%>&folderid=<%=Server.URLEncode(Request.QueryString("folderid"))%>&VersionNo=<%=Server.URLEncode(Request.QueryString("Versionno"))%>&flg=2&HeaderType=<%=Server.URLEncode(Request.QueryString("HeaderType"))%>&AppID=32";
  543. window.opener.parent.location.href= QstrURL;
  544. window.close();
  545. </script>
  546.  
  547. <%end function
  548.  
  549. function reloadParentScript()
  550. %>
  551.  
  552. <html>
  553. <head>
  554. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  555. </head>
  556. <script language= javascript>
  557.  
  558. function Unloadwin()
  559. {
  560. try
  561. {
  562. var NewUserID = unescape("<%=escape(lResultID)%>");
  563. var crpLvlFlag = <%=crpLvlFlag%>;
  564. var contactmode = "<%=lContactMode%>" ;
  565.  
  566. if ( NewUserID != "0" )
  567. {
  568. if (crpLvlFlag == 0)
  569. {
  570. window.opener.location.href = "tree/orchtree.asp?" + window.opener.GetTreeJSComnQstr() + "&ElemID=&NewAdddedUser=" + NewUserID + "&modflg=<%=modflg%>";
  571. }
  572. else
  573. {
  574. if ((contactmode == 1) || (contactmode ==2))
  575. window.opener.location.href="CorpTree/OrchCorpTree.asp?Appid=109&CrpID=<%=lCrpID%>&modflg=0&SysType=15&searchword=<%=server.URLEncode(Request.QueryString("searchword"))%>&ContactMode=<%=lContactMode%>" ;
  576. else
  577. window.opener.location.href="CorpTree/OrchCorpTree.asp?Appid=109&CrpID=<%=lCrpID%>&modflg=0&SysType=7&NewAdddedUser=<%=server.URLEncode(lResultID)%>&ContactMode=<%=lContactMode%>" ;
  578. }
  579. }
  580. window.close();
  581. }
  582. catch(EE){}
  583.  
  584. }
  585. function AutoClose()
  586. {
  587. var Status = "<%=lngStatus%>" ;
  588.  
  589. if (Status != 3)
  590. setTimeout("window.close();",2000);
  591. }
  592. </script>
  593. <body bgcolor="#f4f4f4" onload="AutoClose();" onunload="Unloadwin();">
  594. <img src="Images/newpowered.gif" border=0>
  595. <%= msgDisplay %>
  596. <p align=center>
  597. <button class=stdbutton onclick="javascript:window.close();" name=button1><%=lng_close%> </button>
  598. </p>
  599. </body>
  600. </html>
  601.  
  602. <script>
  603. </script>
  604. <%
  605. end function
  606.  
  607.  
  608. function FolderImportSuccess()
  609.  
  610. %>
  611. <HTML>
  612. <HEAD>
  613. <title><%=lng_imported_successfully%></title>
  614. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  615. </head>
  616. <BODY onload="setTimeout('window.opener.location.reload(true);window.close();',2000);" bgcolor="#f4f4f4">
  617. <img src="Images/newpowered.gif" border=0>
  618. <p >&nbsp;</p>
  619. <p class="instructions" >
  620. <%=lng_imported_successfully%>
  621. <p align=center>
  622. <button class=stdbutton onclick="window.opener.location.reload(true);window.close();" id=button1 name=button1>Close </button>
  623. </body>
  624. </html>
  625. <%
  626. response.end
  627.  
  628. end function
  629.  
  630. function CloseOnCompete(StatMsg)
  631. %>
  632. <HTML>
  633. <HEAD>
  634. <title><%=GetHTMLEncode(StatMsg)%></title>
  635. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  636. </head>
  637. <BODY onload="setTimeout('window.close();',2000);window.opener.location=window.opener.location;" bgcolor="#f4f4f4">
  638. <img src="Images/newpowered.gif" border=0>
  639. <p >&nbsp;</p>
  640. <p class="instructions" >
  641. <%=GetHTMLEncode(StatMsg)%>
  642. <p align=center>
  643. <button class=stdbutton onclick="window.close();" id=button1 name=button1><%=lng_close%> </button>
  644. </body>
  645. </html>
  646. <%
  647. end function
  648.  
  649. Function RefreshParentWindow()
  650. %>
  651. <html>
  652. <head>
  653. <link rel="stylesheet" href="CSS/OrchestraR3.css">
  654. </head>
  655. <script language= javascript>
  656. function Unloadwin()
  657. {
  658.  
  659. var strCallFunction = unescape("<%=escape(strCallFunction)%>");
  660. try
  661. {
  662. if ( "<%=lClosewinFlag%>" == "1")
  663. {
  664. try{window.opener.document.Intel.submit()}catch(e){};
  665. try{window.opener.HeaderFrame.document.Intel.submit()}catch(e){};
  666. if("<%=Request.QueryString("NimsFlg")%>" == "1")// this condition is to check weather it is NIMS import form or not
  667. {
  668. try{setTimeout('window.parent.close()',100)}catch(e){};
  669. }
  670. else{
  671. try{setTimeout('window.close()',100)}catch(e){};
  672. }
  673. try{
  674. if(window.parent.Ext.getCmp("editFormWinID"))
  675. setTimeout('window.parent.Ext.getCmp("editFormWinID").close()',100)}catch(e){};
  676. }
  677. else if ( "<%=lClosewinFlag%>" == "6" )
  678. {
  679. try{window.opener.location.href = window.opener.location.href;}catch(e){};
  680. try{setTimeout('window.close()',100)}catch(e){};
  681. }
  682. // lClosewinFlag=7 is added to refresh Extjs grid.
  683. else if ( "<%=lClosewinFlag%>" == "7")
  684. {
  685. try{window.opener.RefreshGrid();setTimeout('window.close()',100) }
  686. catch(e){try{window.opener.HeaderFrame.document.Intel.submit();setTimeout('window.close()',100)}catch(e){window.opener.parent.HeaderFrame.document.Intel.submit();setTimeout('window.close()',100)}};
  687. }
  688. else
  689. {
  690. if ( "<%=lClosewinFlag%>" == "5" )
  691. {
  692. try{window.opener.document.Intel.submit();}catch(e){try{window.opener.HeaderFrame.document.Intel.submit()}catch(e){}};
  693. }
  694. else
  695. {
  696. window.opener.location.href = window.opener.location.href;
  697. try{window.opener.document.Intel.submit();}catch(e){}try{window.opener.HeaderFrame.document.Intel.submit();}catch(e){};
  698. }
  699. window.location.href = unescape("<%=escape(strRedirectURL)%>");
  700. }
  701. }
  702. catch(EE){}
  703. }
  704. </script>
  705. <body bgcolor="#f4f4f4" onload="Unloadwin();">
  706. <img src="Images/newpowered.gif" border=0>
  707. <%= msgDisplay %>
  708.  
  709. </body>
  710. </html>
  711. <script>
  712. </script>
  713. <%
  714. End Function
  715. %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!