• M
    User Attivo •

    creare feed da db news

    Allora vorrei creare un feed rss automaticamente dal mio database delle news ed ho creato il seguente codice ```

    <%
    dim LCID
    LCID = 1040
    Session.LCID=LCID
    on error resume next
    asasa=request.QueryString("pag")

    id=Request.QueryString("id")

    Dim cn
    Set cn = Server.CreateObject("ADODB.Connection")
    cn.ConnectionString="dsn=miodns;"
    cn.open

    Dim rs, sql
    Set rs = Server.CreateObject("ADODB.Recordset")

    sql = "SELECT stralcio, testo, data, id FROM news where id="&id&" ORDER by data DESC, id DESC "

    rs.CursorLocation = 3
    rs.Open SQL, Conn, 1,1

    ' Numero totale di records
    totfiles = rs.recordcount

    xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
    "<rss version=""0.91""><channel><title>titolo</title>" & _
    "<description>descrizione </description>" & _
    "<link>+++.miosito.it</link><language>it</language>"

    'Se il Record Set non è vuoto
    if totfiles = 0 then
    Do while not rs.eof
    xml = xml & "<item>"
    xml = xml & "<title><![CDATA[" & rs("stralcio") & "]]></title>"
    xml = xml & "<description><![CDATA[" & rs("testo") & "]]></description>"
    xml = xml & "<link><![CDATA[+++.miosito.it/comdet.asp?id=" & rs("&id") & "]]></link></item>"

    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 cn=nothing
    %>

    
Mi date sugerimenti su come fare 

Grazie Mauro
    0
  • C
    Super User •

    sql = "SELECT TOP 10 stralcio, testo, data, id FROM news where id="&id&" ORDER by data DESC, id DESC "

    0
  • M
    User Attivo •

    Ho fatto la modifica che mi hai scritto ma continua ad andare in loop e non mi mostra niente

    0
  • C
    Super User •

    if totfiles = 0 then

    è giusto così?

    0
  • M
    User Attivo •

    Si grazie ci sono riuscito sbagliavo un inezia ora sono indeciso se mettere solo l'iconcina rss o mettere quella dei lettori di feed + famosi .

    0
  • A
    User •

    È PROPRIO quello che fa al caso mio:
    Il mio sito (astigiando it) è creato con frontpage, oggi uso sharepoint ed è collegato ad un database di access (veramente sono 3) con pagine asp.
    Non sono tanto esperta in programmazione asp perchè faccio tutto automaticamente con sharepoint.
    Mi potete aiutare ad implementare il codice sopra?
    Norrei anch'io creare un feed con gli ultimi articoli inseriti prendendo ciò che metto sui 3 database (se non si può collegare a tutti e 3 farò 3 feed).

    Devo inserire il codice in una pagina asp che poi crea la pagina xml?
    Grazie in anticipo dell'aiuto prezioso

    0
Effettua l'accesso per rispondere