læse fra til flere .txt filer?

Hejsa

Jeg er lige gået i gang med ASP, og allerede nu opstår
problemerne.

Jeg vil læse til en txt fil på denne måde:
--------------
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/pow3rslave/hp/news1.txt")
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("test1")

' Åbn filen til læsning og Læs linie for linie
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
-------------
det virker fint nok, så vil jeg gerne have den til at læse til en anden .txt fil min ide var at gøre sådan her:
-------------
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/pow3rslave/hp/news1.txt")
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("news1")

' Åbn filen til læsning og Læs linie for linie
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
<h1>Skriv Nyhed:</h1>
<form action='admin.asp' method='post'><textarea name='news1' rows='3' cols='40'></textarea><br><input type='submit' value='Skriv til tekstfil'></form>

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/pow3rslave/hp/date1.txt")
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("date1")

' Åbn filen til læsning og Læs linie for linie
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
<p>Skriv Nyhed:</p>
<form action='admin.asp' method='post'><textarea name='date1' rows='3' cols='40'></textarea><br><input type='submit' value='Skriv til tekstfil'></form>
----------

Kan det ikke lade sig gøre?