We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

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

Onlinetracker
on
Medium Priority
957 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.
Comment
Watch Question

Michel PlungjanIT Expert
CERTIFIED EXPERT
Top Expert 2009

Commented:
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
IT Expert
CERTIFIED EXPERT
Top Expert 2009
Commented:
Unlock this solution with a free trial preview.
(No credit card required)
Get Preview
Michel PlungjanIT Expert
CERTIFIED EXPERT
Top Expert 2009

Commented:
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
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a free trial preview!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.