<%
sub Write_CSV_From_Recordset( RS )

if RS.EOF then

exit sub

end if

dim RX
set RX = new RegExp
RX.Pattern = "\r|\n|,|"""

dim i
dim Field
dim Separator


Separator = ""
for i = 0 to RS.Fields.Count - 1
Field = RS.Fields( i ).Name
if RX.Test( Field ) then
'

Field = """" & Replace( Field, """", """""" ) & """"
end if
Response.Write Separator & Field
Separator = ","
next
Response.Write vbNewLine


do until RS.EOF
Separator = ""
for i = 0 to RS.Fields.Count - 1

Field = RS.Fields( i ).Value & ""
if RX.Test( Field ) then
Field = """" & Replace( Field, """", """""" ) & """"
end if
Response.Write Separator & Field
Separator = ","
next
Response.Write vbNewLine
RS.MoveNext
loop

end sub


' BAĞLANTI NESNELERİ
Response.AddHeader "Content-Disposition", "attachment;filename=export.csv"

Write_CSV_From_Recordset objrs %>
<% end if %>
<% end if %>