não entendi mais acho que é soi colocar mais replaces.. Set objFile = objFSO.OpenTextFile (Server.MapPath("email_divulgacao.htm") , 1, true )
strFile = objFile.ReadAll
objFile.Close
Set objFSO = nothing
Response.Write("nomeIndica")
Response.Write("nome")
conteudo=strFile1
EmailDivulgacao = Replace(conteudo, "##nomeAmigo##", Amigo1)
EmailDivulgacao2 = Replace(conteudo, "##nomeAssin##", Amigo2)