<%@ Page language="VB" AutoEventWireup="false" aspCompat="True" validateRequest="False"%> <% '###################################### ' eWebEditor v4.00 - Advanced online web based WYSIWYG HTML editor. ' Copyright (c) 2003-2007 eWebSoft.com ' ' For further information go to http://www.ewebsoft.com/ ' This copyright notice MUST stay intact for use. '###################################### %> <% If InitUpload() = True Then sAction = UCase(Trim(Request.QueryString("action"))) Select Case sAction Case "LOCAL" Call DoCreateNewDir() Call DoLocal() Case "REMOTE" Call DoCreateNewDir() Call DoRemote() Case "SAVE" Call ShowForm() Call DoCreateNewDir() Call DoSave() Case Else Call ShowForm() End Select End If %>