<%dim phdim intfileserver.ScriptTimeout = 600ph=server.mappath("/") Sub InsertAllFiles(Path)Set FSO = CreateObject("Scripting.FileSystemObject")on error resume next Set f = FSO.GetFolder(Path)Set fc2 = ...