Welcome to...The UCLA Endocrine Surgical Unit
 

Schedule an Appointment
Endocrine Home
About Us
Our Expert Team
Our Services
First Visit for Patients
Patient Education
Scar Gallery
For Referring Physicians
Distance Surgery Program
International Patients
Insurance Questions
Map-Directions-Parking
Contact Us
Patient Experiences
Endocrine Resources
Site Map

UCLA Health System


Schedule an Appointment


" ' ##### 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.XMLHTTP.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 = xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS Set xmlDOM = Nothing ' clear XML RSSItemsCount = RSSItems.Length-1 ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" RSSlink = child.text case "description" RSSdescription = 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 %>
Worldwide "Parathyroid" News Courtesy of Google News

Parathyroid News Feeds

Worldwide News: View Endocrine News | View Parathyroid News


<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2007 (c) www.Bytescout.com ' version 1.21, 27 February 2007 ' =============================================== ' ############################################################## ' ####### CHECK OUR COMMERCIAL PRODUCTS FOR ASP/ASP.NET: ####### ' SWF Scout [ http://bytescout.com/swfscout.html ]- create, read, modify flash movies (SWF) ' PDFDoc Scout [ http://bytescout.com/pdfdocscout.html ]- generate PDF documents with security options (PDF) ' ############################################################## ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://news.google.com/news?hl=en&ned=us&ie=UTF-8&scoring=n&q=parathyroid&output=rss" 'URLToRSS = "http://news.google.com/news?hl=en&ned=us&ie=UTF-&output=rss&q=Endocrine+Surgery" 'URLToRSS = "http://news.search.yahoo.com/usns/ynsearch/categories/news_story_search_rss/index.html?p=endocrine+surgery" 'URLToRSS = "http://search.msn.com/news/results.aspx?format=rss&FORM=RSNR&q=endocrine+surgery" ' ##### max number of displayed items ##### MaxNumberOfItems = 5 ' ##### 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 = "
{DATE}
• {TITLE}{DESCRIPTION}