<%@ 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 - edit add edit delete <% session("fname")=request("filename") session("title")=request("title") session("pub_date")=request("filedate") dim d_val, m_val, y_val d_val = cint(Day(cdate(request("filedate")))) m_val = cint(Month(cdate(request("filedate")))) y_val = cint(Year(cdate(request("filedate")))) %> 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)) - 2000 for i = 0 to counter display_year = 2000 + i %> <% if (y_val = Cint(display_year)) then %> <%=display_year%> <% else %> <%=display_year%> <% end if %> <% next %> Title:     "> Content:     <% dim objfso, objtxtfile Set objfso = CreateObject("Scripting.FileSystemObject") Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\data\speeches\" & request("filename") & ".txt",1,true,0) objtxtfile.readline objtxtfile.readline %> <% do while not objtxtfile.atendofstream userinfo=objtxtfile.readline response.write userinfo & chr(13) loop %> <% objtxtfile.close set objtxtfile=nothing set objfso=nothing %>   Copyright 2001 ©Community Development Councils