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)