---

Jeg har brugt dette script
http://www.html.dk/scripts/asp/00020/
men kunne godt bruge et der kan læse flere sider.

Jeg har brugt lang tid til at søge på nettet men uden held.

Er der mon en der kan hjælp mig?

Bo

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Bo wrote:

> Jeg har brugt dette script
> http://www.html.dk/scripts/asp/00020/
> men kunne godt bruge et der kan læse flere sider.
>
> Jeg har brugt lang tid til at søge på nettet men uden held.

Hvad mener du med flere sider?

Hvis du skal kalde flere RSS feeds, kan du lave scriptet om til en
subrutine.

Sub showRSS extURL
... indsæt scriptet her
... fjern denne linie: extURL =
"http://www.html.dk/rss/dk.edb.internet.webdesign.xml"
... indsæt oprydning: set XmlDoc = nothing
End sub

Så kan du kalde den med:
showRSS "dit RSS feed 1"
showRSS "dit RSS feed 2"
osv.

--
Med venlig hilsen
Stig Johansen

---

> Hvad mener du med flere sider?
>
> Hvis du skal kalde flere RSS feeds, kan du lave scriptet om til en
> subrutine.
>
> Sub showRSS extURL
> ... indsæt scriptet her
> ... fjern denne linie: extURL =
> "http://www.html.dk/rss/dk.edb.internet.webdesign.xml"
> ... indsæt oprydning: set XmlDoc = nothing
> End sub
>
> Så kan du kalde den med:
> showRSS "dit RSS feed 1"
> showRSS "dit RSS feed 2"
> osv.
>
> --
> Med venlig hilsen
> Stig Johansen

Jeg har gjort sådan - men det virker ikke

<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente
tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end
HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
' ****************************************************************

Sub showRSS extURL
showRSS "http://www.sportenkort.dk/feeds/rss.xml"
showRSS "http://www.computerworld.dk/rss/artikler"

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
   ' Udskriv eventuelle fejl (for nem fejlretning)
   Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

   ' Åbn elementet <channel>
   set channelNodes = xmlDoc.selectNodes("//channel/*")

   for each entry in channelNodes
      ' De tre obligatoriske elementer i channel lægges i variable
      if entry.tagName = "title" then
         strChannelTitle = entry.text
      
      end if
   next

   

   ' Åbn elementerne <item>
   set itemNodes = xmlDoc.selectNodes("//item/*")

   For each item in itemNodes
      ' Elementerne i channel lægges i variable med #%# som adskillelse
      if item.tagName = "title" then
         strItemTitle = strItemTitle & item.text & "#%#"
      elseif item.tagName = "link" then
         strItemLink = strItemLink & item.text & "#%#"
      end if
   next

   ' Elementerne i channel splittes i arrays
   arrItemTitle = split(strItemTitle,"#%#")
   arrItemLink = split(strItemLink,"#%#")
   arrItemDescription = split(strItemDescription,"#%#")

   ' Elementerne i channel udskrives
   response.write ""
      for a = 0 to UBound(arrItemTitle) - 21
         response.write "<li>"
         response.write "<a href='" & arrItemLink(a) & "' target='_blank'>"
& arrItemTitle(a) &"</a>"
            ' Description udskrives hvis den eksisterer
            if strItemDescription <> "" then
               response.write "<br />" & arrItemDescription(a)
            end if
         response.write "</li>"
      next
   response.write "</br>"

   ' Vi rydder op
set XmlDoc = nothing
End sub
End If

%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> Hvis du skal kalde flere RSS feeds, kan du lave scriptet om til en
> subrutine.
>
> Sub showRSS extURL
> ... indsæt scriptet her
> ... fjern denne linie: extURL =
> "http://www.html.dk/rss/dk.edb.internet.webdesign.xml"
> ... indsæt oprydning: set XmlDoc = nothing
> End sub
>
> Så kan du kalde den med:
> showRSS "dit RSS feed 1"
> showRSS "dit RSS feed 2"
> osv.
>
> --
> Med venlig hilsen
> Stig Johansen

Har gjort sådan, men det virker ikke

<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente
tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end
HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
' ****************************************************************

Sub showRSS extURL
showRSS "http://www.sportenkort.dk/feeds/rss.xml"
showRSS "http://www.computerworld.dk/rss/artikler"

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
   ' Udskriv eventuelle fejl (for nem fejlretning)
   Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

   ' Åbn elementet <channel>
   set channelNodes = xmlDoc.selectNodes("//channel/*")

   for each entry in channelNodes
      ' De tre obligatoriske elementer i channel lægges i variable
      if entry.tagName = "title" then
         strChannelTitle = entry.text
      
      end if
   next

   

   ' Åbn elementerne <item>
   set itemNodes = xmlDoc.selectNodes("//item/*")

   For each item in itemNodes
      ' Elementerne i channel lægges i variable med #%# som adskillelse
      if item.tagName = "title" then
         strItemTitle = strItemTitle & item.text & "#%#"
      elseif item.tagName = "link" then
         strItemLink = strItemLink & item.text & "#%#"
      end if
   next

   ' Elementerne i channel splittes i arrays
   arrItemTitle = split(strItemTitle,"#%#")
   arrItemLink = split(strItemLink,"#%#")
   arrItemDescription = split(strItemDescription,"#%#")

   ' Elementerne i channel udskrives
   response.write ""
      for a = 0 to UBound(arrItemTitle) - 21
         response.write "<li>"
         response.write "<a href='" & arrItemLink(a) & "' target='_blank'>"
& arrItemTitle(a) &"</a>"
            ' Description udskrives hvis den eksisterer
            if strItemDescription <> "" then
               response.write "<br />" & arrItemDescription(a)
            end if
         response.write "</li>"
      next
   response.write "</br>"

   ' Vi rydder op
set channelNodes = nothing
   set itemNodes = nothing
set XmlDoc = nothing
End sub

End if

%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Bo wrote:

> Har gjort sådan, men det virker ikke
> Sub showRSS extURL
> showRSS "http://www.sportenkort.dk/feeds/rss.xml"
> showRSS "http://www.computerworld.dk/rss/artikler"

Nej, for kaldet til subrutinen skal ligge udenfor sub'en.
Flyt rundt på linierne som:

showRSS "http://www.sportenkort.dk/feeds/rss.xml"
showRSS "http://www.computerworld.dk/rss/artikler"
Sub showRSS extURL
...

Selve sub'en skal nok ligge til sidst i dit script.

--
Med venlig hilsen
Stig Johansen

---

> Nej, for kaldet til subrutinen skal ligge udenfor sub'en.
> Flyt rundt på linierne som:
>
> showRSS "http://www.sportenkort.dk/feeds/rss.xml"
> showRSS "http://www.computerworld.dk/rss/artikler"
> Sub showRSS extURL
> ...
>
> Selve sub'en skal nok ligge til sidst i dit script.
>
> --
> Med venlig hilsen
> Stig Johansen


Det virker bare ikke - ;o(

<%
'
****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente
tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end
HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
'
****************************************************************

' Adressen på det RSS-feed der skal loades
showRSS "http://www.html.dk/rss/dk.edb.internet.webdesign.xml"
showRSS "http://www.sportenkort.dk/feeds/rss.xml"
Sub showRSS extURL

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
   ' Udskriv eventuelle fejl (for nem fejlretning)
   Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

   ' Åbn elementet <channel>
   set channelNodes = xmlDoc.selectNodes("//channel/*")

   for each entry in channelNodes
      ' De tre obligatoriske elementer i channel lægges i variable
      if entry.tagName = "title" then
         strChannelTitle = entry.text
      elseif entry.tagName = "description" then
         strChannelDescription = entry.text
      elseif entry.tagName = "link" then
         strChannelLink = entry.text
      end if
   next

   ' De tre obligatoriske elementer i channel udskrives
   response.write "<h1>" & strChannelTitle & "</h1>"
   response.write "<p>" & strChannelDescription & "</p>"
   response.write "<p><a href='" & strChannelLink & "'>Besøg " &
strChannelTitle & "</a></p>"
   response.write "<hr />"

   ' Åbn elementerne <item>
   set itemNodes = xmlDoc.selectNodes("//item/*")

   For each item in itemNodes
      ' Elementerne i channel lægges i variable med #%# som
adskillelse
      if item.tagName = "title" then
         strItemTitle = strItemTitle & item.text & "#%#"
      elseif item.tagName = "link" then
         strItemLink = strItemLink & item.text & "#%#"
      elseif item.tagName = "description" then
         strItemDescription = strItemDescription & item.text & "#%#"
      end if
   next

   ' Elementerne i channel splittes i arrays
   arrItemTitle = split(strItemTitle,"#%#")
   arrItemLink = split(strItemLink,"#%#")
   arrItemDescription = split(strItemDescription,"#%#")

   ' Elementerne i channel udskrives
   response.write "<ul>"
      for a = 0 to UBound(arrItemTitle) - 1
         response.write "<li>"
         response.write "<a href='" & arrItemLink(a) & "'>" &
arrItemTitle(a) & "</a>"
            ' Description udskrives hvis den eksisterer
            if strItemDescription <> "" then
               response.write "<br />" & arrItemDescription(a)
            end if
         response.write "</li>"
      next
   response.write "</ul>"

   ' Vi rydder op
   set channelNodes = nothing
   set itemNodes = nothing
set XmlDoc = nothing

End If

End sub

%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Bo skrev:

> Det virker bare ikke - ;o(

Man kan ikke bruge "det virker ikke" til noget ;)

Du er nødt til at skrive hvad der er galt i forhold til forventet
resultat, og også eventuelle fejlmeddelelser. Ellers må vi gætte, og det
har jeg ikke rigtigt lyst til.

Prøv dette som starten på din sub:

Sub showRSS(extURL)

Altså at sætte det i paranteser i stedet.

Og skriv så, hvad der går galt, når du kører det.

VBscript er iøvrigt karrig med paranteser. Nogle gange skal man bruge
dem, når man kalder en sub-routine/function, andre gange ikke.


MVH
Rune Jensen

---

"Bo" <2630post@gmail.com> wrote in message
news:4ab14d67$0$280$14726298@news.sunsite.dk...
> Det virker bare ikke - ;o(

Du kunne godt skrive lidt om hvilken fejl du får.

Men nu har jeg testet det, og det virker hér hvis:
> Sub showRSS extURL
bliver rettet til
Sub showRSS ( extURL )
Beklager de manglende paranteser, men de smutte nogle gange når man skriver
ud af hovedet ;)

--
Med venlig hilsen/Best regards
Stig Johansen

---

Stig Johansen wrote in dk.edb.internet.webdesign.serverside.asp:
> "Bo" <2630post@gmail.com> wrote in message
> news:4ab14d67$0$280$14726298@news.sunsite.dk...
> > Det virker bare ikke - ;o(
>
> Du kunne godt skrive lidt om hvilken fejl du får.
>
> Men nu har jeg testet det, og det virker hér hvis:
> > Sub showRSS extURL
> bliver rettet til
> Sub showRSS ( extURL )
> Beklager de manglende paranteser, men de smutte nogle gange når man skriver
> ud af hovedet ;)
>
> --
> Med venlig hilsen/Best regards
> Stig Johansen
>
>
>
Hej Stig

Du skal ikke beklage, det er jo dig der hjælper mig,
og det virker perfekt.

Beklager jeg ikke sendte fejlkode med, men mi browser viser
ikke fejlkoden - ved ikke lige hvorfor.

Takker for hjælpen.

Bo

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials