<%@ Language="VBScript" %> <% If ((Len(Trim(session("userid"))) = 0) or (Len(Trim(session("passwd"))) = 0)) Then response.Redirect "http://localhost/cdc/admin/admin-main.asp" End If %>

Speeches - add add edit delete <% dim d_val, m_val, y_val d_val = Cint(day(date)) m_val = Cint(month(date)) y_val = Cint(year(date)) %> Date:    day day <%for i = 1 to 31 %> <% if (d_val = i) then %> <%=i%> <% else %> <%=i%> <% end if %> <% next %> month month <%for i = 1 to 12 %> <% if (m_val = i) then %> <%=i%> <% else %> <%=i%> <% end if %> <% next %> year year <% counter = Cint(year(date)) - 1997 for i = 0 to counter display_year = 1997 + i %> <% if (y_val = Cint(display_year)) then %> <%=display_year%> <% else %> <%=display_year%> <% end if %> <% next %> Title:     Content:       Copyright 2001 ©Community Development Councils