Pessoal consegui com que parasse de dar o erro.
ta fazendo o registro, porem não esta criando o arquivo na pasta de destino
como fazer para que seja criado o arquivo ?
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to Len(foto1)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
esta sendo exibido a seguinte mensagem:
Erro de tempo de execução do Microsoft VBScript (0x800A0046)
Permissão negada
/VISTEON/Painel_de_controle/salvaagenda.asp, line 99
linha 99
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
eu dei todas as permissoes possiveis, mas continua dizendo que nao tem permisao.
por que?