Hello Adam,
Sorry for the delay...
Here is the code:
--------------------------------------------------------------
<!--#include file = "../../cuteeditor/include_CuteEditor.asp" -->
<% PageTitle = "News Management Tool - Add Article" %>
<!--#include file="../../includes/strings.asp" -->
<!--#include file="../../includes/UnderMX.inc" -->
<!--#include file="../../includes/functions.asp" -->
<!--#include file="../../includes/OpenFso.inc" -->
<!--#include file="../../Connections/YSKY002_News.asp" -->
<%
Dim NewsCategories
Dim NewsCategories_numRows
Set NewsCategories = Server.CreateObject("ADODB.Recordset")
NewsCategories.ActiveConnection = MM_YSKY002_News_STRING
NewsCategories.Source = "SELECT * FROM Tbl_NewsCats ORDER BY NewsCat_Value Asc"
NewsCategories.CursorType = 0
NewsCategories.CursorLocation = 2
NewsCategories.LockType = 1
NewsCategories.Open()NewsCategories_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="../../includes/ISODate.asp" -->
<html>
<head>
<title><% = PageTitle %></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../includes/General.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../../includes/Scripts/ShowHideLayers.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="180" height="39"><img src="../../images/top_logo_dhl.gif" width="180" height="40"></td>
<td align="right" valign="bottom"><!--#include file="../../includes/ysky002inc/topmenu.asp" --></td>
</tr>
<tr>
<td height="1" colspan="2" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<table width="780" height="18" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="5" class="BackgroundTD_PaleYellow2"><img src="../../images/spacer.gif" width="5" height="1"></td>
<td class="BackgroundTD_PaleYellow2">
<DIV class="Breadcrumb"><% =BreadcrumbLink1%> | <% =Breadcrumb3%></DIV></td>
<td width="5" class="BackgroundTD_PaleYellow2"><img src="../../images/spacer.gif" width="5" height="21"></td>
<td width="1" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="1" colspan="4" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="179" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../../images/spacer.gif" width="1" height="33"></td>
</tr>
</table>
<!--#include file="../../includes/ysky002inc/sidemenu-1.asp" -->
</td>
<td width="1" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
<td height="380" class="TDContent"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0" bgcolor="#CC0000">
<tr>
<td><font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif"><strong> Administrative
Website - News Management Tool</strong></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="TDContentData"><form action="NM-ADD-2.asp" method="post" name="NMAdd" id="NMAdd">
<span class="TEXT_12px"><strong>News Management - Add News Item/Article:</strong></span><strong><br>
<br>
STEP 1 </strong>- Complete the form below to add a new News Item/Article
to the DHL Air Extranet. When done clisk the 'Continue' button at
the bottom of the page. <br>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#FFF5CC"><span class="TEXT_11px"> Main News/Article
Title:</span> <input name="NewsTitle" type="text" style="padding-top: 2px; padding-left: 2px; font-weight: bold; width: 100%; Height: 20px; border: 1px #CCC4A3 solid; font-size: 11px;" value="<%If Session("NewsTitle") <> "" then Response.Write(Session("NewsTitle")) end if%>">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><span class="TEXT_11px"> Select Category</span>
</td>
<td width="15" rowspan="2"><img src="../../images/spacer.gif" width="15" height="8"></td>
<td width="75" class="TEXT_11px">Publish Date</td>
<td width="15" rowspan="2" class="TEXT_11px"><img src="../../images/spacer.gif" width="15" height="8"></td>
<td width="75" class="TEXT_11px">Publish Time</td>
<td width="15" rowspan="2"><img src="../../images/spacer.gif" width="15" height="8"></td>
<td width="75" class="TEXT_11px">Expiry Date</td>
</tr>
<tr>
<td><select name="Category" id="Category" style="width: 100%; Height: 20px; border: 1px #CCC4A3 solid; font-size: 11px;">
<option value="" <%If (Not isNull(Session("Category"))) Then If ("" = CStr(Session("Category"))) Then Response.Write("SELECTED") : Response.Write("")%>>Select
...</option>
<%
While (NOT NewsCategories.EOF)
%>
<option value="<%=(NewsCategories.Fields.Item("NewsCat_Value").Value)%>" <%If (Not isNull(Session("Category"))) Then If (CStr(NewsCategories.Fields.Item("NewsCat_Value").Value) = CStr(Session("Category"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(NewsCategories.Fields.Item("NewsCat_Label").Value)%></option>
<%
NewsCategories.MoveNext()
Wend
If (NewsCategories.CursorType > 0) Then
NewsCategories.MoveFirst
Else
NewsCategories.Requery
End If
%>
</select></td>
<td><input name="PubDate" type="text" id="PubDate" style="padding-top: 2px; padding-left: 2px; width: 100%; Height: 20px; border: 1px #CCC4A3 solid; font-size: 11px;" value="<%If Session("PubDate") <> "" Then Response.Write(Session("PubDate")) else Response.Write(MTDateTime((Date()), False, False, False, 3)) End if %>"></td>
<td><input name="PubTime" type="text" id="PubTime" style="padding-top: 2px; padding-left: 2px; width: 100%; Height: 20px; border: 1px #CCC4A3 solid; font-size: 11px;" value="<%If Session("PubTime") <> "" Then Response.Write(Session("PubTime")) else Response.Write(FormatDateTime(Time(),4)) end if%>"></td>
<td><input name="ExpDate" type="text" id="ExpDate" style="padding-top: 2px; padding-left: 2px; width: 100%; Height: 20px; border: 1px #CCC4A3 solid; font-size: 11px;" value="<%If Session("ExpDate") <> "" Then Response.Write(Session("ExpDate")) else Response.Write(MTDateTime((Date()+30), False, False, False, 3)) End if%>"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="../../images/spacer.gif" width="1" height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" class="TEXT_11px"> Contents Editor:
<%
dim content
If Session("ContentResult") <> "" then
Content = Session("ContentResult")
Else
content = "<p>Type here...</p>"
End If
Dim editor
Set editor = New CuteEditor 'Create a new editor class object
'Set the ID of this editor class
editor.ID = "Editor1"
'Set the initial HTML value of editor control
editor.Text = content
editor.FilesPath = "/Cuteeditor/CuteEditor_Files"
'Specifies the URL path of the Image Gallery. default "Uploads"
editor.ImageGalleryPath = "/Cuteeditor/Uploads"
'Specifies the URL path of the Downloadable Files. default "Uploads"
editor.DocumentPath= "/Cuteeditor/Uploads"
editor.MaxImageSize = 50
editor.MaxMediaSize = 20000
'Specifies the URL path of the Help button.
editor.HelpUrl = "http://yahoo.com"
editor.AutoConfigure = "yskydhlairnews"
editor.FontFacesList = "Arial"
editor.FontSizesList = "1,2,3,4,5,7"
'editor.Template= "Bold,Italic,Underline"
'editor.StyleSheetPath = "/grey2.css"
editor.Width = 574
editor.Height = 200
editor.Draw()
'Response.Write "<br>"
'Retrieve the data from editor: Request.Form("Editor1_HTMLContent")
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="2"><img src="../../images/spacer.gif" width="1" height="5"></td>
</tr>
<tr>
<td><a href="NM-Main.asp"><img src="../../images/Button-Cancel.gif" alt="Cancel action!" width="71" height="19" border="0"></a>
</td>
<td align="right"> <input name="Continue" type="image" onfocus="save(Editor1);" onClick="save(Editor1);" src="../../images/Button-Continue.gif" alt="Continue to step 2!"></td>
</tr>
</table>
<%'<input type="submit" value="Update" ID="Submit1" NAME="Submit1" onfocus="save(Editor1);">%>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" colspan="4" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td width="179" class="BackgroundTD_PaleYellow2"> </td>
<td width="1" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
<td align="right" class="BackgroundTD_PaleYellow2"><!--#include file="../../includes/LastMod.asp" --></td>
<td width="5" class="BackgroundTD_PaleYellow2" style="border-right: 1px #FFFFFF solid"><img src="../../images/spacer.gif" width="5" height="21"></td>
</tr>
<tr>
<td colspan="4" class="BackgroundTD_White"><img src="../../images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
</body>
</html>
<%
NewsCategories.Close()
Set NewsCategories = Nothing
%>
<!--#include file="../../includes/CloseFso.inc" -->