>#define CRLF CHR(13)+CHR(10) > > CASE m.FileType = 'TXT' > Response.AddHeader("Content-Type", "application/notepad") > Response.AddHeader("Content-Disposition", "attachment; filename=notepad.txt") > SET TEXTMERGE ON > cHtmlOutput="" > TEXT TO cHtmlOutput NOSHOW ADDITIVE > <<m.ColumnNames>> > ENDTEXT > SELECT crsTestDownloads > SCAN > TEXT TO cHtmlOutput NOSHOW ADDITIVE > <<CRLF>> > ENDTEXT > FOR i = 1 TO FCOUNT() > IF &FieldList > m.FieldValue = TRANSFORM(EVAL(FIELD(i))) > TEXT TO cHtmlOutput NOSHOW ADDITIVE > <<m.FieldValue>> > ENDTEXT > ENDIF > ENDFOR > TEXT TO cHtmlOutput NOSHOW ADDITIVE > <<CRLF>> > ENDTEXT > ENDSCAN > SET TEXTMERGE OFF > Response.Write(cHtmlOutput) >>
>> CASE m.FileType = 'TXT' >> Response.AddHeader("Content-Type", "application/notepad") >> Response.AddHeader("Content-Disposition", "attachment; filename=notepad.txt") >> SET TEXTMERGE ON >> cHtmlOutput="" >> TEXT TO cHtmlOutput NOSHOW ADDITIVE >> <<m.ColumnNames>> >> ENDTEXT >> SELECT crsTestDownloads >> SCAN >> TEXT TO cHtmlOutput NOSHOW ADDITIVE >> <<CHR(13)>> >> ENDTEXT >> FOR i = 1 TO FCOUNT() >> IF &FieldList >> m.FieldValue = TRANSFORM(EVAL(FIELD(i))) >> TEXT TO cHtmlOutput NOSHOW ADDITIVE >> <<m.FieldValue>> >> ENDTEXT >> ENDIF >> ENDFOR >> TEXT TO cHtmlOutput NOSHOW ADDITIVE >> <<CHR(13)>> >> ENDTEXT >> ENDSCAN >> SET TEXTMERGE OFF >> Response.Write(cHtmlOutput) >>