news scorrevoli

<table height="200">
     <tr>
           <td>
<p class="titolo"><a href="#">LE ULTIME NEWS</a></p></td>
     </tr>
     <tr>
           <td bgcolor="#CCCCCC">
<font face="Tahoma" style="font-size: 8pt"><marquee bgcolor="#CCCCCC" width=160 height=200 bgcolor=White  direction=up scrolldelay=80  scrollamount=1 hspace=2 align=right pause=7
OnMouseOver="javascript:this.stop()" OnMouseOut="javascript:this.start()">
<%

'Dim adoNewsCon                         'Database Connection Variable
'Dim rsNewsConfiguration                'Holds the configuartion recordset
'Dim strAdoNewsConfig                'Holds the Database driver and the path and name of the database
'Dim strNewsSQL                        'Holds the SQL query for the database
'Dim intPreviewNewsItems                'Number of files shown on each page
'Dim blnNewsLCode                'News page code set to true
'Dim strNewsBgColour                'Holds the background colour of the News Administrator
'Dim strNewsTextColour                'Holds the text colour of the News Administrator
'Dim strNewsTextType                'Holds the font type of the News Administrator
'Dim intNewsTextSize                'Holds the font size of the News Administrator
'Dim intNewsSmallTextSize        'Holds the size of small fonts
'Dim strNewsLinkColour                'Holds the link colour of the News Administrator
'Dim strNewsTableColour                'Holds the table colour
'Dim strNewsTableBorderColour        'Holds the table border colour
'Dim strNewsTableTitleColour        'Holds the table title colour
'Dim strNewsVisitedLinkColour        'Holds the visited link colour of the News Administrator
'Dim strNewsActiveLinkColour        'Holds the active link colour of the News Administrator




Set adoNewsCon = Server.CreateObject("ADODB.Connection")
strAdoNewsConfig = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/news.mdb")
adoNewsCon.Open strAdoNewsConfig
Set rsNewsConfiguration = Server.CreateObject("ADODB.Recordset")
strNewsSQL = "SELECT tblConfiguration.* From tblConfiguration;"

rsNewsConfiguration.Open strNewsSQL, strAdoNewsConfig

If NOT rsNewsConfiguration.EOF Then

       strNewsTextColour = rsNewsConfiguration("text_colour")
       strNewsTextType = rsNewsConfiguration("text_type")
       intNewsTextSize = CInt(rsNewsConfiguration("text_size"))
       intNewsSmallTextSize = CInt(rsNewsConfiguration("small_text_size"))                
       strNewsTableColour = rsNewsConfiguration("table_colour")
       strNewsTableBorderColour = rsNewsConfiguration("table_border_colour")
       strNewsTableTitleColour = rsNewsConfiguration("table_title_colour")
       strNewsLinkColour = rsNewsConfiguration("links_colour")
       strNewsVisitedLinkColour = rsNewsConfiguration("visited_links_colour")
       strNewsActiveLinkColour = rsNewsConfiguration("active_links_colour")
       blnNewsLCode = CBool(rsNewsConfiguration("Code"))
       intPreviewNewsItems = rsNewsConfiguration("No_of_preview_items")
End If

rsNewsConfiguration.Close
Set rsNewsConfiguration = Nothing

%>


<div align="center">


<table width="100%" cellspacing="0" bgcolor="">
 <tr>
   <td>
     <table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="">
       <tr>
       </td>
       <tr>
         <td align="center" class="text" style="border-style:none; border-width:medium; " valign="top">
           <%
'Dim rsNews2                'Database recordset holding the news items
'Dim intNewsItems        'Loop counter for displaying the news items

Set rsNews2 = Server.CreateObject("ADODB.Recordset")
       
strNewsSQL = "SELECT TOP " & intPreviewNewsItems & " tblNews.* FROM tblNews ORDER BY News_Date DESC;"
       
rsNews2.Open strNewsSQL, adoNewsCon

If rsNews2.EOF Then Response.Write("<span class=""text"">Sorry, There is no Site News Items to display</span>")

For intNewsItems = 1 to intPreviewNewsItems

       If rsNews2.EOF Then Exit For
       
       %>
     <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
       <td align="left">
       <font face="Tahoma"><span style="font-size: 8pt">
<% = FormatDateTime(rsNews2("News_Date"), vbLongDate) %></span></font><br>        
<a href="default.asp?op=notizia&NewsID=<% = rsNews2("News_ID") %>" >
<font face="Tahoma"><b><span style="font-size: 8pt">

<% = rsNews2("News_title") %></span></b></font></a><font face="Tahoma"><b><span style="font-size: 8pt"></strong>
</span> <span class="smText"><span style="font-size: 8pt">        </span>
</b></font>        </td>
      </tr>
      <tr>
       <td align="left" class="text" style="border-bottom:1px dashed #999999; padding:4px; ">
               <strong style="font-weight: 400"> <font face="Tahoma"><b><span style="font-size: 8pt">

          <% = rsNews2("Short_news") %><span style="font-size: 8pt"> [&nbsp;<a href="default.asp?op=notizia&NewsID=<% = rsNews2("News_ID") %>" >
          <font face="Tahoma"><b><span style="font-size: 8pt">
leggi
               la notizia</a>&nbsp;]</span></td>
      </tr>
     </table>
           <br>
           <%
       'Move to the next record in the recordset
       rsNews2.MoveNext
Next

'Reset server objects
rsNews2.Close
Set rsNews2 = Nothing
Set strAdoNewsConfig = Nothing
Set adoNewsCon = Nothing
%>
         </td>
       </tr>
     </table>
   </td>
 </tr>
</table></div></font></p></marquee>
</font>
           </td>
     </tr>
</table>

<?xml version="1.0" encoding="UTF-8"?>
<rss version="0.91">
 <channel>
   <title>Titolo del vostro RSS </title>
     <description>Descrizione del vostro RSS</description>
   <link>URL del vostro RSS</link>
   <item>
     <title><![CDATA[ Titolo notizia 1 ]]></title>
     <description><![CDATA[ Descrizione o Corpo notizia 1]]></description>
     <link><![CDATA[ URL per leggere la notizia 1 sul web]]></link>
   </item>

   <item>
     <title><![CDATA[ Titolo N ]]></title>
     <description><![CDATA[ Descrizione o Corpo notizia N]]></description>
     <link><![CDATA[ URL per leggere la notizia N sul web]]></link>
   </item>
 </channel>
</rss>

http://rss.cnn.com/rss/cnn_topstories.rss

http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/front_page/rss.xml

http://news.com.com/2547-1_3-0-5.xml

<%

'Stringa di connessione al Database

Strdb ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("nome_database.mdb")


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Strdb

'Sequel SQL che prende i Dati dal DataBase
'cambiare con il nome della vostra tabella ed i/o nomi/nome dei/del campi/campo
SQL = "SELECT * FROM Tabella where ID = 1"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, Conn, 1,1

' Numero totale di records - conta i record dei campi della Tabella
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCRLF & _
     "<rss version=""0.91""><channel>" & vbCRLF

' Se il Record Set non è vuoto
if totfiles <> 0 then
 Do while not rs.eof
   xml = xml & "<item>"
   xml = xml & "<title><![CDATA[" & rs("Campo_tabella") & "]]></title>" & vbCRLF
   xml = xml & "<description><![CDATA[" & rs("ID") & "]]></description>" & vbCRLF
   xml = xml & "<link><![CDATA[http://www.tuo_sito.it/pagina.asp?ID=" & rs("ID") & "]]></link></item>" & vbCRLF
 
   rs.movenext
 Loop
End if

xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>