/beta/accounting/TOP.ASP

http://github.com/khaneh/Orders · ASP · 129 lines · 118 code · 9 blank · 2 comment · 18 complexity · 723b015410656788ce9ec0473b6b2bd9 MD5 · raw file

  1. <%
  2. 'Accounting (8)
  3. PageTitle= " - " +PageTitle
  4. menuItem=8
  5. 'response.write session("IsClosed")
  6. %>
  7. <!--#include file="../menu.asp" -->
  8. <TABLE cellspacing=0 cellpadding=0 width=100% height=450 style='border:4px solid <%=SelectedMenuColor%>;' dir=rtl align=center>
  9. <TR height=20 bgcolor=<%=SelectedMenuColor%>>
  10. <TD>
  11. <TABLE cellspacing=0 cellpadding=0 width=100%>
  12. <TR class=alak height=25>
  13. <%if Auth(8 , 1) and session("IsClosed")="False" then %>
  14. <%if SubmenuItem="1" then %>
  15. <TD width=10><img src='/images/RTB.gif'></td>
  16. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='GLMemoInput.asp'> </A></TD>
  17. <TD width=10><img src='/images/LTB.gif'></td>
  18. <%else %>
  19. <TD width=10><img src='/images/RTS.gif'></td>
  20. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='GLMemoInput.asp'> </A></TD>
  21. <TD width=10><img src='/images/LTS.gif'></td>
  22. <%end if %>
  23. <%end if %>
  24. <%if Auth(8 , "F") and session("IsClosed")="False" then %>
  25. <%if SubmenuItem="2" then %>
  26. <TD width=10><img src='/images/RTB.gif'></td>
  27. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='CompMemoInput.asp'> </A></TD>
  28. <TD width=10><img src='/images/LTB.gif'></td>
  29. <%else %>
  30. <TD width=10><img src='/images/RTS.gif'></td>
  31. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='CompMemoInput.asp'> </A></TD>
  32. <TD width=10><img src='/images/LTS.gif'></td>
  33. <%end if %>
  34. <%end if %>
  35. <%if Auth(8 , 3) then %>
  36. <%if SubmenuItem="3" then %>
  37. <TD width=10><img src='/images/RTB.gif'></td>
  38. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='GLMemoDocShow.asp'> </A></TD>
  39. <TD width=10><img src='/images/LTB.gif'></td>
  40. <%else %>
  41. <TD width=10><img src='/images/RTS.gif'></td>
  42. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='GLMemoDocShow.asp'> </A></TD>
  43. <TD width=10><img src='/images/LTS.gif'></td>
  44. <%end if %>
  45. <%end if %>
  46. <%if Auth(8 , 4) then %>
  47. <%if SubmenuItem="4" then %>
  48. <TD width=10><img src='/images/RTB.gif'></td>
  49. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='AccountInfo.asp'> </A></TD>
  50. <TD width=10><img src='/images/LTB.gif'></td>
  51. <%else %>
  52. <TD width=10><img src='/images/RTS.gif'></td>
  53. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='AccountInfo.asp'> </A></TD>
  54. <TD width=10><img src='/images/LTS.gif'></td>
  55. <%end if %>
  56. <%end if %>
  57. <%if Auth(8 , "A") then %>
  58. <%if SubmenuItem="5" then %>
  59. <TD width=10><img src='/images/RTB.gif'></td>
  60. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='moeen.asp'> </A></TD>
  61. <TD width=10><img src='/images/LTB.gif'></td>
  62. <%else %>
  63. <TD width=10><img src='/images/RTS.gif'></td>
  64. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='moeen.asp'> </A></TD>
  65. <TD width=10><img src='/images/LTS.gif'></td>
  66. <%end if %>
  67. <%end if %>
  68. <%if Auth(8 , "B") then %>
  69. <%if SubmenuItem="6" then %>
  70. <TD width=10><img src='/images/RTB.gif'></td>
  71. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='tafsili.asp'> </A></TD>
  72. <TD width=10><img src='/images/LTB.gif'></td>
  73. <%else %>
  74. <TD width=10><img src='/images/RTS.gif'></td>
  75. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='tafsili.asp'> </A></TD>
  76. <TD width=10><img src='/images/LTS.gif'></td>
  77. <%end if %>
  78. <%end if %>
  79. <%if Auth(8 , "C") then %>
  80. <%if SubmenuItem="9" then %>
  81. <TD width=10><img src='/images/RTB.gif'></td>
  82. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='MakeDoc.asp' style="font-size:8pt;"> </A></TD>
  83. <TD width=10><img src='/images/LTB.gif'></td>
  84. <%else %>
  85. <TD width=10><img src='/images/RTS.gif'></td>
  86. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='MakeDoc.asp' style="font-size:8pt;"> </A></TD>
  87. <TD width=10><img src='/images/LTS.gif'></td>
  88. <%end if %>
  89. <%end if %>
  90. <%if Auth(8 , "E") then %>
  91. <%if SubmenuItem="10" then %>
  92. <TD width=10><img src='/images/RTB.gif'></td>
  93. <TD align=center background="/images/MTB.gif" class='alak2'><A HREF='OtherReports.asp' style="font-size:8pt;"> </A></TD>
  94. <TD width=10><img src='/images/LTB.gif'></td>
  95. <%else %>
  96. <TD width=10><img src='/images/RTS.gif'></td>
  97. <TD align=center background="/images/MTS.gif" class='alak'><A HREF='OtherReports.asp' style="font-size:8pt;"> </A></TD>
  98. <TD width=10><img src='/images/LTS.gif'></td>
  99. <%end if %>
  100. <%end if %>
  101. <TD width=40 align=left bgcolor=<%=SelectedMenuColor%>></TD>
  102. <TD align=left bgcolor=<%=unSelectedSubMenuColor%>><A HREF="../logout.asp"> </A></TD>
  103. </TR>
  104. </TABLE>
  105. </TD>
  106. </TR>
  107. <TR>
  108. <TD colspan=2 valign=top bgcolor=<%=AppFgColor%>>
  109. <%
  110. if request.queryString("errmsg")<>"" then
  111. response.write "<br>"
  112. call showAlert (request.queryString("errmsg"),CONST_MSG_ERROR)
  113. response.write "<br>"
  114. end if
  115. if request.queryString("msg")<>"" then
  116. response.write "<br>"
  117. call showAlert (request.queryString("msg"),CONST_MSG_INFORM)
  118. response.write "<br>"
  119. end if
  120. %>