Daten in ein csv-File laden

[franz]

Hi Leute!

Ich habe folögendes Problem. Mit dem beiliegenden Script versuche ich Daten von einer Oracle-DB in ein csv-File zu bekommen. Dieses Script habe ich aus dem Internet von der Seite http://www.devtrain.de/news.aspx?artnr=506
Doch ich bekomme immer eine Fehlermeldung und weiß nicht wieso, die Zeile die ich als Fehler bekomme habe ich mit *** markiert.

Sub ExportToCSV(ConnString,SQLString,FileName)
Set Cn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

Conn.Open ConnString
RS.Open SQLString, Conn

AnzahlSpalten = RS.Fields.Count - 1
Set oTS = oFSO.CreateTextFile("filename", True)
i = 0
strWertZeile = ""
For i = 0 To AnzahlSpalten

strWertZeile = strWertZeile & """" & RS.Fields(i).Name & ""","
Next

oTS.WriteLine strWertZeile *******Fehlerzeile*************

Do while RS.EOF
   i = 0
   strWertZeile = ""
   For i = 0 To AnzahlSpalten
   strWertZeile = strWertZeile & """" & RS.Fields(i) & ""","
     Next
       RS.MoveNext
       strWertZeile = Left(strWertZeile, Len(strWertZeile)- 1)
       oTS.WriteLine strWertZeile
 Loop

oTS.Close
 Set RS = Nothing
 Set Conn = Nothing
 Set oFSO = Nothing
 
end sub

Danke