Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

How To: Integrate InnovaStudio (Text Area Replacement) into this webform.

Posted on 2004-03-30
5
Medium Priority
?
904 Views
Last Modified: 2008-01-09
I need to get INNOVASTUDIO - www.INNOVASTUDIO.com to work with XCENT.COM's products to make life easier. But I've run into problems. Perhaps someone knows how to fix this. I'll provide any information needed to get this done as soon as possible. Thanks.


The area in question is a textbox:

Response.Write "<td><textarea name=""MESSAGE"" cols=""35"" rows=""12"" wrap=""physical"">" & sMessage & "</textarea></td></tr>"

I want to integrate this code:

     <script>
          var oEdit1 = new InnovaEditor("oEdit1");
          oEdit1.scriptPath="../scripts/";
          oEdit1.width="460";
          oEdit1.height="400";
         
          //Specify the icon path (within the script path)
          oEdit1.iconPath="icons1/";
          oEdit1.iconWidth=24;oEdit1.iconHeight=23;
                   
          oEdit1.RENDER();    
          oEdit1.loadHTML(idTemporary.innerHTML);
     </script>

Here is the entire code snip for the sub, feel free to point me in a direction if not provide the solution... (I'm not a programmer, but I am learning, a long way to go...) :

Sub ShowPostForm
    AddJavaIconSelect
    If lMsgID > 0 Then
        sTabTitle = GLS_PostTitleEdit
        sBtn = GLS_PostBtnEdit
    ElseIf lThreadID > 0 Then    
        sTabTitle = GLS_PostTitleReply
        sBtn = GLS_PostBtnReply
    Else    
        sTabTitle = GLS_PostTitleNewThread
        sBtn = GLS_PostBtnNewThread
    End If  

    Response.Write "<TABLE WIDTH=""" & gsDefTableWidth & """ CELLSPACING=""0"" BORDER=""0"" CELLPADDING=""2"" CLASS=""MSGPageBG"">"
     Response.Write "<TR><TD>"
     Response.Write DoNavTree(lForumID, lThreadID, sTabTitle)
     Response.Write "</TD></TR></TABLE>"
   
     
   
    Response.Write"<TABLE BORDER=""0"" CELLPADDING=""0"" CELLSPACING=""0"" WIDTH=""" & gsDefTableWidth & """>"
     Response.Write"<TR>"
     Response.Write"<TD Class=""MSGTab"" width=""35%""><DIV Class=""MSGTab"">&nbsp;" & sTabTitle & "&nbsp;</DIV></TD>"
     Response.Write "<TD WIDTH=""65%"" ALIGN=""RIGHT"" Class=""MSGEmpty"">"
         
     Response.Write "&nbsp;&nbsp;</TD></TR>"
     Response.Write"<TR><TD COLSPAN=""2"" Class=""MSGTab"" HEIGHT=""2""><IMG BORDER=""0"" SRC=""MSGImages/pix.gif"" WIDTH=""1"" HEIGHT=""1""></TD></TR>"
     Response.Write"<TR><TD COLSPAN=""2"" Class=""MSGTab"" HEIGHT=""2""><IMG BORDER=""0"" SRC=""MSGImages/pix.gif"" WIDTH=""1"" HEIGHT=""1""></TD></TR>"
     Response.Write "</TABLE>"
     Response.Write "<TABLE WIDTH=""" & gsDefTableWidth & """ CELLSPACING=""0"" BORDER=""0"" CELLPADDING=""1"">"
     Response.Write "<TR><TD CLASS=""MSGPageBG"">"
     Response.Write GLS_RequiredText
     Response.Write "</TD></TR>"
     Response.Write "<TR><TD class=""MSGBox"">"
     Response.Write "<TABLE     WIDTH=""100%"" CELLSPACING=""0"" CELLPADDING=""4"" BORDER=""0"" class=""MSGPageBG"">"
   
       
     If gbUserPostCapable Then
               Response.Write "<FORM METHOD=""POST"" ACTION=""MsgPostMessage.asp"" NAME=""EDITFORM"">"
               Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""SAVE"">"
               Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ForumID"" VALUE=""" & lForumID & """>"
               Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ThreadID"" VALUE=""" & lThreadID & """>"          
               Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""MsgID"" VALUE=""" & lMsgID & """>"          
               Response.Write "<tr><td valign=""top""><span class=""MSGFormText"">" & GLS_PostUserNamePrompt & "</span></td>"
               Response.Write "<td>" & gsUserName & "<BR>"
               Response.Write GLS_PostNotUserName & "</td></tr>"
               If objErr.Exists("TITLE") Then
                   Response.Write "<TR><TD colspan=""2""><DIV CLASS=""MSGError"">" & objErr.Item("TITLE") & "</TD></TR>"
               End If
               Response.Write "<tr><td valign=""top""><span class=""MSGFormText"">" & OutMatch(lThreadID,0,GLS_Required, "") & GLS_PostTitlePrompt & "</span></td>"
               
               Response.Write "<td><input type=""TEXT"" name=""ThreadTITLE"" VALUE=""" & sThreadTitle & """ maxlength=""80"" size=""35""></td></tr>"
               If objErr.Exists("MESSAGE") Then
                   Response.Write "<TR><TD colspan=""2""><DIV CLASS=""MSGError"">" & objErr.Item("MESSAGE") & "</TD></TR>"
               End If
               Response.Write "<tr><td valign=""top""><span class=""MSGFormText"">" & GLS_Required & GLS_PostMessagePrompt
             '**icon chooser
             If gbUseIcons Then
                 Response.Write "<BR>" & "<A HREF=""MSGIconMaint.asp"" OnClick=""MSG_SelectIcon(); return false;"">" & GLS_PostInsertIcon & "</A>"
                 Response.Write "</span>"
             End If
             Response.Write "</td>"
             Response.Write "<td><textarea name=""MESSAGE"" cols=""35"" rows=""12"" wrap=""physical"">" & sMessage & "</textarea></td></tr>"
       
            '***Disable autoformat
            Response.Write "<TR><TD>&nbsp;</TD><TD><SPAN CLASS=""MSGFormText"">"
             Response.Write "<INPUT TYPE=""CHECKBOX"" VALUE=""Y"" NAME=""NoAutoFormat""" & OutMatch(bNoAutoFormat,True," CHECKED", "") & ">&nbsp;" & GLS_PostNoAutoFormat
             Response.Write "</TD></TR>"    
               Response.Write "<tr><td>&nbsp;</td><td><input type=""submit"" class=""XcBtn"" value=""" & sBtn & """>"
               
          Else
         
               ShowHTMLFile "MSGHtmlText/MSGPostDenied.htm"
          End If    
     


    Response.Write "</table>"
   
    Response.Write "</TD></TR>"
    Response.Write "<TR class=""MSGPageBG""><TD>"
    ShowNavBar
    Response.Write "</TD></TR>"
   
    Response.Write "</TABLE>"
     
End Sub


%>



*** Thanks for any assistance.
0
Comment
Question by:Onlinetracker
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 75

Expert Comment

by:Michel Plungjan
ID: 10718408
Hi, I am sorry to see you have not received much help.
I would think the reason is a lack of knowledge of the particular product called INNOVASTUDIO.

I can see you would need to do something like  change
       Response.Write "<td><textarea name=""MESSAGE"" cols=""35"" rows=""12"" wrap=""physical"">" & sMessage & "</textarea></td></tr>"
to

Response.Write "<input type="hidden" name=""idTemporary"">" & sMessage & "</textarea>" %>

<td>
     <script>
          var oEdit1 = new InnovaEditor("oEdit1");
          oEdit1.scriptPath="../scripts/";
          oEdit1.width="460";
          oEdit1.height="400";
         
          //Specify the icon path (within the script path)
          oEdit1.iconPath="icons1/";
          oEdit1.iconWidth=24;oEdit1.iconHeight=23;
                   
          oEdit1.RENDER();    
          oEdit1.loadHTML(idTemporary.value);
     </script>
  </td></tr>

Here is a link to a working example

http://www.mm-ultradev.com/innovaeditor/editor.aspx

I am sorry I cannot help you more, I do not do asp and I cannot get hold of the documentation for innova.

Michel
0
 
LVL 75

Accepted Solution

by:
Michel Plungjan earned 2000 total points
ID: 10718541
I would personally write jsp/asp like this:


Sub ShowPostForm
    AddJavaIconSelect
    If lMsgID > 0 Then
        sTabTitle = GLS_PostTitleEdit
        sBtn = GLS_PostBtnEdit
    ElseIf lThreadID > 0 Then    
        sTabTitle = GLS_PostTitleReply
        sBtn = GLS_PostBtnReply
    Else    
        sTabTitle = GLS_PostTitleNewThread
        sBtn = GLS_PostBtnNewThread
    End If  

%>
<TABLE WIDTH="<%= gsDefTableWidth %>" CELLSPACING="0" BORDER="0" CELLPADDING="2" CLASS="MSGPageBG">
<TR><TD><%= DoNavTree(lForumID, lThreadID, sTabTitle) %></TD></TR>
</TABLE>"
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="<%= gsDefTableWidth %>">
<TR>
  <TD Class="MSGTab" width="35%"><DIV Class="MSGTab">&nbsp;<%= sTabTitle  %>&nbsp;</DIV></TD>
  <TD WIDTH="65%" ALIGN="RIGHT" Class="MSGEmpty">&nbsp;&nbsp;</TD>
</TR>
<TR><TD COLSPAN="2" Class="MSGTab" HEIGHT="2"><IMG BORDER="0" SRC="MSGImages/pix.gif" WIDTH="1" HEIGHT="1"></TD></TR>
<TR><TD COLSPAN="2" Class="MSGTab" HEIGHT="2"><IMG BORDER="0" SRC="MSGImages/pix.gif" WIDTH="1" HEIGHT="1"></TD></TR>
</TABLE>"
<TABLE WIDTH="<%= gsDefTableWidth %>" CELLSPACING="0" BORDER="0" CELLPADDING="1">
<TR><TD CLASS="MSGPageBG"><%= GLS_RequiredText %></TD></TR>
<TR><TD class="MSGBox">
  <TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="4" BORDER="0" class="MSGPageBG">
    <%
      If gbUserPostCapable Then %>
               <FORM METHOD="POST" ACTION="MsgPostMessage.asp" NAME="EDITFORM">
               <INPUT TYPE="HIDDEN" NAME="CMD" VALUE="SAVE">
               <INPUT TYPE="HIDDEN" NAME="ForumID" VALUE="<%= lForumID %>">
               <INPUT TYPE="HIDDEN" NAME="ThreadID" VALUE="<%= lThreadID %>">          
               <INPUT TYPE="HIDDEN" NAME="MsgID" VALUE="<%= lMsgID %>">          
               <tr><td valign="top"><span class="MSGFormText"><%= GLS_PostUserNamePrompt %></span></td>
               <td><%= gsUserName <BR><%= GLS_PostNotUserName %></td></tr>
               <% If objErr.Exists("TITLE") Then %>
                   <TR><TD colspan="2"><DIV CLASS="MSGError"><%= objErr.Item("TITLE") %></TD></TR>
               <% End If %>
               <tr><td valign="top"><span class="MSGFormText"><%= OutMatch(lThreadID,0,GLS_Required, ") & GLS_PostTitlePrompt & %></span></td>
               <td><input type="TEXT" name="ThreadTITLE" VALUE="<%= sThreadTitle %>" maxlength="80" size="35"></td></tr>
               <% If objErr.Exists("MESSAGE") Then %>
                   <TR><TD colspan="2"><DIV CLASS="MSGError"><%= objErr.Item("MESSAGE") %></TD></TR>
               <% End If %>
               <tr><td valign="top"><span class="MSGFormText"><%= GLS_Required & GLS_PostMessagePrompt %>
             <% '**icon chooser
             If gbUseIcons Then %>
                 <BR><A HREF="MSGIconMaint.asp" OnClick="MSG_SelectIcon(); return false;"><%= GLS_PostInsertIcon %></A>
                 </span>
             <% End If %>
             </td>
             <td>
             
             <input type="hidden" value="<%= sMessage %>"></td></tr>
           
            <%-- ***Disable autoformat --%>
            <TR><TD>&nbsp;</TD><TD><SPAN CLASS="MSGFormText">"
             <INPUT TYPE="CHECKBOX" VALUE="Y" NAME="NoAutoFormat" <%= OutMatch(bNoAutoFormat,True," CHECKED", ") %>">&nbsp;<%= GLS_PostNoAutoFormat %>
             </TD></TR>"    
               <tr><td>&nbsp;</td><td><input type="submit" class="XcBtn" value="<%= sBtn %>">
         
          <% Else
         
               ShowHTMLFile "MSGHtmlText/MSGPostDenied.htm"
          End If  %>  
    </table>
   
    </TD></TR>
    <TR class="MSGPageBG"><TD>
    <%= ShowNavBar %>
    </TD></TR>
   
    </TABLE>
<% End Sub %>
0
 
LVL 75

Expert Comment

by:Michel Plungjan
ID: 10718565
and change (i forgot a name)

<td><input type="hidden" value="<%= sMessage %>"></td></tr>

to

<input type="hidden" name="idTemporary" value="<%= sMessage %>">
<td>
     <script>
          var oEdit1 = new InnovaEditor("oEdit1");
          oEdit1.scriptPath="../scripts/";
          oEdit1.width="460";
          oEdit1.height="400";
         
          //Specify the icon path (within the script path)
          oEdit1.iconPath="icons1/";
          oEdit1.iconWidth=24;oEdit1.iconHeight=23;
                   
          oEdit1.RENDER();    
          oEdit1.loadHTML(idTemporary.value);
     </script>
  </td></tr>

Michel
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:   The Exchange of informatio…
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question