Newsgroup: it.comp.www.asp
Titolo: upload pdf diverso da upload immagini?

*****Premessa: ho fatto casino con l'inserimento del messaggio, chiedo
quindi scusa se compare piů di una volta!******
Un saluto a tutti,
ho un problema con l'upload di file pdf.
Per effettuare gli upload di immagini utilizzo uno script piů volte
comparso anche su questo NG. (postato al fondo, per chiarezza)
Il problema č che se funziona per le immagini, mi restituisce un
errore con l'upload di pdf.
Non pensavo ci fosse differenza tra le due operazioni, ma
evidentemente mi sbagliavo...!
L'errore che mi restituisce č il seguente:
Request object error 'ASP 0104 : 80004005' 
Operation not Allowed 
sulla riga:   RequestBin = Request.BinaryRead(byteCount)
Insomma, sembra che non gli piaccia quel Request.BinaryRead
Possibile??
Grazie mille a tutti per gli aiuti e le idee che mi vorrete dare!!
Sono quasi a un livello di disperazione... :-)
madleine
**********************************************************************
Posto qui il codice:
Dim folder
folder = "pdf/"           'directory sul server con accesso in
scrittura
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
Sub BuildUploadRequest(RequestBin)
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
		Do until (boundaryPos=InstrB(RequestBin,boundary &
getByteString("--")))
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'Get an object name
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
			If  PosFile<>0 AND (PosFile<PosBound) Then
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		UploadControl.Add "Value" , Value	
		UploadRequest.Add name, UploadControl	
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
End Sub
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function
byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount) '-->> Riga dell'errore!!
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
If filename <> "" Then
 
  value = UploadRequest.Item ("blob").Item("Value")
  'Create FileSytemObject Component
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
  'Create and Write to a File
  Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
  For i = 1 to LenB(value)
	  MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
 
  MyFile.Close
End If


ciao
-- 
Kappa [co-mod ICWA]
kappa(at)
webngo.net
www.webngo.net
www.filmscoop.it

 ciao
Grazie mille!!!!
Ora funziona perfettamente!
Ciao!
madleine

 Ora funziona perfettamente!
Prego ;)
