ObjFSO.GetFolder - Acesso negado

[sheridan 0]

quando executo a pag ASP de envio de e-mail, o seguinte erro ocorre

 

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

/sac/adm_mail_envio_html.asp, line 44

 

 

a linha do erro é a seguinte

email_pers = Request("email_pers")+".httm"

 

'path e-mail html

dim ObjFSO

dim path

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

Pat = Server.MapPath("html")

Set path = ObjFSO.GetFolder(Pat)

 

'upload html

Set Objeto = CreateObject ("Scripting.FileSystemObject")

set GV = Objeto.OpenTextFile(path &email_per,1,true,false)

HTML_Original = GV.ReadAll

GV.close

Set Objeto = nothing

 

alguma config do IIS que preciso arrumar??? ou montei o comando errado? :rolleyes:

[Salgado 4]

Já verificou permissões?

[sheridan 0]

do IIS??, está READ/WRITE

[sheridan 0]

acredito que não seja permissão, eu coloquei o path físico e funcionou.ou a variavel não está com o valor que eu imagino (email_pers) ou ainda tem erro de sintaxe

[Salgado 4]

Já tentou colocar:

set GV = Objeto.OpenTextFile(path &"\"&email_per,1,true,false)

[sheridan 0]

já descobri o problema,a variável email_pers está vaziapisada na bola ;) valeu pela força!