<%@language=vbscript%> <% Option Explicit Response.Expires = -1000 If NOT isempty(Request("NID")) Then Dim rsNews, strGetNews %> <% Set rsNews = Server.CreateObject("ADODB.Recordset") strGetNews = "SELECT * FROM tblNews WHERE NewsID = " & Request("NID") & "" Set rsNews = oConn.Execute(strGetNews) End If %>

Edit News Item
These news articles appear on the main page of the Jericho site. HTML is also optional in these articles and one element is manditory. You must surround each paragraph with HTML paragraph tags <p></p>. Think of these tags as a container. Each paragraph in your article must reside in a different contaner in the text box below.

Example: If my first paragraph reads "This is the first paragaph." and my second reads "This is the second paragraph.", I would put this in the text box below:

<p>This is the first paragaph.</p>
<p>This is the second paragaph.</p>

If you have any problems with this section, please contact Web Site Support.

"> <% If NOT isempty(Request("MSG")) OR isnull(Request("MSG")) Then %> <% End If %>
<% If Request("MSG") = "NEWSPOSTED0" Then %>

NOTE: Your news has been entered into the database but has not been set to active. If you would like to activate this article so that it displays on the main page, go to Edit/Delete News.

<% ElseIf Request("MSG") = "NEWSPOSTED1" Then %>

NOTE: Your news has been entered into the database and has been set to active. It is now visible on the Main Page.

<% End If %>
News Title : ">
Short Description :
News Body :
Do you want to post this article now?    <% If rsNews("Active") = 1 Then %> <% Else %> <% End If %>

<% Dim pgName pgName = "HP" %>