[Resolvido] criar feed

[lote14 0]

Pessoal Boa noite!

 

Gostaria de saber como faço para criar um feed? (claro que em ASP)

 

Eu tenho um código que lê um feed de outro site e exibe em minha página.

 

gostaria de saber o inverso, ou seja, o meu feed ser criado e lido por outro site ou assinado por um usuário.

 

tentei criar no feedbunner automaticamente, mas não obtive sucesso.

 

obs: tipo esse aqui do forúm no canto superior direito.

 

todos os feeds são exibidos nessa janela >> http://forum.imasters.com.br/index.php?/rss/forums/1-noticias/

 

como faço para fazer igual?

 

outra coisa já aproveitando o embalo.

 

e aqueles botões de bookmark (adiciona ao google,my yahoo, netvibes, pageflakes e outros )

 

como coloco no site.

 

valeu galera e aguardo boas almas......

 

pessoal alguém sabe?

 

resumindo:

 

- como fazer tipo esse link aqui de cima "rss" >> "noticias" com a mesma janela e opções "inscrever esse RSS no"

 

 

valeu gente.....

[xanburzum 169]

olha este exemplo para criar um RSS 2.0 feed , puxando o conteúdo a partir de um banco de dados, e converter a data de cada conteúdo para a forma correcta (RFC 822).

 

<%
response.ContentType="text/xml"

dim Conn
dim rs
dim sSQL
dim iUserID,iOrganizationID


set rs        = CreateObject("ADODB.Recordset")
set Conn   = Server.CreateObject("ADODB.Connection")

    Conn.Open "intranetDB"
    Conn.CommandTimeout = 120 


  
    sSQL = "select UserId,organizationID,username,password from Users where userID=1"

    rs.Open sSQL, Conn,0,1
    if not rs.eof then        
            iUserId            = rs("UserId")
            iOrganizationID        = rs("organizationID")
            sUserName        = rs("username")
            sPassword        = rs("password")
    else
        rs.close
        conn.close
        Response.End
    end if
    rs.close
     
 

    sSQL = "SELECT top 25 " _
        & " a.fileID,a.FileName,a.Description,a.FolderID,a.LastUpdate,b.FolderName " _ 
        & " FROM files a, folders b, groupFolderXref c  " _    
        & " where (c.GroupID in (SELECT GroupID FROM usergroupxref where UserID=" & iUserID & ")" _
        & " or a.userID = " & iUserID & ")" _
        & " and a.folderID=b.folderID " _
        & " and b.folderID=c.folderID " _
        & " and (a.UserID="&iUserID&" or a.OrganizationID="&iOrganizationID&")" _        
        & " order by a.lastUpdate desc"
     'Response.Write "<BR>" & sSQL & "<p>"
     rs.Open sSQL, Conn, 1, 3
     'Response.Write rs.RecordCount
     
    if not rs.eof then

        aryFilesToDisplay = rs.GetRows
        'dim aryFilesToDisplay' as an array of strings and ints
        'aryFilesToDisplay(0, iRowLoop) = fileID
        'aryFilesToDisplay(1, iRowLoop) = FileName
        'aryFilesToDisplay(2, iRowLoop) = Description
        'aryFilesToDisplay(3, iRowLoop) = FolderID
        'aryFilesToDisplay(4, iRowLoop) = LastUpdate
        'aryFilesToDisplay(5, iRowLoop) = FolderName

        

%>
        <rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/">
        <channel>
        <title>Virtual Office Files</title>
        <link>http://64.66.5.12/</link>
        <description>Latest Files</description>
        <language>en-us</language>
<%
    
 

        For iRowLoop = 0 to UBound(aryFilesToDisplay, 2)
        
            response.write "<item>"&vbcrlf
            response.write "<title>"& replace(aryFilesToDisplay(1, iRowLoop)," & "," and ") &" "& replace(aryFilesToDisplay(2, iRowLoop)," & "," and ") & " in folder "&aryFilesToDisplay(5, iRowLoop)&" (posted or updated last on "&aryFilesToDisplay(4, iRowLoop)&")</title>"&vbcrlf
            response.write "<link>http://(removed)/login1.asp?u="&sUsername&"&p="&sPassword&"&redirect=http://(removed)/documents/filesmain.asp?folderID="&aryFilesToDisplay(0, iRowLoop)&"</link>"&vbcrlf
            sDate = GetW3DTF(aryFilesToDisplay(4, iRowLoop))
            sDate = return_RFC822_Date(sDate,"GMT")
            response.write "<pubDate>"&sDate&"</pubDate>"&vbcrlf
            response.write "</item>"&vbcrlf

        Next
            
    end if
   rs.Close



Conn.Close

Set Conn = Nothing
Set Rs = Nothing



Function GetW3DTF(dtmDate)
    Dim strDate
    strDate = DatePart("yyyy", dtmDate) & "-" & DatePart("m", dtmDate) & "-" & DatePart("d", dtmDate) & " " &_
    DatePart("h", dtmDate) & ":" & DatePart("n", dtmDate) & ":" & DatePart("s", dtmDate) 
    GetW3DTF = strDate 
End Function

Function return_RFC822_Date(myDate, offset)
  Dim myDay, myDays, myMonth, myYear
  Dim myHours, myMonths, mySeconds
    
  myDate = CDate(myDate)
  myDay = WeekdayName(Weekday(myDate),true)
  myDays = Day(myDate)
  myMonth = MonthName(Month(myDate), true)
  myYear = Year(myDate)
  myHours = zeroPad(Hour(myDate), 2)
  myMinutes = zeroPad(Minute(myDate), 2)
  mySeconds = zeroPad(Second(myDate), 2)
    
  return_RFC822_Date = myDay&", "& _
                       myDays&" "& _
                       myMonth&" "& _ 
                       myYear&" "& _
                       myHours&":"& _
                       myMinutes&":"& _
                       mySeconds&" "& _ 
                       offset
End Function 

Function zeroPad(m, t)
  zeroPad = String(t-Len(m),"0")&m
End Function

%>
    </channel>
</rss>

[lote14 0]

cara beleza? tudo bem, mas...

 

essa parte tudo bem acho que já entendi, esse código gera um arquivo xml com dados vindo do banco não é isso?

<%  ArquivoXML = "criado.xml" 'adicionando um nome no arquivo  Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO  Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"  'gerando linas  Linhas.WriteLine("<?xml version=""1.0""?>")  Linhas.WriteLine("<container>")  Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" )  Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" )  Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" )  Linhas.WriteLine("</container>")  'destruíndo os objetos  Linhas.Close  Set Linhas = Nothing  %>

esse código também faz isso, certo. só ainda não pega as informações do banco mas isso é de menos.

 

esse codigo que postei gera o arquivo (criado.xml) irá exibir um arquivo em formato xml:

 

<?xml version="1.0"?><container><tag_01>1DADOS DO BANCO</tag_01><tag_02>2DADOS DO BANCO</tag_02><tag_03>3DADOS DO BANCO</tag_03></container>

depois de criado esse arquivo em meu servidor como faço para exibi-lo assim http://forum.imasters.com.br/index.php?/rss/forums/1-noticias/

 

OBS:NESTA MESMA JANELA IGUALZINHO.

 

 

valeuuu...

[xanburzum 169]

dá uma olhada aqui, talvez esclareça mais

[lote14 0]

cara insisto,

 

consigo criar o xml com dados vindo do banco, mas a partir dai não sei o que fazer com o xml.

 

coloco o link o ícone de RSS no site e como ficaria o link? para abrir os dados ao invés de:

 

<?xml version="1.0"?><container><tag_01>1DADOS DO BANCO</tag_01><tag_02>2DADOS DO BANCO</tag_02><tag_03>3DADOS DO BANCO</tag_03></container>

 

assim http://forum.imaster...ums/1-noticias/

 

acredito que seja simples, porém...

 

e outra, aqueles botões que abre uma div para compartilhar conteúdo(delicius,orkut, twiter, etc...) como é isso?

[xanburzum 169]

olha este aqui, ele ja cria seu link...

 

code

[lote14 0]

tudo bem mas como eu exibo o xml neste formato?

 

 

um trecho do fonte desta página, é um xml certo?

<?xml version="1.0" encoding="ISO-8859-1" ?><rss version="2.0"><channel>	<title>Notícias</title>	<description>Notícias relacionada à tecnologias</description>	<link>http://forum.imasters.com.br/index.php</link>	<pubDate>Fri, 09 Jul 2010 00:50:36 +0000</pubDate>	<ttl>720</ttl>	<item>.....

 

mais exibe assim:

 

http://forum.imasters.com.br/index.php?/rss/forums/1-noticias/

 

obs:já rodei um arquivo em asp que cria,lê e exibe formatado, mas quero saber com exibe assim igual está nesta jenela com opção de compartilhar no bloglines, google e tal...

 

a maioria dos sites exibem assim, como faço.

 

cara desculpe a insistência mas sou "neném" nessa área e em quase todas, mas agente tenta.

 

to aqui de novo pessoal.

 

horrivel:

 

http://www.gabarite.com.br/rss_ultimas_adicionadas.asp

 

 

bonitinho:

 

http://feeds.pciconcursos.com.br/feed/concursos

 

 

também legal (prefiro assim)

 

http://feeds.pciconcursos.com.br/feed/concursos?format=xml

 

como mostra igual esse ultimo?

[lote14 0]

pessoal consegui fazer, porém.

 

 

no firefox exibe legal, mas no explorer não, o quê será?

 

http://www.gabarite.com.br/rss_ultimas_adicionadas.asp

[xanburzum 169]

Qual versão do IE , ele dá erro ????

[lote14 0]

versão 6.0.

 

não da erro não, só não exibe o xml, a página fica em brando e o enfereço nem aparece no navegador.

 

você conseguiu abrir no explorer? aconteceu oque ?

[xanburzum 169]

atualiza ele, aqui no meu abriu certo, IE8

[lote14 0]

valeuu xanburzum.

 

acho que consegui.

 

faz um favor vê se da erro?

 

http://www.gabarite.com.br/

 

desculpe o abuso, mas quebra essa.

 

valeu cara pela atenção.

 

 

mas tarde posto a solução pro pessoal compartilhar...

[xanburzum 169]

beleza...