RSS - Gli annunci di Scambiomoto sul tuo sito

Vuoi offrire un servizio agli utenti del tuo sito?
 
Con i nostri RSS puoi facilmente visualizzare gli ultimi 3 annunci inseriti nel nostro database.
Il servizio è facile da collegare è graficamente personalizzabile ed è gratuito
 
Per collegarsi al nostro servizio e sufficiente cercare in Google una funzione per leggere gli RSS e collegarla all'indirizzo che trovere cliccando qui 
 
Oppure potete generare il codice ASP per il vostro sito ed incollarlo dove volete che il BOX degli annunci sia visualizzato (Inserite nella form i colori Esadecimali composti da 6 cifre alfanumeriche senza il simbolo # e poi premete Genera):

Sfondo: #Bordi: #Testo: #Link: #

Annunci Scambiomoto

Honda CBF 1000 moto pari al nuovo, accessoriatissima, tagliandi h ...[Continua]

Gilera GP 800 scooter da vetrina qualsiasi prova, scambio con bm ...[Continua]

Triumph SPEED TRIPLE 1050 vendo o scambio con tmax nuovo modello 08/09 la mi ...[Continua]

Function GeneraRSS(Url) Dim ObjXML, BlnLoaded, ObjNodeList, ObjNode, ObjNode2, Html, StrTitle, StrURL, StrDescription, Titolo, Link, Descrizione 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 Html = Html & "<tr><td style=""height: 20px; background-color: #CCCCCC; text-align: right; padding-right: 5px;""><a href=""" & Link & """ target=""_blank"" style=""color: #686762; text-decoration: underline;"">" & Titolo & "</a></td></tr>" 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 "link" StrURL = ObjNode2.firstChild.NodeValue Case "description" StrDescription = ObjNode2.firstChild.NodeValue End Select Next 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: #FFCC00""><b>...[Continua]</b></a></div><br></td></tr>" 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: #686762; background-color: #FFFFFF; border: 1px solid #CCCCCC;"">" & Html & "</table></div>" Set ObjNodeList = Nothing End If GeneraRSS = Html End Function Response.write(GeneraRSS("http://www.scambiomoto.com/annunci.xml"))