API tools faq
paste
dasoares

CAMS - ImportAppealCodesTab.asp

dasoares
Apr 30th, 2012
835
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 9.92 KB | None | 0 0
raw download clone embed print report
  1. <%@  language="VBSCRIPT" %>
  2. <%
  3. Dim ssiPath
  4.  
  5. ssiPath = Request.QueryString("ssipath")
  6.  
  7. If Right(ssiPath, 1) = "\" Then
  8. Else
  9.     ssiPath = ssiPath & "\"
  10. End If
  11.  
  12. Dim uiCommon
  13. Set uiCommon = Server.Createobject("uiCECommon.ceCommon")
  14.    
  15. %>
  16. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  17. <html xmlns="http://www.w3.org/1999/xhtml">
  18. <head>
  19.     <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5" />
  20.     <title>Import Appeal Codes </title>
  21.     <% Call uiCommon.MetaInclude %>
  22.     <style type="text/css">
  23.         .userData {behavior:url(#default#userdata);}
  24.     </style>
  25.     <link rel="stylesheet" type="text/css" href="infostyle.css" />
  26.     <link rel="stylesheet" type="text/css" href="src/TRSStyles.css" />
  27.  
  28.     <script type="text/javascript" language="javascript" src="src/TRSActiveXControls.js"></script>
  29.  
  30.     <script type="text/javascript" language="javascript">
  31. // Global variables.
  32. var docWidth = 0;
  33. var docHeight = 0;
  34. var myMargin = 0;
  35. var bgWidth  = 0;
  36. var bgHeight = 0;
  37. var titleAreaHeight = 0;
  38. var currentPage = 0;
  39. var tabFontSize = 8;
  40.  
  41. // numTabs variable defines the number of available tabs on the page.
  42. var numTabs = 1;
  43. var maxShowTabs = 4;
  44. var currentTabFlash = 0;
  45. var tranState = 1;
  46. var pageColors = new Array(7);
  47. var flashGray = 70;
  48. var setGray = 45;
  49. var noGray = 100;
  50. var strZeroText = '';
  51.  
  52. // This is the hot spot texts calls the CancelEm VB Sub
  53. var hotspottext = "Cancel";
  54.  
  55. // the different IFrame page name source files.
  56. var sourcepg = "ImportAppealCodesPage";
  57.  
  58. // the default IFrame source file extension
  59. var sourceext = ".asp";
  60.  
  61. // the variable that will appear when loading the ZERO page.
  62. var msgtext = "Entry Page";
  63.  
  64. // disable the context menu for as many instances as possible
  65.     document.oncontextmenu = function(){return false;}
  66.  
  67. function documentClick() {
  68.   var e = window.event.srcElement;
  69.   var newpg = e.seq
  70.   switch (newpg){
  71. //  case 1:
  72. //          loadNewPage(currentPage,1);
  73. //      break;
  74. //  case 2:
  75. //  case 3:
  76.     case 0:
  77. //      loadzeroPage(currentPage,0,"page0.asp");
  78.         alert('This tab cannot be accessed directly.');
  79.         break;
  80.     default:
  81.         if (newpg > 0 && newpg <=numTabs) {
  82.             if (currentPage == 0) {
  83.                 alert("Click the update or cancel button to end your data entry session");
  84.             } else {
  85.                 loadNewPage(currentPage,e.seq);
  86.             break;
  87.         }
  88.         }
  89.         else
  90.         {
  91.             if (e.tabType == 0)
  92.             {
  93.             if (e.state)
  94.             {
  95.                 switch (e.innerText) { // == 'Help')
  96.                 case 'Help':
  97.                     ecamshelp();
  98.                     break;
  99.                 case 'Home':
  100.                     btnHome_click();
  101.                     break;
  102.                 case 'Save':
  103.                     window.status = "Refreshing, please wait..."
  104.                     dorefresh();
  105.                     break;
  106.                 default:
  107.                     CancelEm();
  108.                     break;
  109.                 }
  110.             }
  111.             break;
  112.             }
  113.         }
  114.     }
  115. }
  116.  
  117. <!--#Include File="GetUserData.js"-->
  118.  
  119. <!--#Include File="TabPageJavaScript.js"-->
  120.  
  121. // Do not add any additional javascript functions below this line! JSM 11/26/2001
  122.  
  123.     </script>
  124.  
  125.     <script type="text/vbscript" language="VBScript">
  126.     Dim strServer
  127.     Dim strDBServer
  128.     Dim strIEServer
  129.     Dim strDBName
  130.     Dim strUserID
  131.     Dim strSSIPath
  132.     Dim strVRoot
  133.     Dim sPVFont
  134.     Dim sPVFontsize
  135.     Dim blnUpdated
  136.     Dim blnCancel
  137.     Dim blnUpdateOK
  138.     Dim feed
  139.     Dim pageHelp
  140.     Dim rsAPFile
  141.     Dim rsExport
  142.     Dim oADS
  143.     Dim obj
  144.     Dim strSQL
  145.  
  146.     pageHelp = "help/hlpceToolsBBExport"
  147.  
  148.  
  149.     blnUpdated = False      ' Don't know what this is used for here...
  150.     blnCancel = False       ' Default the global cancel to false
  151.     blnUpdateOK = False     ' Default set to force an update.
  152.  
  153.     sPVFont = "Arial"
  154.     sPVFontSize = 8
  155.     strZeroURL = ""
  156.  
  157.     strAccess = "<%=Request.QueryString("access")%>"
  158.     feed = "feed" & "<%=Request.QueryString("feed")%>"
  159.     if feed = "feed" then
  160.         feed = "zzTabClone3"
  161.     end If
  162.  
  163. SUB Window_OnLoad()
  164.     if Lincoln1.LinkIsActive("Link1") Then
  165.         call Lincoln1.WriteMessage("Link1", "Import Appeal Codes#tadd#ImportAppealCodesTab#")
  166.     Else
  167.         location.href = "default.asp"
  168.         Exit Sub
  169.     End If
  170.  
  171.     Call feed0.CreateLink(feed)
  172.     window.focus()
  173.     GetUserData()
  174.     strUserID = xmlUserID.value
  175.     strDBName = xmlDatabase.value
  176.     strIEServer = xmlieserverip.value
  177.     strVRoot = xmlvirturalroot.value
  178.     strDBServer = xmlsqlservername.value
  179.     strSSIPath = xmlssipath.value
  180.  
  181.     If GetRecordSets() Then
  182.     else
  183.         window.close()
  184.     end If
  185.     windowLoad()
  186.  
  187. END SUB
  188. Sub showCAMSHelp()
  189.     Call Lincoln1.WriteMessage("Link1","#help#" + pageHelp + "#")
  190. End Sub
  191. function GetRecordSets()
  192.     GetRecordsets = True
  193. end function
  194.  
  195. Sub window_onUnload()
  196.     if Lincoln1.LinkIsActive("Link1") Then
  197.         call Lincoln1.WriteMessage("Link1", "Page Task Item#tadd#YourFileName#")
  198.     Else
  199. '       location.href = "default.asp"
  200.     End If
  201.  
  202.     Call feed0.CreateLink(feed)
  203.     window.focus()
  204.     GetUserData()
  205.     windowLoad()
  206.     strUserID = xmlUserID.value
  207.     strDBName = xmlDatabase.value
  208.     strIEServer = xmlieserverip.value
  209.     strVRoot = xmlvirturalroot.value
  210.     strDBServer = xmlsqlservername.value
  211.     strSSIPath = xmlssipath.value
  212.  
  213.     If GetRecordSets() Then
  214.     else
  215.         window.close()
  216.     end If
  217. end sub
  218. Sub CancelEm()
  219.     blnCancel = True
  220.     Window.close()
  221. End Sub
  222. Sub btnHome_Click()
  223.     call Lincoln1.WriteMessage("Link1", "#focus##")
  224. end sub
  225.  
  226. Sub feed0_MessageReceived(MsgString)
  227.    dotheupdate()
  228.    if blnUpdateOK then
  229.         call Lincoln1.WriteMessage("Link1", "PHC_ImportAppealCodesTab#goodupdate##")
  230.     End If
  231. End Sub
  232.  
  233. Sub dorefresh()
  234.     dotheUpdate()
  235.     if blnUpdateOK then
  236.         GetRecordsets()
  237.     end if
  238.     LoadNewPage lastpage,lastpage
  239. end sub
  240. Sub dotheupdate()
  241. end Sub
  242. Function ImportAppealCodes()
  243.     Set oADS = CreateObject("RDS.DataSpace")   
  244.     Set Obj = oADS.CreateObject("CAMSData.DataLayer_RDS", strIEServer)
  245.         strSQL = "EXEC spImportFundAppealCodes 'filepath','tmpImportFundAppealCodes'"
  246.         On error Resume Next
  247.         Set Result = Obj.RunSQLReturnRS(strDBServer,strDBName,strSQL)
  248.         On Error Goto 0
  249.         Set obj = Nothing
  250.     ImportAppealCodes = True
  251. end Function
  252.     </script>
  253.  
  254. </head>
  255. <body background="<%=Application("Background")%>" style="width: 750px; height: 575px; margin: 0" onclick="documentClick();" onresize="windowResize();" onkeypress="documentKeyPress();">
  256.     <!--#Include File="WriteUserDataHTML.inc"-->
  257.     <div id="img0sdx" style="position: absolute; height: 75px; top: 0px; left: 0px; background: #4499ff; color: darkslateblue; filter: alpha(opacity=100, FinishOpacity=0, style=1, startY=0, FinishY=50, startX=1000, finishX=1000)">
  258.         <p>
  259.             &nbsp;</p>
  260.     </div>
  261.     <div id="gohome" style="position: absolute; height: 75px; top: 5px; left: 35px; width: 75px; color: black">
  262.         <%Call uiCommon.WriteButtonJava("gohome", "btnHome", "75", "28", "5", "Home", "Arial", "8")%>
  263.     </div>
  264.     <div id="img0sd" style="position: absolute; height: 75px; top: 0px; left: 90px; width: 150px; color: black">
  265.         <img id="img0s" src="centtab.gif" width="198" height="26" style="position: relative; top: 5px; left: 30px">
  266.     </div>
  267.     <div id="everyThing" style="position: absolute; left: 0px; top: 0px; width: 750px; height: 575px; z-index: 1; visibility: hidden">
  268.         <div id="myContainerShadow" style="position: absolute; width: 750px; height: 555px; left: 7px; top: 40px; background: #6D6556">
  269.         </div>
  270.         <div id="myContainer" style="position: relative; width: 798px; height: 598px; left: 0px; top: 0px" onmouseover="tabMouseOver();" onmouseout="tabMouseOut();">
  271.             <div id="theLine" style="position: absolute; height: 2px; width: 798px; top: 30px; background: black; z-index: 2">
  272.             </div>
  273.             <div id="tab0" style="position: absolute; left: 0px; top: 0px; width: 30px; cursor: hand; filter: alpha(opacity=100)">
  274.                 <img id="img0" src="tab0a.gif" width="50" height="36" style="position: relative">
  275.             </div>
  276.             <div id="tab1" style="position: absolute; left: 0px; top: 0px; height: 36; width: 130px; cursor: hand; filter: alpha(opacity=50)">
  277.                 <img id="img1" src="tab1.gif" width="140" height="36" style="position: absolute">
  278.                 <p class="tab9Text" id="txt1" style="position: relative; fontsize: 8; left: 15px; width: 10px; top: 8px">
  279.                     <img id="blt1" src="litx.gif" hspace="2" style="position: relative; top: 1px" width="12" height="12">Import</p>
  280.             </div>
  281.             <div id="div0" style="position: absolute; padding: 8; left: 0px; top: 32px; width: 798px; height: 587px; background: #0000FF; z-index: 3">
  282.                 <div id="msg" style="position: absolute; left: 310px; top: 10px; width: 230px; filter: revealTrans(Duration=2, Transition=6)" onfilterchange="msgFilterChange();">
  283.                     <p style="color: white; font-weight: bold">
  284.                         &nbsp;</p>
  285.                 </div>
  286.                 <p id="pagex" class="pTitle" style="color: blue">
  287.                     <span id="page0"></span><span id="camshelp" style="position: absolute; left: 430; top: 11">
  288.                         <img src="ceHelp.gif" align="middle" width="12" height="12">
  289.                         <span id="camshelpText" class="tab9Text">Help</span> </span><span id="xpage1Sample" style="position: absolute; left: 450; top: 11">
  290.                             <img src="lit.gif" align="middle" width="12" height="12">
  291.                             <span id="xpage1SampleText" class="examples">Cancel</span> </span>
  292.                 </p>
  293.                 <span id="page1" style="position: absolute; visibility: hidden">Import Appeal Codes</span>
  294.             </div>
  295.         </div>
  296.     </div>
  297.     <iframe id="textFrame" src="Page0.asp" class="TabIFrame"></iframe>
  298.     <div id="divlincoln1">
  299.     </div>
  300.     <div id="divfeed0">
  301.     </div>
  302.  
  303.     <script type="text/javascript" language="javascript">
  304.         var LincolnBase = '<% call uiCommon.GetCodeBase("LINCOLN")%>';
  305.         TRSLincoln("divlincoln1","Lincoln1",LincolnBase);
  306.         TRSLincoln("divfeed0","feed0",LincolnBase);
  307.     </script>
  308.  
  309. </body>
  310. </html>
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!