creare file csv

[robbe2000]

ciao a tutti avrei bisogno di creare un file csv ma non ricordo bene i vari passaggi.

'setto il percorso corretto
strPath_Prof = server.mappath(".") & percorso


Dim objFso, objFile
Set objFso=Server.CreateObject("scripting.FileSystemOb ject")


If objFso.FileExists(strPath_Prof) then
objFso.DeleteFile strPath_Prof,true
end if




objFso.CreateTextFile (strPath_Prof)
Set Ogg = objFso.GetFile (strPath_Prof)
Set OggText = Ogg.OpenAsTextStream(2)


Riga = " Cognome; Nome; Codice fiscale; Scuola Iscrizione"
OggText.WriteLine Riga

'ripeto le ultime due righe per ogni record presente nel db.
Dopo cosa devo fare per salvare questo documento?

[optime]

ObjFile.Close
set ObjFile= Nothing
set ObjFso = Nothing