| Home | Search | Articles | Contact Us View Cart | Checkout
" ' ##### Error message that will be displayed if not items etc ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master" ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") xmlHttp.Open "GET", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = False xmlDOM.validateOnParse = False xmlDom.resolveExternals = False If not xmlDOM.LoadXml(RSSXML) Then ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS RSSItemsCount = RSSItems.Length-1 ' if not .. entries, then try to get .. if RSSItemsCount = -1 Then Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS RSSItemsCount = RSSItems.Length-1 End If Set xmlDOM = Nothing ' clear XML ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) ' fix for the issue when a description from a previous item ' is used if current item description is empty provided by George Sexton RSSdescription=" " RSSCommentsLink=" " for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" If child.Attributes.length>0 Then RSSLink = child.GetAttribute("href") if (RSSLink <> "") Then if child.GetAttribute("rel") <> "alternate" Then RSSLink = "" End If End If End If ' if has attributes If RSSLink = "" Then RSSlink = child.text End If case "description" RSSdescription = child.text case "content" ' atom format RSSdescription = child.text case "published"' atom format RSSDate = child.text case "pubdate" RSSDate = child.text case "comments" RSSCommentsLink = child.text case "category" Set CategoryItems = RSSItem.getElementsByTagName("category") RSSCategory = "" for each categoryitem in CategoryItems if RSSCategory <> "" Then RSSCategory = RSSCategory & ", " End If RSSCategory = RSSCategory & categoryitem.text Next End Select next ' now check filter If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this for use in on-the-fly output %>

"Articles on Scientific Research to Train Your Body Mind & Spirit to enjoy a Healthy Life"


Browse | Alternative Medicine | Aromatherapy | Ayurvedic | GlycoNutrients | Herbal Home Remedies | Holistic Healing | Magnetic Therapy | Mind Studies | Science Research | Self Help | Spirituality and Healing | Stem Cell Research
<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2008 (c) www.Bytescout.com ' version 1.27, 17 August 2008 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://www.sciam.com/xml/sciam.xml" ' ##### max number of displayed items ##### MaxNumberOfItems = 7 ' ##### Main template constants MainTemplateHeader = "" MainTemplateFooter = "
" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ' ##### {DATE} will be replaced with item date and time ' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog) ' ##### {CATEGORY} will be replaced with item category ItemTemplate = "

{TITLE}
{DESCRIPTION}
Body (Physical Health)
Mind (Mental Health)
Spirit (Spiritual Health)

Aromatherapy
Therapeutic Grade
Single Species Organic
Pure Essential Oils

30 Day Body Detox
Hormonal Balance
Liquid Ionic Colloidal Minerals
Hawaiian Noni Juice
Weight Loss

Biofeedback Training
Daily Mind/Body Practice
Journey to Wild Divine

Cordyceps "Chi" Energy Support
Parasite Colon Cleanse
Natural Sleep Aid
Antioxidants

Sports & Athletic Fitness
Information with Natural
Nutritional Supplements

Stop Snoring Remedy
Anti Aging
Natural Skin Care
Sun Care

Therapeutic Grade
Herbal Remedies

   health and wellness nutritional information with natural supplements

PersonalHealthFacts.com Logo
Click Here to Contact Us
Privacy Policy and Guarantee
rss feed
Newsletters
Health Articles
Business Opportunity

Body (Physical Health)
30 Day Body Detoxify
Parasite Colon Cleanse
Anti Aging Supplements
Weight Loss
Herbal Remedies
Athletic Sports Nutrition
Antioxidants
Natural Skin Care
Cordyceps Sinensis
Hawaiian Noni Juice
Single Species Essential Oils
Melatonin Sleep Aid
Light & Sound Mind MachinesLiquid Ionic Colloidal Minerals

Mind (Mental Health)
Therapeutic Grade Aromatherapy
Hormonal Balance
Light & Sound Mind Machines
Chords of Truth
Wild Divine Mind Expansion Software

Spirit (Spiritual Health)
Aromatherapy for Balance and Well Being Dream Analysis OBE's

These statements have not been evaluated by the Food and Drug Administration.
These products are not intended to diagnose, treat, or cure any disease.

© 2010 PersonalHealthFacts.com Corp.