Sto usando l'ASP upload di Baol e finchè sono in locale tutto ok, poi però quando uso lo stesso script sul server remoto mi da questo errore:facente riferimento a questo pezzo di codice:Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/ghost/ASPUpload/upload.asp, line 491
Invalid class stringPuò essere che la versione del server remoto sia obsoleta?codice:Private Sub Class_Initialize() Dim tMp InitTime = Timer() '*** Creazione Oggetti **** [coloer=red]Set Stream = Server.CreateObject("ADODB.Stream")[/red] Set Rs = Server.CreateObject("ADODB.Recordset") Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Form = Server.CreateObject("Scripting.Dictionary") Form.CompareMode = 1 Rs.Fields.Append "sBinary" , 201, -1 Rs.Fields.Append "bBinary" , 205,-1 Rs.Open '*** Impostazione Variabili **** Server.ScriptTimeout = 500 Version = "3.1.1" Autore = "Lorenzo Abbati - lorenzomail@tiscalinet.it" WebServerFP = Request.ServerVariables("APPL_PHYSICAL_PATH") iTotalBytes = Request.TotalBytes LogDelimiter = "|" iPath = "" CurrentPath = GetCurrentPath() iLogFolder = CurrentPath & "Logs\" iTempFolder = CurrentPath & "UploadTempFolder\" PathInclude = CurrentPath & "include\" iAddInformationToLog = "" LogName = Replace(Date(),"/","-") & ".log" IsDataLoad = False '*** Impostazioni Default Parametri Utente **** OverWrite = False AutoRename = True EnabledLog = False IsMultipart = False EnabledImageSize = True EnabledAspUpload = False LoadFilesInForm = True FormValuesDelimiter = ", " end sub

Rispondi quotando