<%@ 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 %> <% session("new_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("new_pub_date") = sel_month & "/" & sel_day & "/" & sel_year dim content content = request.form("content") session("txtcontent") = 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("htmlcontent") = Replace(content,chr(13),"

    ") %> <% response.write "" response.write "" response.write "" & request.form("title") & "" 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("new_pub_date"),vbLongDate) & "
     
    " & session("new_title") & "
     
    " & session("htmlcontent") & "
     
    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 "" %>