filesystemobject og recordsets

jeg har noget kode der skriver ting fra et recordset ned i en txtfil
men det eneste den skriver i filen er: fakttekst
koden kommer her:

Set FileSystemFile = CreateObject("Scripting.FileSystemObject")
FileSystemFile.CreateTextFile "C:\Inetpub\wwwroot\testarea\reg\faktura\" & ordnr & "_" & firmanavn & ".txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set Filesystem = CreateObject("Scripting.FileSystemObject")
Set FilesystemFileContext = Filesystem.OpenTextFile("C:\Inetpub\wwwroot\testarea\reg\faktura\" & ordnr & "_" & firmanavn & ".txt", 2, true)
fakttekst = Fakturatekst
Do While not rs.EOF
fakttekst = fakttekst & VbCrLf
fakttekst = fakttekst & rs("fakturatekst")
rs.MoveNext
Loop
FilesystemFileContext.WriteLine fakttekst
FilesystemFileContext.Close
Set FilesystemFileContext = Nothing
Set FileSystemFile = Nothing
Conn.Close()