--------------Posted in General as well-------------------
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.