Permission denied ved skriving til fil

Hva er feil her?

dim fso
dim f
dim filespec
   
Set fso = CreateObject("Scripting.FileSystemObject")
Set filecreate = fso.CreateTextFile(Server.Mappath(strCreated) , True)
filespec = Server.Mappath(strCreated)
Set f = fso.OpenTextFile(filespec,2)

f.WriteLine "V=" &  strv
f.WriteLine "S=" &  strs
f.WriteLine "Konto=" &  strAcct
f.WriteLine "Browser=" &  strAN
f.WriteLine "Fargedybde=" &  strCK
f.WriteLine "RF=" &  strRF
f.WriteLine "Systemspråk=" &  strSL
f.WriteLine "Browser version=" &  strAV
f.WriteLine "Språk=" &  strL
f.WriteLine "Plattform=" &  strPF
f.WriteLine "Side refer=" &  strPG
f.WriteLine "Fargedybde=" &  strCD
f.WriteLine "Oppløsning=" &  strRS
f.WriteLine "Java Enabled=" &  strJE

f.WriteLine "Data=" & strAll

f.Close