ObjFSO.GetFolder - Acesso negado

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: