소스임...
<%
        '저장 파일 이름
    fname = request.querystring("fname")

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.CreateTextFile(fname, True)

    On Error Resume Next

    set dbconn=createobject("adodb.connection")
    dbconn.open  Session("DSNString")
    
    set objrs=createobject("adodb.recordset")
'    Server.ScriptTimeOut = 120

    '쿼리
    sql = "select BTS_ID,PCX_ID,BSC_NO,BTS_NO,BTS_NAME,CLUSTER_NAME,ADDR_PROV,ADDR_SI,ADDR_GU,ADDR_DONG,Replace(ADDR_ADDR,',',' '),BLD_NAME,FA_COUNT,SECTOR_COUNT,PN_A,PN_B,PN_G,BTS_TYPE,LATITUDE,LONGITUDE,BTS_MAKER,ANGLE_A,ANGLE_B,ANGLE_G,Replace(PRIVATE_LINE,',',' '),SID "
           sql = sql + " from ktfbts where substring(ltrim(str(bts_dept)),1,1) = '1' "

    '컬럼 명
    tf.write ("BTS_ID,PCX_ID,BSC_NO,BTS_NO,BTS_NAME,CLUSTER_NAME,ADDR_PROV,ADDR_SI,ADDR_GU,ADDR_DONG,ADDR_ADDR,BLD_NAME,FA_COUNT,SECTOR_COUNT,PN_A,PN_B,PN_G,BTS_TYPE,LATITUDE,LONGITUDE,BTS_MAKER,ANGLE_A,ANGLE_B,ANGLE_G,PRIVATE_LINE,SID")
    tf.writeline("")

    objrs.open sql ,dbconn,0,1,adcmdtext
    
    '결과를 텍스트 파일로 입력      
        do while (not objrs.eof)
                tf.write (objrs(0) & "," & objrs(1) & "," & objrs(2) & "," & objrs(3) & "," & objrs(4) & "," & objrs(5) & "," & objrs(6) & "," & objrs(7) & "," & objrs(8) & "," & objrs(9) & ", "  )
                tf.write (objrs(10) & " ," & objrs(11) & "," & objrs(12) & "," & objrs(13) & "," & objrs(14) & "," & objrs(15) & "," & objrs(16) & "," & objrs(17) & ", " & objrs(18) & " , " & objrs(19) & " ," )
                tf.write (objrs(20) & "," & objrs(21) & "," & objrs(22) & "," & objrs(23) & "," & objrs(24) & "," & objrs(25) )
            tf.writeline("")
                objrs.movenext
    loop
    objrs.close
        'response.Redirect fname

        response.write "<a href=" & fname & ">저장"

%>