Ok, I'm using 7host.com, and I keep getting errors on this ASP code:

Code:
<html>
<head>
<title>Welcome</title>
</head>
<body>
hi, currently stored values are:

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8

set fso = server.CreateObject("Scripting.FileSystemObject")
set File = fso.GetFile("D:/user/kenasp/root/storage.txt") 
set ts = File.OpenAsTextStream(ForReading, -2)

Do While not ts.AtEndOfStream
     myText = myText & ts.ReadLine & vbCrLf
Loop

Response.Write(myText)
%>
<form action = "index.asp">
<input type = "text" name = "text">
<input type = "submit" name = "input" value = "Ok">
</form>
<%
Set FileName = "D:/user/kenasp/root/storage.txt"

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ConfigFile = Server.MapPath(FileName)
Set TheFile = fso.OpenTextFile(ConfigFile, 2)

TheFile.write Request.QueryString("text") & vbCrLf
TheFile.Close
%>
</body>
</html>
I even setup a default storage.txt file. can anyone help out? I'm totally at a loss for what's wrong.