Problema upload

[Futurdesign]

Ciao a tutti. Ho scaricato il codice asp per upload dal vademecum aruba.
Funziona al 100%.
L'unico problema e che vorrei fare un controllo sul byteCount perchè in pratica se il form viene inviato vuoto, mi restituisce l'errore: Patch not found.

Questo è il codice:

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
Server.ScriptTimeout = 300
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
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,"\"))
value = UploadRequest.Item("blob").Item("Value")


'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File la seconda riga verrà sostituita set
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
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

Adesso creando un if byteCount = 0 then
response.write("campo form vuoto").
Il fatto è che così facendo mi ritorna sempre la pagina d'errore.

Che me lo date uno sguardo gentilmente?
Grazie

[michele.santoro]

Come direbbe qualcuno ... complimenti per il titolo, leggi il regolamento ...
Prova a fare così:

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
Server.ScriptTimeout = 300
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
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,"\"))
value = UploadRequest.Item("blob").Item("Value")

IF value<>"" then

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File la seconda riga verrà sostituita set
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
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

Else
response.redirect "tua_pagina.asp"
end if

dovrebbe funzionare!

[Futurdesign]

Funziona Grazie!
Scusate regolamento letto!

[michele.santoro]

Bene!
La prossima volta tieni presente il regolamento.