Avatar billede hifi4all Nybegynder
19. juni 2005 - 22:09 Der er 6 kommentarer og
1 løsning

Antal udskrifter (for i=0)?

Jeg har et XML/RSS læsescript, som læser data ind på min hjemmeside fra anden side, hvilket fungere som det skal, bortset fra at jeg gerne ville kunne begrænse antallet af udskrivne emner på siden.

Jeg har forsøgt med "For i = 0 to 10...", men det giver blot en fejlmeddelse fra serveren :O(

Nogen der kan hjælpe?

Kodestump:

------------>
'On Error Resume Next
Dim rss: Set rss = GetRss(rssFeedUrl)
If (IsObject(rss)) Then
Dim chn: Set chn = rss.Channel

Response.Write("<table cellspacing='0' cellpadding='4'>")
Response.Write("<thead'>")
Response.Write("<th>")
Response.Write("</th>")
Response.Write("</thead>")
Response.Write("<tbody>")

<!-- Her udskrives ALLE poster - eget antal ønskes! -->   
Dim lnk
For Each lnk in chn.Items
<!-- Kommentar slut -->

Response.Write("<tr>")
Response.Write("<td>")
Response.Write("<a href='" & lnk.Link & "' target='_blank' title='"& lnk.Description &"'>" &"<b>" & lnk.Title & "</b></a><br>")
strPosts2 = lnk.pubDate
If len(strPosts2)>16 then
strPosts2 = left(strPosts2,16)
End If
Response.Write("<span class='smallfont'>" & strPosts2 & "</span>")
Response.Write("</td>")
Response.Write("</tr>")
Next
Response.Write("</tbody>")
Response.Write("</table>")
Set rss = Nothing

(mere kode følger....)
<----------------

På forhånd tak! :O)
Avatar billede busschou Praktikant
19. juni 2005 - 22:12 #1
du kan vel lave en tæller
---
counter = 0
For Each lnk in chn.Items
if counter = 10 then
  exit for
else
//dine udskrifter her
counter = counter + 1
  end if
Next
Avatar billede nielle Nybegynder
19. juni 2005 - 22:16 #2
Jeg ville nu have lavet det på denne måde:

Dim MaxAntal
MaxAntal = 10
Dim lnk
For Each lnk in chn.Items
    <!-- Kommentar slut -->
    Response.Write("<tr>")
    Response.Write("<td>")
    Response.Write("<a href='" & lnk.Link & "' target='_blank' title='"& lnk.Description &"'>" &"<b>" & lnk.Title & "</b></a><br>")
    strPosts2 = lnk.pubDate

    If len(strPosts2)>16 then
        strPosts2 = left(strPosts2,16)
    End If

    Response.Write("<span class='smallfont'>" & strPosts2 & "</span>")
    Response.Write("</td>")
    Response.Write("</tr>")

    MaxAntal = MaxAntal-1
    If MaxAntal = 0 Then Exit For
Next

- men ellers essencielt det samme.
Avatar billede busschou Praktikant
19. juni 2005 - 22:19 #3
tælle op, tælle ned.. tja..det er nok en smags sag :o)
Jeg har absolut ingen forstand på "chn.Items" !
Men kom til at tænke på om man måske, kun måske kunne gøre noget ala
For i=0 to 10
chn.item[i] eller chn[i]
next
det var bare en tanke, for hvis det er en collection af en slags så må man kunne referere til de enkelte elementer
Avatar billede hifi4all Nybegynder
19. juni 2005 - 22:30 #4
busschou, som altid hurtig, og med det helt rigtige svar!
Det virker ved første forsøg!!!

Point er givet!

Tak også til nielle :O)
Avatar billede busschou Praktikant
19. juni 2005 - 22:31 #5
tak for point og roserne :o)
Avatar billede nielle Nybegynder
19. juni 2005 - 22:42 #6
@}-`-,---
Avatar billede busschou Praktikant
19. juni 2005 - 22:44 #7
lol
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