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)
