ClientFolder = "C:\inetpub\Build2Trade\siteengine\ClientData\" & session("VOAccountID")
    Session("ClientFolder") = ClientFolder
    dim fs
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    if fs.FolderExists(ClientFolder)=true then
      'response.write("Folder c:\asp exists!")
    else
      response.write("Folder c:\asp does not exist!")
      set f=fs.CreateFolder(ClientFolder)
      set f=fs.CreateFolder(ClientFolder & "\images")
      set f=fs.CreateFolder(ClientFolder & "\_thumbs")

        set f=nothing
    end if
    set fs=nothing