CSV

Hi guys.
I need to know how to read database column names and place them in a CSV file. Here's what I have to create the csv file, but instead of manually putting the headings in like I have below I want to know if I can read them in automatically depending on the SQL statement.

Thanks a lot for your help
Johnny

Code:

---

Function CreateCSVFile()

          strFile = GenFileName() 
        Set fs = Server.CreateObject("Scripting.FileSystemObject")
        Set a = fs.CreateTextFile(server.MapPath(".") & "\" & strFile & ".csv",True)
        If Not oRS.EOF Then
                strtext = chr(34) & "Year" & chr(34) & ","
                strtext = strtext & chr(34) & "Region" & chr(34) & ","
                strtext = strtext & chr(34) & "Sales" & chr(34) & ","
                a.WriteLine(strtext)
                Do Until oRS.EOF
                        For i = 0 To oRS.fields.Count-1
                                strtext = chr(34) & oRS.fields(i) & chr(34) & ","
                                a.Write(strtext)
                        Next
                        a.Writeline()
                        oRS.MoveNext
                Loop
        End If
        a.Close
        Set fs=Nothing       
        Response.Write("Click <A HRef=" & strFile & ".csv>Here</A> to to get CSV file")       
End Function

---

This is in VBScript.