Problem with code....

[_Dark-Hunter_]

Can anyone tell me whats wrong with my code here? Im trying to use a form to post new topics to the top of one of my files,


<%
Dim strSubject
Dim strBody
Dim fso, f
Dim fsof, ff
Dim filenumber
Dim strdata
strSubject = Request.form("inpSubject")
strBody = Request.form("inpBody")
Set fsof = CreateObject("Scripting.FileSystemObject")
filenumber = "C:\windows\desktop\test.htm"
Set ff = fso.OpenTextFile(filenumber, 1)
strdata = ff.ReadAll
ff.Close
Set fso = CreateObject("Scripting.FileSystemObject")
filenumber = "C:\windows\desktop\test.htm"
Set f = fso.OpenTextFile(filenumber, 8)
f.WriteLine "<FONT COLOR=#87CEFA SIZE=4>"
f.WriteLine strSubject
f.WriteLine "</FONT><BR>"
f.WriteLine "<FONT COLOR=#FFFFFF SIZE=2>"
f.WriteLine strBody
f.WriteLine "<BR><P><BR>"
f.WriteLine strData
f.Close
%>

[_Dark-Hunter_]

I tried that and im still getting same problem... im getting 'input past end of file' Can anyone help me... I've been trying to fix this for like 3 days =\