Re: Text Wrap in editor area

  •  02-02-2005, 6:05 AM

    Re: Text Wrap in editor area

    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>&nbsp;&nbsp;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>
                  &nbsp;&nbsp;<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>
                  &nbsp;&nbsp;
                  <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
                    <tr>
                      <td bgcolor="#FFF5CC"><span class="TEXT_11px">&nbsp;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">&nbsp;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&nbsp;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&nbsp;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">&nbsp;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">&nbsp;</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" -->
View Complete Thread