Upload immagini... Errore su MidB, dipende dal server?

[Igor Baldacci]

Salve a tutti,
il mio problema sembra sia già stato trattato altre volte sui vari forum ASP che ci sono nella rete, ma a quanto pare nessuno ancora riesce a trovare una spiegazione.

Sto parlando dello script che viene utilizzato per fare l’upload delle immagini sul server e che vi allego in fondo per completezza.

Mi sembra di aver capito che lo script non presenta errori ma che piuttosto si comporta in modo strano solo su alcuni server. In particolare, se lo provo in locale su di una macchina dove è installato IIS funziona alla perfezione in altri casi invece mi viene restituito il seguente errore:

VBScript runtime error
Chiamata di routine o argomento non validi: 'MidB'

Questo errore, in particolare mi viene presentato quando utilizzo il programma Dynamic-CD che serve per simulare i server su computer che non montano IIS o PWS.

Non so se qualcuno di voi sa indicarmi dove poter andare a parare perché per me è un vero mistero, soprattutto alla luce del fatto che ho acquistato Dynamic-CD e non posso usarlo!

GRAZIE A TUTTI

Server.ScriptTimeout = 3600
Response.Buffer = TRUE 

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")
		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

[Roby_72]

Prova a cambaire script di upload.
Puoi scegliere tra questo:
http://freeasp.html.it/articoli/view...olo.asp?id=169
oppure facendo una ricerca per l'utente Baol74 e provare il suo ottimo script!

Roby

[Igor Baldacci]

Grazie per il suggerimento.

Proverò sicuramente ad usare gli script che mi indichi, anche se ti confesso che sono un po' sfiduciato...

Ne ho provati anche altri e il problema ritorna, sempre. Secondo me gli scipt sono buoni e forse il problema è nel server. Dynamic-CD simula un server e forse è proprio lì l'inghippo.

Io comunque faccio delle prove con tutti gli script che troverò grazie al tuo suggerimento. Se risolvo te lo faccio sapere sicuramente.

GRAZIE.