شی XMLHTTPREQUEST در اکسس

Sub WebReq()

link = "http://it.finance.yahoo.com/q?s=^FCHI&ql=10" & Str(Rnd())
Set htm = CreateObject("htmlFile")
Dim objHttp

    Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
    objHttp.Open "GET", link, False

    objHttp.Send
    htm.body.innerhtml = objHttp.responsetext
    Set objHttp = Nothing
End Sub

امروزه ورزش، تحرک و تغذیه سالم می‌تواند از بروز بسیاری از بیماری‌ها به‌ویژه سکته قلبی و مغزی جلوگیری کند. یکی از مهم‌ترین عوامل سکته مغزی یا قلبی در سنین پایین تغذیه نامناسب، فشار خون بالا و مصرف سیگار و دخانیات است. کیفیت جدار عروقی نقش مهمی در طول عمر آنها و مقاومت‌شان دارد. اگر مواد غذایی نامناسب و غیرتازه مصرف کنیم این جدار عروقی دچار انسداد و پارگی می‌شود.

مصرف‌ ماهی و غذاهای دریایی به همراه میوه‌های سرشار از ویتامین و سبزیجات تازه، نقش موثری در طول افزایش عمر دارد. استرس، عصبانیت، فشارهای روحی و عصبی موجب ضعف در سیستم دفاعی بدن می‌شود. توصیه می‌کنم از این عوامل مخرب دوری کنیم، ورزش و تحرک روزانه را جزو مهم زندگی خود محسوب کرده و معاینات دوره‌ای به‌ویژه از دهه چهارم زندگی به بعد را فراموش نکنیم.