Hi!

 

Just purchased Cute Editor for ASP v. 5.2, installed it on my website, but I get the following error message (read below) - is there anyone who knows what could be wrong? I have not altered anything in the files I got in the package, I have only uploaded them to the correct folders. The same fault message is displayd when I try to access both the sample-file "default.asp" and "simple.asp".

 

Normally when I get this kind of error-message on a page I created myself, I have missed out on something in the code, for example an "end if". Any suggestions on what to do?

 

The page cannot be displayed

There is a problem with the page you are trying to reach and it cannot be displayed.

Please try the following: Click the Refresh button, or try again later. Open the www.jobbaktuellt.se home page, and then look for links to the information you want. HTTP 500.100 - Internal Server Error - ASP error Apache Technical Information (for support personnel) Error Type: Sun ONE ASP VBScript compilation (0x800A03F6) Expected 'End' CuteEditor_Files/include_CuteEditor.asp, line 1194, column 13   Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322)   Page: GET /CuteEditor/default.asp   Time: Tuesday, February 06, 2007, 4:25:06 PM

Please open include_CuteEditor.asp file and find the following code:

 

With objNode.Attributes 
          set objType = .GetNamedItem("type")
       set objName = .GetNamedItem("name")
       set objVisible = .GetNamedItem("Visible") 
       v = "true"             
       If not objVisible is nothing  then
        v = objVisible.Text
       End If
       If not objName is nothing AND lcase(v) <> "false" then 
        if lcase(objName.Text) = lcase(itemname) then         
         If lcase(objType.Text) = "image" then
          dim n,t       
          n = objName.Text 
          set objImgName = .GetNamedItem("imagename")
          If not objImgName is nothing  then
           t = .GetNamedItem("imagename").Text
          else
           t = n        
          End If  
          s =  s & AddToolbarItem(n,ProcessThemeWebPath(t & ".gif"), n,20,20) 
         Else
          Dim objCmd
          set objCmd = .GetNamedItem("command")
          s =  s & AddToolbarDropDown(objName.Text,objCmd.Text)
         End If
        end if 
       End if 
      End With     

 

An change it to:

 

 

      With objNode.Attributes 
          set objType = objNode.GetNamedItem("type")
       set objName = objNode.GetNamedItem("name")
       set objVisible = objNode.GetNamedItem("Visible") 
       v = "true"             
       If not objVisible is nothing  then
        v = objVisible.Text
       End If
       If not objName is nothing AND lcase(v) <> "false" then 
        if lcase(objName.Text) = lcase(itemname) then         
         If lcase(objType.Text) = "image" then
          dim n,t       
          n = objName.Text 
          set objImgName = objNode.GetNamedItem("imagename")
          If not objImgName is nothing  then
           t = objNode.GetNamedItem("imagename").Text
          else
           t = n        
          End If  
          s =  s & AddToolbarItem(n,ProcessThemeWebPath(t & ".gif"), n,20,20) 
         Else
          Dim objCmd
          set objCmd = objNode.GetNamedItem("command")
          s =  s & AddToolbarDropDown(objName.Text,objCmd.Text)
         End If
        end if 
       End if 
      End With  

 

HI adam, thanks for your reply!

 

I tried your example, but got the exact same error message, till says:

 

Error Type:
Sun ONE ASP VBScript compilation (0x800A03F6)
Expected 'End'
CuteEditor_Files/include_CuteEditor.asp, line 1194, column 13

 

So, then I did what I usually do when I get errors - I tried to delete some of the things that cause the error to make sure there are no other parts of the file that is making the error occur - my expierience is that sometimes the asp-server gives the wrong error. With this I mean that it sometimes gives a line (like the line 1194 mentioned above) as where the error is in the file, when it really is somewhere else. This is due to the fact that I am using the CuteEditor on a hosted webserver with SUN ONE ASP on Apache webserver rather then with IIS, this means I can't use localhost to test it, I have to do it online instead.

 

Anyway - I deceded to try to delete the following rows from include_CuteEditor.asp:    

 

Rows: 1192 to 1223: 

--------------------------------

Dim objNode,objType,objName,objImgName,objVisible,v
     For Each objNode in Nodes
      With objNode.Attributes 
          set objType = .GetNamedItem("type")
       set objName = .GetNamedItem("name")
       set objVisible = .GetNamedItem("Visible") 
       v = "true"             
       If not objVisible is nothing  then
        v = objVisible.Text
       End If
       If not objName is nothing AND lcase(v) <> "false" then 
        if lcase(objName.Text) = lcase(itemname) then         
         If lcase(objType.Text) = "image" then
          dim n,t       
          n = objName.Text 
          set objImgName = .GetNamedItem("imagename")
          If not objImgName is nothing  then
           t = .GetNamedItem("imagename").Text
          else
           t = n        
          End If  
          s =  s & AddToolbarItem(n,ProcessThemeWebPath(t & ".gif"), n,20,20) 
         Else
          Dim objCmd
          set objCmd = .GetNamedItem("command")
          s =  s & AddToolbarDropDown(objName.Text,objCmd.Text)
         End If
        end if 
       End if 
      End With      
     Next 
     end if

-------------------------------------

Doing this and uploading the file again, gave me this error message:

 

Error Type:
Sun ONE ASP VBScript compilation (0x800A03F6)
Expected 'End'
CuteEditor_Files/include_CuteEditor.asp, line 1236, column 13

----------------------------------
  For Each objNode in Nodes
   With objNode.Attributes
    Dim objVisible, v
    set objType = .GetNamedItem("type")
    set objName = .GetNamedItem("name")
    set objVisible = .GetNamedItem("Visible")
    v = "true"       
    If not objVisible is nothing  then
     v = objVisible.Text
    End If
    If not objType is nothing AND lcase(v) <> "false" then
     dim disable_toolbarstrings, j,found
     found = "false"
     disable_toolbarstrings = Split(d_list,",")
     for j = 0 to Ubound(disable_toolbarstrings)      
      if (lcase(trim(objType.Text)) = lcase(trim(disable_toolbarstrings(j)))) then
       found = "true"
       Exit for
      else
       If not objName is nothing  then
        if (lcase(trim(.GetNamedItem("name").Text)) = lcase(trim(disable_toolbarstrings(j)))) then
         found = "true"
         Exit for
        End If
       End If       
      end if
     next
     
     dim n,c,w,t     
     if(found = "false") then     
      Select Case lcase(objType.Text)
       case "g_start":
        s =  s &  AddToolbarGroupStart
       case "g_end":
        s =  s &  AddToolbarGroupEnd
       case "separator":
        s =  s &  AddToolbarSeparator
       case "linebreak":
        s =  s &  AddToolbarLineBreak
       case "table":
      '  s =  s &  AddToolbarLineBreak
       case "forecolor":
        s =  s &  AddToolbarForeColor
       case "backcolor":
        s =  s &  AddToolbarBackColor
       case "dropdown":
           If not objName is nothing  then  
         n = .GetNamedItem("name").Text  
         c = .GetNamedItem("command").Text         
         s =  s & AddToolbarDropDown(n,c)
        End if
       case "holder":
      '  s =  s &  AddToolbarLineBreak
       Case "image"
        If not objName is nothing  then 
         n = .GetNamedItem("name").Text 
         set objImgName = .GetNamedItem("imagename")
         If not objImgName is nothing  then
          t = .GetNamedItem("imagename").Text
         else
          t = n        
         End If  
         s =  s & AddToolbarItem(n,ProcessThemeWebPath(t & ".gif"), n,20,20)      
        End if    
       Case else
        s =  s & AddToolbarSeparator
      End Select
     end if
    End If    
   End With
  Next

----------------------------------------------------------------