no carica solo campi di tipo file

eccoti lo script <%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest,link
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
'Content-Type è il tipo di file
filepathname = UploadRequest.Item("blob").Item("FileName")
'File path name è il percorso sul client
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

'Filename è il nome del file
value = UploadRequest.Item("blob").Item("Value")

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

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Response.write("Nome File="&Left(Server.mappath(Request.ServerVariables ("PATH_INFO")),pathEnd) & "../public/" & filename&";
")
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & "../public/" & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>