Permission Denied

På följande kod:

<%
	action = Request.Querystring("action")

	If action = "edit" Then
	vad = "../" & Request.Querystring("vad")
	sokvag = Server.MapPath("" & vad & "")

	Dim FSO, textfil, innehall
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set textfil = FSO.OpenTextFile("" & sokvag & "")
	innehall = textfil.ReadAll
	textfil.Close

%>
<br>
<font face="Verdana" size="2">Du har valt att ändra filen <%=vad%></font>
<form action="index.asp?meny=edit&visa=edit&action=save&vadfil=<%=sokvag%>" method="post">
<textarea name="text" rows="10" cols="60" wrap="no"><%=innehall%></textarea><br>
<input type="submit" value="Lagra text!">
</form>
<% End If 

	If action = "save" Then
	vadfil = Request.Querystring("vadfil")

	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set textfil = FSO.CreateTextFile("" & vadfil & "", True)
	textfil.Write Request.Form("text")
	textfil.Close

	Response.Write "<font face=""Verdana"" size=""2"">Filen har ändrats<br><a href=""index.asp?meny=edit&visa=edit_main"">Tillbaka...</a></font>"
	End If

%>

får jag följande fel:

Microsoft VBScript runtime error '800a0046'

Permission denied

/ny/admin/edit.txt, line 28

vad är det som inte stämmer?