Re: Installation problems - error message "Expected 'End'"

  •  02-06-2007, 11:57 AM

    Re: Installation problems - error message "Expected 'End'"

    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  
     

    asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx
    Web Messenger: http://cutesoft.net/Web-Messenger/default.aspx
    asp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspx
    asp wysiwyg html editor: http://cutesoft.net/ASP
    asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx
    Live Support: http://cutesoft.net/live-support/default.aspx

View Complete Thread