creating a csv file in asp

I tried all the solutions and could only get the one by jkwasson to work on my application. even with this I have encountered a problem I cannot seem to fix. The code runs then opens the .xls file but I find that each successive row seems to concatenate on the row before (eg) excel row 1 =table row 1, Excel row 2 = table row 1 + row 2. This continues until the final Excel row contains all the table rows consecutively. I cannot seem to fix the code to return only one Excel row per table row....

My code:

<%
Session("FileName")
FileName= "thisfile001.csv"
%>
<%
set oRS = Server.CreateObject("ADODB.Recordset")
oRS.ActiveConnection = MM_Honda_STRING
oRS.Source = "SELECT DISTINCT *  FROM dbo.countries"
oRS.CursorType = 0
oRS.CursorLocation = 2
oRS.LockType = 3
oRS.Open()
oRS_numRows = 0
%>
<%
dim oFSO, oFile,oField
dim strOutput

set oFSO = server.createobject ("scripting.filesystemobject")
set oFile = oFSO.createtextfile("D:\websites\tidyco\portals.tidyco\supplier\" & FileName,true)
do while not oRS.eof
    for each oField in oRS.fields
        strOutput = strOutput & oField.value & ","
    next
    'remove the last comma from the line before continuing
strOutput = left(strOutput,len(strOutput)-1)
    oFile.writeline strOutput
    oRS.movenext
Loop

oFile.close
set oFile = nothing
set oFSO = nothing
'clean up your recordset and connection objects
%>
<%
oRS.Close()
%>
<%
Response.Redirect(FileName)
%>

I finally saw the reason. each time it loops the recordset, oField.value variable is given a new value which is added to the stored variable strOutput which has the value of the previous transaction. All that is required is to clear this variable value to "" just before each loop takes place!  so modified code is:

<%
Session("FileName")
FileName= "thisfile001.csv"
%>
<%
set oRS = Server.CreateObject("ADODB.Recordset")
oRS.ActiveConnection = MM_Honda_STRING
oRS.Source = "SELECT DISTINCT *  FROM dbo.countries"
oRS.CursorType = 0
oRS.CursorLocation = 2
oRS.LockType = 3
oRS.Open()
oRS_numRows = 0
%>
<%
dim oFSO, oFile,oField
dim strOutput

set oFSO = server.createobject ("scripting.filesystemobject")
set oFile = oFSO.createtextfile("D:\websites\tidyco\portals.tidyco\supplier\" & FileName,true)
do while not oRS.eof
      strOutput = ""      'this is the new line which clears the value before getting the next record!
    for each oField in oRS.fields
        strOutput = strOutput & oField.value & ","
    next
    'remove the last comma from the line before continuing
strOutput = left(strOutput,len(strOutput)-1)
    oFile.writeline strOutput
    oRS.movenext
Loop

oFile.close
set oFile = nothing
set oFSO = nothing
'clean up your recordset and connection objects
%>
<%
oRS.Close()
%>
<%
Response.Redirect(FileName)
%>