Community Development Councils

<%@ 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 %> <% whichday = request.form("which_day") whichmonth = request.form("which_month") whichyear = request.form("which_year") ' ScrollAction = Request("ScrollAction") if ((whichday <> "") and (whichday <> "empty")) then if ((Cint(whichday) < 10) and (len(whichday)=1)) then whichday = "0" & whichday end if else if ((Cint(day(date)) < 10) and (len(day(date))=1)) then whichday = "0" & day(date) end if end if if ((whichmonth <> "") and (whichmonth <> "empty")) then if ((Cint(whichmonth) < 10) and (len(whichmonth)=1)) then whichmonth = "0" & whichmonth end if else if ((Cint(month(date)) < 10) and (len(month(date))=1)) then whichmonth = "0" & month(date) end if end if if whichyear="" or isempty(whichyear) or isnull(whichyear) then whichyear = Cint(year(date)) end if %> Community Development Councils - Speeches

Speeches - delete
add	edit	delete

<% 'if whichday="" or isempty(whichday) or isnull(whichday) then ' whichday = Cint(day(date)) 'end if 'if whichmonth="" or isempty(whichmonth) or isnull(whichmonth) then ' whichmonth = Cint(month(date)) 'end if %>

Search:

day month year

<% dim objfso, objtxtfile dim userinfo, useric dim searchdate, recordcount recordcount=0 searchdate=whichmonth&"/"&whichday&"/"&whichyear Set objfso = CreateObject("Scripting.FileSystemObject") Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\speeches.txt",1,true,0) do while not objtxtfile.atendofstream userinfo=objtxtfile.readline useric=split(userinfo,"^") if useric(2)=searchdate then recordcount=1 exit do end if loop objtxtfile.close if recordcount=1 then %> <% Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\speeches.txt",1,true,0) do while not objtxtfile.atendofstream userinfo=objtxtfile.readline useric=split(userinfo,"^") if useric(2)=searchdate then %> <% end if loop %> <% else %> <% end if %>

latest speeches listing
	Date	Headline
	<% =useric(2) %>	<% =useric(1) %>


No Records found on this date