<%@ 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 Set objfso = CreateObject("Scripting.FileSystemObject") if objfso.fileexists("e:\project\cdc\datafiles\speechescounter.txt") then Set objtxtfile = objfso.OpenTextFile("e:\project\cdc\datafiles\speechescounter.txt",1,true,0) speechescount=cint(objtxtfile.readall)+1 else Set objtxtfile = objfso.CreateTextFile("e:\project\cdc\datafiles\speechescounter.txt") objtxtfile.writeline "1" speechescount=1 end if objtxtfile.close set objtxtfile=nothing set objfso=nothing dim rpath rpath = "e:/project/cdc/data/speeches/" & "speeches" & speechescount & ".html" tpath = "e:/project/cdc/data/speeches/" & "speeches" & speechescount & ".txt" session("speechescount") = speechescount session("fpath") = rpath session("fname") = "speeches" & speechescount session("title") = request.form("title") dim sel_day, sel_month, sel_year sel_day = Request.Form("which_day") sel_month = Request.Form("which_month") sel_year = Request.Form("which_year") if (Cint(sel_day) < 10) then sel_day = "0" & sel_day end if if (Cint(sel_month) < 10) then sel_month = "0" & sel_month end if session("pub_date") = sel_month & "/" & sel_day & "/" & sel_year dim content content = request.form("content") wordst = "f" enterst = "f" arrwords = split(content,chr(13),-1,1) content = "" stroneword = "" for each stroneword in arrwords if (len(stroneword) > 1) then if ((asc(mid(stroneword,1,1)) = 126) or (asc(mid(stroneword,2,1)) = 126)) then enterst = "t" if (wordst = "t") then stroneword = "
  • " & stroneword end if if (wordst = "f") then wordst = "t" stroneword = "" & chr(13) & stroneword wordst = "f" enterst = "f" end if content = content & stroneword & chr(13) end if else content = content & stroneword & chr(13) end if next if (enterst = "t") then stroneword = "" wordst = "f" enterst = "f" content = content & stroneword & chr(13) end if content = Replace(content,chr(126),"") session("content") = Replace(content,chr(13),"

    ") Set MyFileObject=CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile(rpath,2,True,-2) Set objTextSourceFile = MyFileObject.OpenTextFile("e:\project\cdc\datafiles\temp\template.html") Do While Not objTextSourceFile.AtEndOfStream temp = objTextSourceFile.ReadLine if temp <> "bodyhere" then MyTextFile.WriteLine temp else MyTextFile.WriteLine "

    " MyTextFile.WriteLine formatdatetime(session("pub_date"),vbLongDate) & "

    " MyTextFile.WriteLine "" & request.form("title") & "

    " MyTextFile.WriteLine session("content") & "

    " end if Loop objTextSourceFile.Close set objTextSourceFile = Nothing MyTextFile.Close set MyTextFile = Nothing Set MyFile=MyFileObject.OpenTextFile(tpath,2,True,-2) MyFile.WriteLine session("pub_date") MyFile.WriteLine request.form("title") MyFile.WriteLine request.form("content") MyFile.Close set MyFile = Nothing 'Response.Redirect("cont_add.asp") %> <% response.write "" response.write "" response.write "Community Development Councils - Preview Speeches" response.write "" response.write "" %> <% response.write "" response.write "" response.write "" response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
    " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
    " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
     
    " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
     
    " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
    " & formatdatetime(session("pub_date"),vbLongDate) & "
     
    " & session("title") & "
     
    " & session("content") & "
     
    Copyright @ 2001 Community Development Councils, Singapore. All Rights Reserved.
     
     
    " response.write "
    " response.write " " response.write " " response.write "
    " response.write "
    " response.write "
    " response.write "
     
    " response.write "
    " response.write "
    Copyright 2001 ©Community Development Councils
    " response.write "
    " response.write "
    " response.write "" response.write "" %>