CAMS - ImportAppealCodesPage1.asp

<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim uiCommon
Set uiCommon = Server.Createobject("uiCECommon.ceCommon")
%>
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5" />
<title>Import Appeal Codes</title>
<% Call uiCommon.MetaInclude %>
<link rel="stylesheet" type="text/css" href="src/TRSStyles.css" />
<script type="text/javascript" language="Javascript" src="src/TRSActiveXControls.js"></script>
<!--script Language="Javascript" src="src/TRSActiveXControls.js"></script-->
<!--
<link rel="stylesheet" type="text/css" media="all" href="src/calendar-win2k-cold-2.css" title="calendar-win2k-cold-2" />
<script type="text/javascript" src="src/calendar.js"></script>
<script type="text/javascript" src="src/calendar-en.js"></script>
<script type="text/javascript" src="src/calendar-setup.js"></script>
-->
<Script Language = "Javascript">
    document.oncontextmenu = function(){return false}
</script>
<script language="VBScript">
    Dim detailpage
    Dim action
    detailpage = "Page0.asp"
Sub Window_onLoad()
End Sub

Sub btnInitiate_Click()
Dim Result
Dim msg

if msgbox("Continue with Import?",vbYesNo + vbQuestion,"Confirmation") = vbNo then
exit sub
end if

If top.ImportAppealCodes() = True Then
       msgbox "Fund Appeal Codes have been imported into the Glossary table. Please send a ticket to Helpdesk asking for IT to rebuild the Glossary and Reference SSI files.",vbOKOnly,"Import Fund Appeal Codes"
End If

end sub
</script>
</head>
<BODY style="BACKGROUND: #fffaed">
<!--TABLE ALIGN="center" BORDER="0" CELLPADDING="0" CELLSPACING="0">
</TABLE-->
<table align='center' style="border:1px solid #999999;">
    <tr>
      <td align = "left" colspan = 2>
      <p style="font-family: verdana; font-size: 12px; font-weight: bold; background: #ffffcc; line-height: 14px;"><img src="flag.gif" >&nbsp;&nbsp;Instructions:
      <BR /><BR />The appeal codes file must be titled 'AppealCodes.xls' and then saved in 'Microsoft Office Excel Workbook (*.xls) format in the Development share. Once that is done, click on the 'Import Appeal Codes' button to create the Glossary entries in CAMS.
      <BR />
      <BR />
      Please call IT after the import is complete to ask them to rebuild the Glossary and Reference SSI files. Until that is done, the new appeal codes will not display in the keyword lists.
      </p>
      </td>
    </tr>
</table>

<Div ID="btns" STYLE="position:absolute; left:10px; top:130px; width:660px; height:30px; visibility:visible">
<Table align="center">
<tr>
</tr>
<tr>
</tr>
<tr>
</tr>
<tr>
</tr>
<tr>
</tr>
<tr>
<!--td id="goexp">
<%Call uiCommon.WriteButtonJava("goexp", "btnInitiate", "75", "28", "13", "Import Appeal Codes", "Arial", "8")%>
</td-->
<td colspan="4" id="goinit" align = "center" >
<%Call uiCommon.WriteButtonJava("goinit", "btnInitiate", "100", "25", "11", "Import", "Arial", "9")%>
</td
</tr>
</Table></Div>
<Table align=center>
<tr>
    <td ID=objExport STYLE="display:none">
<OBJECT ID="trsExport"
    <% Call uiCommon.WriteCodeBase("axExport")%>
</OBJECT>
    </td>
</tr>
</table>
</BODY>
</HTML>