Jeg giver 100 point til den der så får det til at virke

Ja den skriver det godt nok ud, men den giver fejl når jeg klikker på linket. Jeg har kaldt filen for: fil.asp
Og jeg har ændret stien i linie 16 til mappen hvor jeg har skriverettighed til

<HTML>
<HEAD>
<%
  Set fs = CreateObject("Scripting.FileSystemObject")
  if Request.QueryString.Count() THEN
    Set sletfil = Request.QueryString("fil")
    Set f1 = fs.GetFile(replace(Server.MapPath(sletfil), "%20", " "))
    f1.Delete
  Response.Write "Filen blev slettet"
END IF
%>
    <TITLE>Fil system.</TITLE>
</HEAD>
<BODY>
<%
pPath = Server.MapPath("/")
Set myFolder = fs.GetFolder( pPath )
%>
<TABLE BORDER="1" BGCOLOR="#FFFFFF" BORDERCOLOR="#000000">
  <tr>
    <td><b>Fil Navn:</b></td>
    <td><b>File Type:</b></td>
    <td><b>File St&oslash;rrelse:</b></td>
    <td><b>Slet</slet></td>
  </tr>
  <% For Each fil in myFolder.Files %>
  <tr>
    <td><%=fil.Name%></td>
    <td><%=fil.Type %></td>
    <td><%=fil.Size %> bytes</td>
    <td><a href="fil.asp?fil=<%=fil.Name%>"><%=fil.Name%></a></td>
  </tr>
  <% Next %>
</table>
</BODY>
</HTML>