/aboutbcfpd/budget/index.asp

https://github.com/evizitei/bcfpd_asp · ASP · 98 lines · 78 code · 20 blank · 0 comment · 3 complexity · 8bcb2bb838722d1d9fca05195c3f8601 MD5 · raw file

  1. <!--#include virtual="/include/templates/top.asa"-->
  2. <!--#include virtual="/include/menus/about.asa"-->
  3. <%
  4. dim rs, BudgetYear
  5. set rs = server.CreateObject("ADODB.Recordset")
  6. strSQL = "SELECT DISTINCT BudgetYear FROM Budget ORDER BY BudgetYear DESC"
  7. set rs = cnnMain.execute(strSQL)
  8. BudgetYear = Request.QueryString("Year")
  9. function GetPageByContent(ContentType)
  10. select case ContentType
  11. case "application/msword"
  12. GetPageByContent = "viewword"
  13. case "application/pdf"
  14. GetPageByContent = "viewpdf"
  15. case "application/vnd.ms-excel"
  16. GetPageByContent = "viewexcel"
  17. case "text/plain"
  18. GetPageByContent = "viewtext"
  19. case else
  20. GetPageByContent = "viewtext"
  21. end select
  22. end function
  23. %>
  24. <table cellpadding="5" cellspacing="0" border="0" width="98%">
  25. <tr>
  26. <td align="left">
  27. <%if BudgetYear = "" then %>
  28. <table cellpadding="5" cellspacing="0" border="0" width="98%">
  29. <tr>
  30. <td class="PageTitle">Budget</td>
  31. </tr>
  32. <tr>
  33. <td align="left">
  34. <table cellpadding="0" cellspacing="0" border="0" width=100%>
  35. <% do while not rs.EOF %>
  36. <tr>
  37. <td class="SubHeader"><a href="index.asp?Year=<%=rs("BudgetYear")%>"><%=rs("BudgetYear")%></a></td>
  38. </tr>
  39. <% rs.MoveNext
  40. loop
  41. rs.Close %>
  42. </table>
  43. </td>
  44. </tr>
  45. </table>
  46. <%else
  47. %>
  48. <table cellpadding="5" cellspacing="0" border="0" width="98%">
  49. <tr>
  50. <td class="PageTitle"><%=BudgetYear%> Budget</td>
  51. </tr>
  52. <tr>
  53. <td>&nbsp;</td>
  54. </tr>
  55. <tr>
  56. <td align="left">
  57. <table cellpadding="0" cellspacing="0" border="0" width=100%>
  58. <tr>
  59. <td class="ContactInfo" valign=top>
  60. <%
  61. strSQL = "bcfpdwebuser.spGetBudgetByYear '" & BudgetYear & "'"
  62. set rs = cnnMain.execute(strSQL)
  63. do while not rs.eof %>
  64. <a target="_blank" href="<%=GetPageByContent(rs("ContentType"))%>.asp?nid=<%=rs("nID")%>"><%=rs("FileName")%></a><br>
  65. <% rs.MoveNext
  66. loop %>
  67. </td>
  68. </tr>
  69. <% rs.Close %>
  70. </table>
  71. </td>
  72. </tr>
  73. </table>
  74. <%end if %>
  75. </td>
  76. </tr>
  77. </table>
  78. <!--#include virtual="/include/templates/bottom.asa"-->