<%@ 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 %> <% dim objfso, objtxtfile dim speechescount dim pub_date dim fileext Set objfso = CreateObject("Scripting.FileSystemObject") speechescount = Cint(session("speechescount")) pub_date = session("pub_date") Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\speeches.txt",8,true,0) 'objtxtfile.writeline (session("fname") & "^" & replace(Session("title"),"'","''") & "^" & session("pub_date")) objtxtfile.writeline (session("fname") & "^" & session("title") & "^" & session("pub_date")) objtxtfile.close Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\speechescounter.txt",2,true,0) objtxtfile.writeline speechescount objtxtfile.close fileext = session("fname") & ".html" %>

Speeches - add add edit delete  The HTML page named <%=fileext%> has been successfully created.   Copyright 2001 ©Community Development Councils