ERO - European Regional Organisation of the Federation Dentaire Internationale

Please follow the link below to download the Flash 7 Plug in

Constitution Constitution

Minutes Minutes

Registration documents Registration documents

Working documents Working documents

Agenda Agenda

National reports National reports

Reports Reports

Resolutions Resolutions

Working documents Working documents



	ERO Website (from ) ... read more ť Please follow the link below to download the Flash 7 Plug in click one to rate



	Questions to secretary FAQ Job GROUP - chat Virtual Assistant

Please follow the link below to download the Flash 7 Plug in

OPTIONS

HOW TO USE YOUR RSS BOX:

Heading color:	Background color:
Borders color:	Text color:
"read more" color:	Date color:
Images? yes no	Feed date? yes no

Insert in the "option" form the hexadecimal colors without # simbol. (If you want you can use the 'choose color' button)
Click Create-Try.
Take a look in the "preview" table
Copy the generated code and past it in your website

PREVIEW

CODE


FEED ERODENTAL.ORG

	Letter to Prime Minister of Poland ... [read more]

coloreintestazione=FFFFFF
coloresfondo=FFFFFF
colorebordi=8C7755
coloretesto=686762
colorelink=E34806
coloredata=E34806
imma=1
vedidata=0

Function GeneraRSS(Url)
	Dim ObjXML, BlnLoaded, ObjNodeList, ObjNode, ObjNode2, Html, StrTitle, ObjNode3, StrURL, StrDescription, Titolo, Link, Descrizione, StrURL_imm, StrLINK_imm, StrWidth_imm,  StrHeight_imm, StrALT_imm, StrDate
	Set ObjXML = Server.CreateObject("msxml2.DOMDocument.3.0")
	ObjXML.async = False
	ObjXML.setProperty "ServerHTTPRequest", True
	ObjXML.validateOnParse = False
	ObjXML.preserveWhiteSpace = False
	BlnLoaded = ObjXML.Load(Url)
	If Not BlnLoaded Then 
		GeneraRSS = "Nothing to read"
	Else
		Set ObjNodeList = ObjXML.GetElementsByTagName("channel")
		For Each ObjNode In ObjNodeList
			For Each ObjNode2 In ObjNode.childNodes
				Select Case ObjNode2.NodeName
					Case "title"
						Titolo = ObjNode2.firstChild.NodeValue 
					Case "link" 
						Link = ObjNode2.firstChild.NodeValue
					Case "description" 
						Descrizione = ObjNode2.firstChild.NodeValue
				End Select
			Next
			Html = Html & "<tr><td style=""background-color: #"&colorebordi&";"" colspan=""2""><img src=""http://www.erodental.org/immagini/spacer.gif"" width=""250"" height=""1"" alt="""" border=""0""></td></tr>"
			if imma=1 then
			Html = Html & "<tr><td style=""height: 20px; background-color: #"&colorebordi&"; text-align: right; padding-right: 5px;"" colspan=""2""><a href=""" & Link & """ target=""_blank"" style=""color: #"&coloreintestazione&"; text-decoration: underline;"">" & Titolo  & "</a></td></tr>"
			else
			Html = Html & "<tr><td style=""height: 20px; background-color: #"&colorebordi&"; text-align: right; padding-right: 5px;""><a href=""" & Link & """ target=""_blank"" style=""color: #"&coloreintestazione&"; text-decoration: underline;"">" & Titolo  & "</a></td></tr>"
			end if
		Next
		Html = Html & "<tr><td><br></td></tr>"
		Set ObjNodeList = ObjXML.getElementsByTagName("item") 
		For Each ObjNode In ObjNodeList 
			For Each ObjNode2 In ObjNode.childNodes 
				Select Case ObjNode2.NodeName 
					Case "title"
						StrTitle = ObjNode2.firstChild.NodeValue
					Case "image"
						For Each ObjNode3 In ObjNode2.childNodes
							Select Case ObjNode3.NodeName
								Case "url"
									StrURL_imm = ObjNode3.firstChild.NodeValue
								Case "link"
									StrLINK_imm = ObjNode3.firstChild.NodeValue
								Case "width"
									StrWidth_imm = ObjNode3.firstChild.NodeValue
								Case "height"
									StrHeight_imm = ObjNode3.firstChild.NodeValue
								Case "description"
									StrALT_imm = ObjNode3.firstChild.NodeValue
							End Select
						Next
					Case "link"
						StrURL = ObjNode2.firstChild.NodeValue 
					Case "description"
						StrDescription = ObjNode2.firstChild.NodeValue
					Case "pubDate"
						StrDate = ObjNode2.firstChild.NodeValue
				End Select
			Next
			if vedidata=1 then
				Html= Html &"<tr><td colspan=""2"" valign=""top"" style=""padding-left: 5px; color: #"&coloredata&";"">date "&StrDate&"<br><img src=""http://www.erodental.org/immagini/spacer.gif"" width=""1"" height=""3"" alt="""" border=""0""></td></tr>"
			end if
			if imma=1 AND StrURL_imm<>"" then
			Html = Html & "<tr><td valign=""top"" style=""padding-left: 5px;"" colspan=""2""><a href="""& StrLINK_imm &""" target=""_blank""><img src=" & StrURL_imm &" alt=""see news - "& StrALT_imm &""" width="""& StrWidth_imm &""" height="""& StrHeight_imm &""" border=""0"" style=""border: 1 solid; border-color: Black Black Black Black;""></a></td><td style=""padding-left: 5px;""><b>" & StrTitle & "</b><br>" & StrDescription & "<div align=""right"" style=""padding-right: 5px;""><a href=""" & StrURL & """ target=""_blank"" style=""text-decoration: none; color: #"&colorelink&"""><b>[read more]</b></a></div><br></td></tr>"
			else
			Html = Html & "<tr><td style=""padding-left: 5px;""><b>" & StrTitle & "</b><br>" & StrDescription & "<div align=""right"" style=""padding-right: 5px;""><a href=""" & StrURL & """ target=""_blank"" style=""text-decoration: none; color: #"&colorelink&"""><b>[read more]</b></a></div><br></td></tr>"
			end if
			StrTitle = ""
			StrURL = ""
			StrDescription = ""
			StrURL_imm = ""
		Next
		Html = "<div><table width=""180"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""font-family: verdana,arial,sans-serif; font-size: 10px; color: #"&coloretesto&"; background-color: #"&coloresfondo&"; border: 1px solid #"&colorebordi&";"">" & Html & "</table></div>"
		Set ObjNodeList = Nothing
	End If
	GeneraRSS = Html
End Function
'erodental
Response.write(GeneraRSS("http://www.erodental.org/gestione/rss.xml"))



		Username Password