[Resolvido] Erro ao criar pasta no servidor

Olá,

"Terminei" o sisteminha la de download de arquivos, fiquei todo feliz, testei, mostrei pra todo mundo, ganhei os parabéns e tal e só faltava mostrar pro cliente. Como sou acostumado com flash ja falei "Não liga ainda que vou testar no servidor", dai veio o problema, ele cria usuários, loga, tudo uma maravilha, porem quando vou subir um arquivo eu crio uma pasta antes, só que o servidor não ta criando a pasta, ele da o seguinte erro:

Microsoft JET Database Engine error '800a0046'

No current record.

/cadastrar_arquivo.asp, line 36

Sendo que o script é esse aqui:

diretorio = year(now()) & "-" & month(now()) & "-" & day(now()) & "-" & hour(now()) & "-" & minute(now()) & "-" & second(now())

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(Server.MapPath( diretorio ) ) Then

Else

' Cria a pasta caso ela não exista
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
objFS.CreateFolder(Server.MapPath( "Downloads/" & diretorio ) ) 'Essa é a linha 36
Set objFS = Nothing

path = "Downloads/" & diretorio & "/"

End if
Set objFS = Nothing
Ja dei permissão de pasta 777 na pasta Downloads, o que ele faz ai acima é criar o nome da pasta sendo a data atual pra não ter nome de pasta repetida, aquele velho "anomesdiahoraminutossegundos" só que na hora de mandar o arquivo da esse erro, alguem tem alguma idéia? Não achei referencia sobre No current record. nem no google

abraço,

Carneirinho