<%@LANGUAGE="VBSCRIPT"%> <%Response.Buffer = true %> <%RedirURL = "/newsletters/newsletters.asp" If not (editor or master) then Response.Redirect(RedirURL) PageMode = Request("PageMode") If PageMode = "" Then PageMode = Request.Form("PageMode") If PageMode = "cancel changes" or PageMode = "abandon new record" Then Response.Redirect(RedirURL) datafile = "npc_newsletters.mdb" datatable = "tbl_newsletters" %><% OpenOleConn(datadir+datafile) If PageMode = "AddNew" Then savlabel = "save new record" canlabel = "abandon new record" editing = false titlesuffix = "(adding a new record)" set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select * from "&datatable, objConn, 2, 3 rs.addnew Else savlabel = "save changes" canlabel = "cancel changes" editing = true titlesuffix = "(editing record)" set rs = objConn.execute("SELECT * from "&datatable&" where ID = " & Request("ID")) End If If PageMode = "delete record" Then OpenOleConn(datadir+datafile) set rs = Server.CreateObject("ADODB.Recordset") SQL = "DELETE * from "&datatable&" WHERE ID = " & Request.form("ID") & " " rs.Open SQL, objConn CloseData() Response.Redirect(RedirURL) End If If PageMode = "save changes" or PageMode = "save new record" Then set rs = Server.CreateObject("ADODB.Recordset") If PageMode = "save changes" Then rs.Open "select * from "&datatable&" where id=" & request.form("id"), objConn, 2, 3 else rs.Open "select * from "&datatable, objConn, 2, 3 rs.addnew end if rs("title") = nz(Request.form("title")) rs("textcontent") = nz(Request.form("ftextcontent")) rs("datestamp") = now() rs("author") = session("username") rs.update CloseData() Response.Redirect(RedirURL & "?pagemode=" & PageMode) End if %> <%=SiteName%>
News Letters (editing)

Edit the text in the window as required, or you can 'cut and paste' html from an html editor program if you prefer.

" size="80">



<%If Editing Then%> <%End if%> ">

Alternatively, simple formatting can be achieved with the following HTML'tags':

The tags can be used in combination, eg <b><i> bold italics </i></b>

 

 <b> text to be in bold face </b>
<i> text to be in italics </i>
<u> text to be underlined </u>
<br> starts new line (just the one tag needed)

 

<%CloseData() %>