Scripting.Dictionary Hjælp!!

Jeg har et stort problem med en af mine sider.
Siden loader en liste ind med links fra en TXT fil ind i et array og viser den på stærmen hvorefter jeg så skal have mulighed for at slette enkelte elementer men idet jeg loader siden ind igen indeholder mit array ingen elementer.

Hvordan kan jeg få læst dette problem?

Her er koden. \"list,asp\"

<html>
<body>

<h1 align=\"center\"><b>

Files in the Download list </b></h1>
<div align=\"center\">
  <center>
<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" style=\"border-style: ridge; border-width: 1\">
  <tr>
    <td width=\"50%\" align=\"center\"><b>URL:</b></td>
    <td width=\"50%\" align=\"center\"><b>Save to:</b></td>
    <td width=\"50%\" align=\"center\">Delete</td>
  </tr>

<%
ID = Request(\"ID\")
dim d
set d = CreateObject(\"Scripting.Dictionary\")
ForReading  = 1
ForWriting  = 2
ForAppending = 8

if ID = \"\" Then
Set fso  = CreateObject(\"Scripting.FileSystemObject\")
Set f    = fso.OpenTextFile(\"c:\\temp\\down\\downloadlist.txt\", ForReading, True)
i=0
f.readline
do while not f.atendofstream
  Temp = f.readline
  d.Add i, Temp   
  \'MyString = Split(Temp, \"|\", -1, 1)
i=i+1
loop
Set f  = nothing
Set fso = nothing
For i = 0 To d.Count
%>
<tr>
    <td width=\"50%\"><%=d(i)%></td>
    <td width=\"50%\"><%=d(i)%></td>
    <td width=\"50%\"><a href=\"list.asp?ID=<%=i%>\">Delete</a></td>
  </tr>
<%
Next
end if
%>

<%
If ID <> \"\" Then
For i = 0 To d.Count
\'MyString = Split(d(i), \"|\", -1, 1)

%>

<tr>
    <td width=\"50%\">1<%=d(i)%></td>
    <td width=\"50%\">1<%=d(i)%></td>
    <td width=\"50%\"><a href=\"list.asp?ID=<%=i%>\">1Delete</a></td>
  </tr>
<%
Next
end if
%>
</table>
  </center>
</div>




<p align=\"center\">
<%Response.Write \"<br>Number Files to Download= \" & i & \"<br>\"
%>
<p align=\"center\">
<br><br><a href=\"default.asp\">
Back to Default</a>

</body>
</html>