<% '------------------- inizio script RSS ----------------------- 'Mi connetto al DB Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=fralbert; option=3; port=3306;" 'Recuperiamo le news dal nostro DB Dim MyQuerySql, Rs MyQuerySql ="select * from t_blog WHERE act = 'Y' Order by ID desc" Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open MyQuerySql, Conn, 3, 3 ' Numero totale di records Dim NumNews NumNews = Rs.recordcount ' Imposto il tipo di file come XML response.ContentType="text/xml" 'Imposto il mio documento XML 'Specificando titolo, descrizione e link del mio servizio di News %> http://www.fralbert.it Le ultime dal nostro blog it <% 'Se il DB non è vuoto... if NOT NumNews = 0 then %> <%'Lancio un ciclo che scorre tutti i records trovati... 'e crea la struttura XML per ogni News Do while not rs.eof response.write " " response.write "" response.write "" 'if Rs("img") <> "" then response.write "" 'end if response.write Server.HTMLEncode(Rs("Testo")) & " " response.write "http://www.fralbert.it/blog.asp?ID=" & Rs("id") & "" response.write "" rs.movenext Loop End if response.Write("") 'Chiudo tutto rs.close set rs=nothing Conn.Close set Conn=nothing '------------------- fine script RSS ----------------------- %>