Erro:
Microsoft VBScript runtime error '800a0046'
Permission denied
/fundacaocoppetec/website/script/FctCadFisicaConfirma.asp, line 410
Código da linha 410 :
Set fso = CreateObject("Scripting.FileSystemObject")
CaminhoDirVisa = Application("CaminhoDirVisa") & "requests\"
If not fso.FolderExists(CaminhoDirVisa) Then
Set diretorio = fso.CreateFolder(CaminhoDirVisa)
End If
Set arquivo = fso.CreateTextFile(CaminhoDirVisa & lIntTid &".xml", True)
arquivo.WriteLine("<MESSAGE><PRICE>"&total&"</PRICE><AUTHENTTYPE>"& lStrAuthType &"</AUTHENTTYPE></MESSAGE>")
arquivo.Close
Set arquivo = Nothing
Set fso = Nothing