Avatar billede Slettet bruger
01. september 2005 - 00:04 Der er 11 kommentarer og
1 løsning

Hvad er fejlen- RSS

jeg har fundet et script til at sætte RSS på min blog,men det virkker ikke som det skal... det kommer med en masse fejl (kan ses her  http://www.dianna.dk/dag/rss.asp)Er der en der kan hjælpe med at finde ud af hvad fejeln er?

koden ser således ud:
rss.asp:
<% Response.Buffer = true
Response.ContentType = "text/xml"

Function ApplyXMLFormatting(strInput)
strInput = Replace(strInput,"&", "&amp;")
strInput = Replace(strInput,"'", "&apos;")
strInput = Replace(strInput,"""", "&quot;")
strInput = Replace(strInput, ">", "&gt;")
strInput = Replace(strInput,"<","&lt;")

ApplyXMLFormatting = strInput
End Function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("form.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 10 * from users order by ID desc;"
rs.Open strSQL, Conn, 1, 3

Function GetNewsHeader(InputString, MaxNumber)
Dim inCount

For inCount = LBound(Split(InputString, " ")) To MaxNumber - 1
GetNewsHeader = GetNewsHeader & " " & Split(InputString, " ")(inCount)
Next
End Function
do while not rs.eof
%>
<?xml version="2.0" encoding="iso-8859-1" ?>
<rss version="2.0" xmlns:dc=" http://purl.org/dc/elements/1.1/"  xmlns:sy=" http://purl.org/rss/1.0/modules/syndication/"  xmlns:admin=" http://webns.net/mvcb/"  xmlns:rdf=" http://www.w3.org/1999/02/22-rdf-syntax-ns#"  xmlns:content=" http://purl.org/rss/1.0/modules/content/">
<channel>
<site>Min Web Side</site>
<siteurl> http://www.dianna.dk/dag/</siteurl>
<language>da</language>
<copyright>Copyright 2004, dianna.dk</copyright>
<lastBuildDate><%=Now()%></lastBuildDate>
<item>
<title><%=rs("overskrift")%></title>
<link> http://www.dianna.dk/dag/index.asp?dagbog=<%=rs("Id")%></link>
<description><% Response.Write GetNewsHeader(rs("tekst"), 40) %>...</description>
<datePosted><%=rs("dato")%></datePosted>
</item>
<%
rs.MoveNext
loop
Conn.Close
Set Conn = Nothing
%>
</channel>
</rss>
Avatar billede nielle Nybegynder
01. september 2005 - 07:54 #1
Min browser brokker sig over versions-nummeret på din cml - prøv at rette versionen 2.0 til 1.0.

Desuden udskriver du en blank linje for xml-headeren. Den skal fjernes.
Avatar billede Slettet bruger
01. september 2005 - 14:47 #2
jeg har rettet dette:
<?xml version="2.0" encoding="iso-8859-1" ?>
til
<?xml version="1.0" encoding="iso-8859-1" ?>

men får denne fejl:
XML-siden kan ikke vises
XML-kan ikke vises ved hjælp af typografiarket XSL. Ret fejlen, og klik derefter på knappen Opdater, eller prøv igen senere.


--------------------------------------------------------------------------------

Slutkoden "description" svarer ikke til startkoden "BR". Der opstod en fejl under behandling af ressourcen 'http://www.dian...
Avatar billede nielle Nybegynder
01. september 2005 - 17:13 #3
Af en eller anden grund er din header:

<?xml version="1.0" encoding="iso-8859-1" ?>

- gentaget mange gange. Det ser nærtmest ud til at der er en pr. entry. Det skal kun være en ialt.

Desuden er der stadig en blank linje i toppen af din kode.
Avatar billede Slettet bruger
01. september 2005 - 21:38 #4
jeg tror jeg dropper det for det virker alt for indviklet til jeg kan fatte det.
jeg har svært ved se den blanke linje du snakker om .....

jeg har prøvt at ændre min kode til dette:
<?xml version="1.0" encoding="iso-8859-1" ?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/">
<% Response.Buffer = true
Response.ContentType = "text/xml"

Function ApplyXMLFormatting(strInput)
strInput = Replace(strInput,"&", "&amp;")
strInput = Replace(strInput,"'", "&apos;")
strInput = Replace(strInput,"""", "&quot;")
strInput = Replace(strInput, ">", "&gt;")
strInput = Replace(strInput,"<","&lt;")

ApplyXMLFormatting = strInput
End Function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("form.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 10 * from users order by ID desc;"
rs.Open strSQL, Conn, 1, 3

Function GetNewsHeader(InputString, MaxNumber)
Dim inCount

For inCount = LBound(Split(InputString, " ")) To MaxNumber - 1
GetNewsHeader = GetNewsHeader & " " & Split(InputString, " ")(inCount)
Next
End Function
do while not rs.eof
%>
<channel>
<site>Min Web Side</site>
<siteurl>http://www.dianna.dk/dag/</siteurl>
<language>da</language>
<copyright>Copyright 2004, dianna.dk</copyright>
<lastBuildDate><%=Now()%></lastBuildDate>
<item>
<title><%=rs("overskrift")%></title>
<link>index.asp?dagbog=<%=rs("Id")%></link>
<description><% Response.Write GetNewsHeader(rs("tekst"), 40) %>...</description>
<datePosted><%=rs("dato")%></datePosted>
</item>
<%
rs.MoveNext
loop
Conn.Close
Set Conn = Nothing
%>
</channel>
</rss>

Det giver stadig samme fejl
Avatar billede nielle Nybegynder
01. september 2005 - 22:06 #5
Lige nu får jeg "The page cannot be found" på http://www.dianna.dk/dag/rss.asp

Ang. den tomme linje: Hvis jeg gemmer siden til disk, og kigger på filen der så er det tydeligt at der er en tom linje i starten. Jeg kan godt nok ikke lige se hvor den kommer fra - altså i din kode.
Avatar billede Slettet bruger
01. september 2005 - 22:09 #6
jeg har lige smidt den ud igen :-)
Avatar billede Slettet bruger
01. september 2005 - 22:18 #7
mit forsøg er enlig at jeg vil have vist mine indlæg i RSS på samme måde som her feed://www.html.dk/rss/dk.edb.internet.webdesign.xml ....
Avatar billede nielle Nybegynder
01. september 2005 - 22:45 #8
Hvis du trykker Vis Kilde kan du se den tomme linje.

Og så må headeren:

<?xml version="1.0" encoding="iso-8859-1" ?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/">

- altså kun forekomme én gang i hele dokumentet - nemlig helt i toppen. Ellers er det ikke et lovligt xml-dokument
Avatar billede Slettet bruger
01. september 2005 - 22:59 #9
jeg har fået fjernet den tomme linje i toppen.....mit script ser nu således ud:

<% Response.Buffer = true
Response.ContentType = "text/xml"

Function ApplyXMLFormatting(strInput)
strInput = Replace(strInput,"&", "&amp;")
strInput = Replace(strInput,"'", "&apos;")
strInput = Replace(strInput,"""", "&quot;")
strInput = Replace(strInput, ">", "&gt;")
strInput = Replace(strInput,"<","&lt;")

ApplyXMLFormatting = strInput
End Function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("form.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 4 * from users order by ID desc;"
rs.Open strSQL, Conn, 1, 3

Function GetNewsHeader(InputString, MaxNumber)
Dim inCount

For inCount = LBound(Split(InputString, " ")) To MaxNumber - 1
GetNewsHeader = GetNewsHeader & " " & Split(InputString, " ")(inCount)
Next
End Function
do while not rs.eof
%><?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0" xmlns:dc=" http://purl.org/dc/elements/1.1/"xmlns:sy=" http://purl.org/rss/1.0/modules/syndication/"xmlns:admin=" http://webns.net/mvcb/"xmlns:rdf=" http://www.w3.org/1999/02/22-rdf-syntax-ns#"xmlns:content=" http://purl.org/rss/1.0/modules/content/">
<channel>
<site>Min Web Side</site>
<siteurl>http://www.dianna.dk/dag/rss.asp</siteurl>
<language>da</language>
<copyright>Copyright 2004, dianna.dk</copyright>
<lastBuildDate><%=Now()%></lastBuildDate>
<item>
<title><%=rs("overskrift")%></title>
<link>index.asp?dagbog=<%=rs("Id")%></link>
<description><% Response.Write GetNewsHeader(rs("tekst"), 40) %>...</description>
<datePosted><%=rs("dato")%></datePosted>
</item>
<%
rs.MoveNext
loop
Conn.Close
Set Conn = Nothing
%>
</channel>
</rss>

men den laver stadig samme fejl her hos mig....
Avatar billede nielle Nybegynder
01. september 2005 - 23:04 #10
Du bliver nødt tiul at flytte din header

<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0" xmlns:dc=" http://purl.org/dc/elements/1.1/"xmlns:sy=" http://purl.org/rss/1.0/modules/syndication/"xmlns:admin=" http://webns.net/mvcb/"xmlns:rdf=" http://www.w3.org/1999/02/22-rdf-syntax-ns#"xmlns:content=" http://purl.org/rss/1.0/modules/content/">

- ud af do-while loopen. Den må som sagt kun forekomme en gang på siden.
Avatar billede nielle Nybegynder
13. september 2005 - 21:03 #11
Hvad med noget respons her?
Avatar billede Slettet bruger
29. maj 2011 - 12:03 #12
luk
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester