[ASP] FCKEditor

[HarryL]

Ik zit met een probleem(pje) met de FCKEditor.
Ik heb alles geinstalleerd, tekstueel bewerken gaat allemaal prima.
Alleen het upload/browse gedeelte gaaat niet.

Nu heb ik aardig gegoogled maar kon helaas niks vinden.
De oplossingen die daar aangedragen worden helpen helaas niet.
Ik blijf de error: "XML request error: Internal Server Error (500)" houden.

De oplossing die ze aandragen op http://fckeditor.wikiwikiweb.de/Troubleshooting werkt helaas niet.
Misschien dat jullie mij kunnen helpen, laat me weten wat jullie allemaal moeten hebben
Hieronder een stuk code uit de connector.asp misschien dat jullie daar wat mee kunnen.

code:

<%@ CodePage=65001 Language="VBScript"%>
<%
Option Explicit
%>
<!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2005 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 *      http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 *      http://www.fckeditor.net/
 * 
 * File Name: connector.asp
 *  This is the File Manager Connector for ASP.
 * 
 * File Authors:
 *      Frederico Caldeira Knabben ([e-mail])
-->
<!--#include file="config.asp"-->
<!--#include file="util.asp"-->
<!--#include file="io.asp"-->
<!--#include file="basexml.asp"-->
<!--#include file="commands.asp"-->
<!--#include file="class_upload.asp"-->
<%

If ( ConfigIsEnabled = False ) Then
    SendError 1, "This connector is disabled. Please check the ""editor/filemanager/browser/default/connectors/asp/config.asp"" file"
End If

' Get the "UserFiles" path.
Dim sUserFilesPath

If ( Not IsEmpty( ConfigUserFilesPath ) ) Then
    sUserFilesPath = ConfigUserFilesPath

    If ( Right( sUserFilesPath, 1 ) <> "/" ) Then
        sUserFilesPath = sUserFilesPath & "/"
    End If
Else
    sUserFilesPath = "/UserFiles/"
End If

' Map the "UserFiles" path to a local directory.
Dim sUserFilesDirectory
sUserFilesDirectory = Server.MapPath( sUserFilesPath )

If ( Right( sUserFilesDirectory, 1 ) <> "\" ) Then 
 sUserFilesDirectory = sUserFilesDirectory & "\" 
End If 

DoResponse 

Sub DoResponse() 
 Dim sCommand, sResourceType, sCurrentFolder 
  
 ' Get the main request informaiton. 
 sCommand = Request.QueryString("Command") 
 If ( sCommand = "" ) Then Exit Sub 

 sResourceType = Request.QueryString("Type") 
 If ( sResourceType = "" ) Then Exit Sub 

 sCurrentFolder = Request.QueryString("CurrentFolder") 
 If ( sCurrentFolder = "" ) Then Exit Sub 

 ' Check the current folder syntax (must begin and start with a slash). 
 If ( Right( sCurrentFolder, 1 ) <> "/" ) Then sCurrentFolder = sCurrentFolder & "/" 
 If ( Left( sCurrentFolder, 1 ) <> "/" ) Then sCurrentFolder = "/" & sCurrentFolder 

 ' Check for invalid folder paths (..) 
 If ( InStr( 1, sCurrentFolder, ".." ) <> 0 OR InStr( 1, sResourceType, ".." ) <> 0 ) Then 
  SendError 102, "" 
 End If 

 ' File Upload doesn't have to Return XML, so it must be intercepted before anything. 
 If ( sCommand = "FileUpload" ) Then 
  FileUpload sResourceType, sCurrentFolder 
  Exit Sub 
 End If 

 SetXmlHeaders 
  
 CreateXmlHeader sCommand, sResourceType, sCurrentFolder 

 ' Execute the required command. 
 Select Case sCommand 
  Case "GetFolders" 
   GetFolders sResourceType, sCurrentFolder 
  Case "GetFoldersAndFiles" 
   GetFoldersAndFiles sResourceType, sCurrentFolder 
  Case "CreateFolder" 
   CreateFolder sResourceType, sCurrentFolder 
 End Select 

 CreateXmlFooter 

 Response.End 
End Sub 
%>

[RobIII]

Helaas verlenen wij geen support op 3rd party code. Als je nu zelf nog geprobeerd had wat te debuggen en had aangegeven waar je denkt dat de fout zit... Maar het is niet de bedoeling dat wij 100+ regels code voor je gaan zitten doorkijken en dan maar raden waar de fout zit.

Zet in IE eens de "Friendly HTTP Errors" uit, en zie of je IIS een uitgebreide(re) melding teruggeeft dan je nu krijgt. Kijk eens op welke regel het fout gaat en ga dan aan 't zoeken / debuggen. Dat doen wij niet voor jou.

En anders adviseer ik je contact op te nemen met de makers van het script.

Anyway; dit is niet de bedoeling van PRG en dus gaat dit topic op slot. Ik wil je vriendelijk verzoeken dit ook even door te lezen. Overigens is het niet voor het eerst dat we je daarop wijzen. GoT is geen afhaalbalie van kant-en-klare code en/of oplossingen. De voorgaande mails en zelfs je "GoT Pauze" heeft schijnbaar niet erg geholpen?

[ Voor 11% gewijzigd door RobIII op 12-09-2006 11:38 ]