Cannot save all data to text file

[jodleren]

Hi all

I found this in this ng (I am kind of new to ASP/VB):

'***************** test
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Inetpub\wwwroot\sonnich2.htm",
True)
MyFile.WriteLine("This is a test.")
MyFile.Write(ssss)
MyFile.Write(oMail.HTMLBody)
MyFile.Write(sError)
MyFile.Close

It saves the first and last strinf (sError), but not the others.

The HTLBody is built as below, and the ssss it taken from that.
What goes wrong here?

with oMail....
ssss=.HTMLbody
next // *** end of database loop
if sError<>"" then
.HTMLbody=.HTMLbody & "<p><font color=""red"">" & sError & "</
font></p>"
end if
.HTMLbody=.HTMLbody & "</body></html>"

WBR
Sonnich