For Each File in Upload.Files

linkStr = linkStr & "&" & File.Name & "=" & File.Path

FolderName = File.ExtractFolderName

FileName = File.ExtractFileName

ind = Len(FolderName)

LocalDir = docRoot & Upload.Form("olo")

Upload.CreateDirectory LocalDir, True

File.SaveAs LocalDir & "\" & FileName

Next