su questio siti ho lo stesso errore

Permission denied

/Default.asp, line 85


http://www.aurelwireless.com
http://www.aurelautomation.com
codice:
<%
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("fpdb/conta.txt")
Set a = fs.OpenTextFile(path)
conta = a.ReadLine
'Controllo gli aggiornamenti di pagina
If Session("conta") = "" then
  Session("conta") = conta
  'Incremento di 1 il valore presente nel file di testo
  conta = conta + 1
  a.close
  'Scrivo sul file di testo il nuovo valore
Set a = fs.CreateTextFile(path, True)[COLOR=red]
a.WriteLine(conta)
End If
a.Close
%>