<%@ 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 newscount dim pub_date dim fileext Set objfso = CreateObject("Scripting.FileSystemObject") newscount = Cint(session("newscount")) pub_date = session("pub_date") Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\news.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\newscounter.txt",2,true,0) objtxtfile.writeline newscount objtxtfile.close fileext = session("fname") & ".html" %>

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