www.dmmco.com, Annunci libri usati. Inserzioni libri usati. Scambio libri, baratto libri. annunci libri usati, annunci libri, annunci, libri, inserzioni libri usati, inserzioni libri, inserzioni, biblioteche, librerie, libri usati, schede libri usati, link libri.

www.dmmco.com, Annunci libri usati. Inserzioni libri usati. Scambio libri, baratto libri. annunci libri usati, annunci libri, annunci, libri, inserzioni libri usati, inserzioni libri, inserzioni, biblioteche, librerie, libri usati, schede libri usati, link libri.

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


	Ricerca libri Ricerca librerie	Registrazione privati Registrazione librerie	Banners Rss Link

Login:

Password:

Ricerca Rapida:


	Barattolibri RSS

Tutti gli annunci di BarattoLibri sul tuo sito.

Un canale ("Really Simple Syndication") è un servizio in cui vengono automaticamente inviate tutte le ultime notizie prodotte da un sito scelto dall'utente.
Pertanto, tramite il sistema RSS di Barattolibri.com potrai essere informato in tempo reale sugli annunci in primo piano inseriti.

Il servizio è completamente gratuito e non richiede nessuna registrazione.

Per collegarsi al nostro servizio potete generare automaticamente il codice ASP per il vostro sito ed incollarlo, all'interno dello stesso, in qualsiasi posizione vogliate; potete anche utilizzare un vostro lettore rss o cercarne uno su GOOGLE lincandolo poi a questo indirizzo [http://www.barattolibri.com/public/rss.xml]

Personalizzazione RSS.

Per personalizzare il vostro BOX RSS:
1. Inserite nella form "impostazioni" i colori esadecimali senza il simbolo #. (Potete anche utilizzare le varie tavolozze colore a fianco di ciascun campo)
2. Premete Crea-Prova.
3. Osservate il risultato ottenuto nella tabella "preview"
4. Copiate il codice generato premendo copia codice nella casella di testo "codice".

PREVIEW

IMPOSTAZIONI

CODICE

Annunci Barattolibri.com

	La Cruna dell'AGO Ken Follet - Mondadori 1998 - 4,00 euro [vedi scheda]
	Il secolo cinese Federico Rampini - Mondadori 2005 - 10,00 euro [vedi scheda]
	Ecco la storia Daniel Pennac - Feltrinelli 2003 - 12,00 euro [vedi scheda]
	Almost blue Carlo Lucarelli - Einaudi 1997 - 5,50 euro [vedi scheda]

Colore intestazione:	Colore sfondo:
Colore bordi:	Colore testo:
Colore "vedi scheda":	Colore data annuncio:
Immagini? si no	Data annuncio? si no

coloreintestazione=FFFFFF
coloresfondo=FFFFFF
colorebordi=A3916B
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 = "Nessuna annuncio da visualizzare"
	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
			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&";"">annuncio del "&StrDate&"<br><img src=""http://www.barattolibri.com/immagini/spacer.gif"" width=""1"" height=""3"" alt="""" border=""0""></td></tr>"
			end if
			if imma=1 then
			Html = Html & "<tr><td valign=""top"" style=""padding-left: 5px;""><a href="""& StrLINK_imm &""" target=""_blank""><img src=" & StrURL_imm &" alt=""vedi scheda - "& 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>" & Left(StrDescription, 50) & "<div align=""right"" style=""padding-right: 5px;""><a href=""" & StrURL & """ target=""_blank"" style=""text-decoration: none; color: #"&colorelink&"""><b>[vedi scheda]</b></a></div><br></td></tr>"
			else
			Html = Html & "<tr><td style=""padding-left: 5px;""><b>" & StrTitle & "</b><br>" & Left(StrDescription, 50) & "<div align=""right"" style=""padding-right: 5px;""><a href=""" & StrURL & """ target=""_blank"" style=""text-decoration: none; color: #"&colorelink&"""><b>[vedi scheda]</b></a></div><br></td></tr>"
			end if
			StrTitle = ""
			StrURL = ""
			StrDescription = ""
		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
'BARATTOLIBRI
Response.write(GeneraRSS("http://www.barattolibri.com/public/rss.xml"))