lave linieskift i .WriteLine

Hejsa

Jeg skal udskrive fra en database til en tekstfil.
I tekstfilen må der ikke stå noget i den øverste linie, den skal være tom.
Og så skal der være linieskift efter hver post.

jeg har prøvet således:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("massmail.mdb")
Conn.Open DSN

Dim fs, fname, email, fornavn, efternavn

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fname = fs.CreateTextFile("C:\tekst.txt")

Set rsMail = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From kontakter"
rsMail.Open SQL, Conn

Do While Not rsMail.EOF
fname.WriteLine (rsMail("mail") & "," & rsMail("fornavn") & "," & rsMail("efternavn") & "<br>")
rsMail.MoveNext
Loop
rsMail.Close
Set rsMail = Nothing
fname.Close
Set fname = Nothing
Set fs = Nothing
Conn.Close
Set Conn = Nothing
%>

men i stedet for linieskift står der bare <br> i tekstfilen.

/Mickill