download de arquivo txt

Olá Galera,é o seguinte eu tenho um script aqui para fazer o download de 3 arquivos txt.Eu tenho que gerar 3 txts e fazer o download dos 3 em unico link.eu fiz aqui pra um tal e ta funcionando normal, mas eu gostaria de fazer o download de 3!Olha meu codigo pra fazer download de um arquivo:

Response.AddHeader "Content-Disposition","attachment;filename=" & Str_Nome_Arquivo Const adTypeBinary = 1 Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary 'determina a leitura binária do arquivo objStream.LoadFromFile "pasta\" & Str_Nome_Arquivo Response.BinaryWrite objStream.Read ' Imprime utilizando binarywrite objStream.Close Set objStream = Nothing

Alguem sabe como resolver isso?Obrigado desde ja!Marcelinho