asp作成CSV出力

FileName =  date_to &"_请求明细.csv"

Path = " "&CF_Temp()&FileName

csvdlurl = " "&CF_SetDLCSVPath()&FileName

Set  FSO = Server.CreateObject("Scripting.FileSystemObject")

IF  FSO.FileExists(Path)=True then

      FSO.DeleteFile  Path,true

END IF

SET  TSO = FSO.CreateTextFile(Path,True,False)

IF  Err.Number<>0 then

else

    TSO.WriteLine(strTitle)

    Tso.Close

    SET TSO = nothing

End If