/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
- <!--#include virtual="/include/templates/top.asa"-->
- <!--#include virtual="/include/menus/about.asa"-->
- <%
- dim rs, BudgetYear
- set rs = server.CreateObject("ADODB.Recordset")
- strSQL = "SELECT DISTINCT BudgetYear FROM Budget ORDER BY BudgetYear DESC"
- set rs = cnnMain.execute(strSQL)
-
- BudgetYear = Request.QueryString("Year")
-
- function GetPageByContent(ContentType)
-
- select case ContentType
-
- case "application/msword"
-
- GetPageByContent = "viewword"
-
- case "application/pdf"
-
- GetPageByContent = "viewpdf"
-
- case "application/vnd.ms-excel"
-
- GetPageByContent = "viewexcel"
-
- case "text/plain"
-
- GetPageByContent = "viewtext"
-
- case else
-
- GetPageByContent = "viewtext"
-
- end select
-
- end function
-
- %>
-
- <table cellpadding="5" cellspacing="0" border="0" width="98%">
- <tr>
- <td align="left">
- <%if BudgetYear = "" then %>
- <table cellpadding="5" cellspacing="0" border="0" width="98%">
- <tr>
- <td class="PageTitle">Budget</td>
- </tr>
- <tr>
- <td align="left">
- <table cellpadding="0" cellspacing="0" border="0" width=100%>
- <% do while not rs.EOF %>
- <tr>
- <td class="SubHeader"><a href="index.asp?Year=<%=rs("BudgetYear")%>"><%=rs("BudgetYear")%></a></td>
- </tr>
- <% rs.MoveNext
- loop
- rs.Close %>
- </table>
- </td>
- </tr>
- </table>
-
- <%else
- %>
- <table cellpadding="5" cellspacing="0" border="0" width="98%">
- <tr>
- <td class="PageTitle"><%=BudgetYear%> Budget</td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- <tr>
- <td align="left">
- <table cellpadding="0" cellspacing="0" border="0" width=100%>
- <tr>
- <td class="ContactInfo" valign=top>
- <%
- strSQL = "bcfpdwebuser.spGetBudgetByYear '" & BudgetYear & "'"
- set rs = cnnMain.execute(strSQL)
- do while not rs.eof %>
- <a target="_blank" href="<%=GetPageByContent(rs("ContentType"))%>.asp?nid=<%=rs("nID")%>"><%=rs("FileName")%></a><br>
- <% rs.MoveNext
- loop %>
- </td>
- </tr>
- <% rs.Close %>
- </table>
- </td>
- </tr>
- </table>
- <%end if %>
-
-
- </td>
- </tr>
- </table>
- <!--#include virtual="/include/templates/bottom.asa"-->