<%
'Set the response buffer to true as we maybe redirecting
Response.Buffer = True
Dim strMode 'Holds whether the page is to add a new item or amend a news item
Dim lngNewsID 'Holds the ID number of the News Item
Dim rsNews 'Database recordset holding the news items
Dim strAuthor 'Holds the username of the author
Dim strAuthorEmail 'Holds the authors e-mail
Dim strNewsTitle 'Holds the title of the news item
Dim strShortNewsItem 'holds the short news item
Dim strNewsItem 'Holds the news item
Dim blnComments 'set to true if the users can leave comments
'Initialise variables
strMode = "New"
%>
Add News Item
Fill out the form below to add a News Item.
HTML can be added to the News Item for formatting etc.
If you are not familiar with HTML you can use the buttons to create the HTML for you that will format your News Item. |
<%
'If the browser type selected is IE then have the WYSIWYG editor
If Request.QueryString("browser") = "IE" Then %>
<% Else %>
<% End If %>