15 messaggi dal 13 aprile 2005
ciao a tutti avrei un problemino con il codice per uppare immagini in asp: non riesco a farlo andare in remoto, sul server locale va ma appena lo carico mi da questo errore:
Microsoft VBScript runtime error '800a004c'

Path not found

/outputFile.asp, line 22

lo stesso errore lo da in locale quando inserisco una directory inesistente. posto di seguito il codice:

<%
strAzione = Trim(Request.QueryString("action"))
strRisultato = Trim(Request.QueryString("result"))
strCausa = Trim(Request.QueryString("cause"))
strPercorso = Trim(Request.Form("percorso"))
strDocumento = Trim(Request.QueryString("document"))
If strPercorso = "" then
strPercorso = "public/immagini/"
End If
%>

se al posto di public/immagini/ inserisco c:\inetpub\wwwroot\public\immagini\ va tutto perche??

il codice precedente fa riferimento al codice seguente:

<!-- #include file="upload.asp" -->
<%
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
percorso = UploadRequest.Item("percorso").Item("Value")
pagina = UploadRequest.Item("pagina").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

If instr(contentType,"image") > 0 Then
value = UploadRequest.Item("blob").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(percorso & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close

Set MyFile = Nothing
Set ScriptObject = Nothing
Response.Redirect pagina & "?action=upload&result=OK&document=" & filename & "&percorso=" & percorso
Response.End ()
Else
Response.Redirect pagina & "?action=upload&result=failed&cause=extension"
Response.End()
End If
%>

ed al file upload.asp che funziona, tutti e tre i file sono stati caricati in remoto nella root principale dovè l'errore?? Grazie a tutti
9 messaggi dal 09 luglio 2002
"sankyu" ha scritto
ciao a tutti avrei un problemino con il codice per uppare immagini in asp:
non riesco a farlo andare in remoto, sul server locale va ma appena
lo
carico mi da questo errore:
Microsoft VBScript runtime error '800a004c'
>
Path not found
>
/outputFile.asp, line 22
>
lo stesso errore lo da in locale quando inserisco una directory
inesistente. posto di seguito il codice:

La risposta te la sei data da solo :)

Set MyFile = ScriptObject.CreateTextFile(percorso & filename)
diventa
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(percorso &
filename))

visuddhi
15 messaggi dal 13 aprile 2005
già provato non funziona dà lo stesso problema
15 messaggi dal 13 aprile 2005
ora va con server.mappath() e sostituendo public/immagini con ./public/immagini grazie!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.