Problem with code....

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,

Code:

---

<%
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
%>

---

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 =\