CDA Africa Library

<% 'app path vNBUploadPath = server.MapPath("NoticeBoardFiles") vNBWebFilePath = "nbr/noticeboardfiles/" if session("loggedin")<>"yes" then Response.Redirect "../enter.asp?Page="&Request.ServerVariables("SCRIPT_NAME") end if vFrom_Month = Request.Form("From_Month") vTo_Month = Request.Form("To_Month") vFrom_Year = Request.Form("From_Year") vTo_Year = Request.Form("To_Year") If vFrom_Month = 1 Then vFrom_Month1 = "selected" If vFrom_Month = 2 Then vFrom_Month2 = "selected" If vFrom_Month = 3 Then vFrom_Month3 = "selected" If vFrom_Month = 4 Then vFrom_Month4 = "selected" If vFrom_Month = 5 Then vFrom_Month5 = "selected" If vFrom_Month = 6 Then vFrom_Month6 = "selected" If vFrom_Month = 7 Then vFrom_Month7 = "selected" If vFrom_Month = 8 Then vFrom_Month8 = "selected" If vFrom_Month = 9 Then vFrom_Month9 = "selected" If vFrom_Month = 10 Then vFrom_Month10 = "selected" If vFrom_Month = 11 Then vFrom_Month11 = "selected" If vFrom_Month = 12 Then vFrom_Month12 = "selected" If vTo_Month = 1 Then vTo_Month1 = "selected" If vTo_Month = 2 Then vTo_Month2 = "selected" If vTo_Month = 3 Then vTo_Month3 = "selected" If vTo_Month = 4 Then vTo_Month4 = "selected" If vTo_Month = 5 Then vTo_Month5 = "selected" If vTo_Month = 6 Then vTo_Month6 = "selected" If vTo_Month = 7 Then vTo_Month7 = "selected" If vTo_Month = 8 Then vTo_Month8 = "selected" If vTo_Month = 9 Then vTo_Month9 = "selected" If vTo_Month = 10 Then vTo_Month10 = "selected" If vTo_Month = 11 Then vTo_Month11 = "selected" If vTo_Month = 12 Then vTo_Month12 = "selected" %> CDA Africa Library

CDA Africa Library

Introduced in January 2008

Select a date range below to view previous notices
From Date:
To Date:

<% If Len(vFrom_Month) > 0 And Len(vFrom_Year) > 0 And Len(vTo_Month) > 0 And Len(vTo_Year) > 0 Then %>

Notices in the date range you selected

<% vTmp_Date = DateAdd("d", -1, "1 " & MonthName(vFrom_Month) & " " & vFrom_Year) vFrom_Date = Day(vTmp_Date) & " " & MonthName(Month(vTmp_Date)) & " " & Year(vTmp_Date) If int(vTo_Month) = 12 Then vTo_Month = 11 vTo_Date = "1 " & MonthName(vTo_Month+1) & " " & vTo_Year selSQL = "SELECT NB_ID, " selSQL = selSQL & "Heading, " selSQL = selSQL & "Content, " selSQL = selSQL & "File_Name, " selSQL = selSQL & "Doc_Name, " selSQL = selSQL & "File_Link_Text, " selSQL = selSQL & "Doc_Size, " selSQL = selSQL & "Doc_Type, " selSQL = selSQL & "URL, " selSQL = selSQL & "URL_Text, " selSQL = selSQL & "Ins_Month, " selSQL = selSQL & "Load_Date " selSQL = selSQL & "FROM ASATA.Notices_Audit " selSQL = selSQL & "WHERE Load_Date BETWEEN '" & vFrom_Date & "' AND '" & vTo_Date & "' " selSQL = selSQL & "ORDER BY NB_ID, Load_Date DESC " Set rsNot = oConn.execute(selSQL) Do While rsNot.EOF = False vNB_ID = rsNot("NB_ID") vHeading = rsNot("Heading") vContent = rsNot("Content") vFile_Name = rsNot("File_Name") vDoc_Name = rsNot("Doc_Name") vFile_Link_Text = rsNot("File_Link_Text") vDocument_Size = rsNot("Doc_Size") vDocument_Type = rsNot("Doc_Type") vURL = rsNot("URL") vURL_Text = rsNot("URL_Text") vLoad_Date = rsNot("Load_Date") vIns_Month = rsNot("Ins_Month") If vOld_NB_ID <> vNB_ID Then vMonthName_M = Month(vLoad_Date) vMonthName = MonthName(vIns_Month, 1) %> <% 'only is there is an image, show it If Len(vFile_Name) > 0 Then %> <% End If %>

<%=vHeading%>
- updated <%=vMonthName%> <%=Year(vLoad_Date)%>

<% If instr(1, lcase(vFile_Name), ".gif") > 0 OR instr(1, lcase(vFile_Name), ".jpg") > 0 OR instr(1, lcase(vFile_Name), ".jpeg") > 0 Then Response.Write "

" Else Response.Write "

Click here to access file»

" End If %>

<% Response.Write vContent 'see if we have a file... and show it If Len(vDoc_Name) <> 0 Then 'file not restricted Response.Write "

View attached file »

" End If 'check if a link has been added If Len(vURL) > 0 Then %>

<%=vURL_Text%>»

<% End If %>

<% vOld_NB_ID = vNB_ID End If rsNot.MoveNext Loop %>

<% End If %>