Dato og klokkeslet fra rss feed vises forkert
Jeg prøver for første gang at lege lidt med at få et eksternt rss feed vist et sted på mit arbejdes hjemmeside.Det går fint med at få teksten frem, men datoerne bliver vist i formatet '30-12-1899 - 00:00'.
Hvad er der galt?
(Jeg er for øvrigt i tvivl om, hvorvidt jeg har smidt spørgsmålet i den rette kategori?)
Koden ser således ud:
<!--#include virtual="DS/shared/all.asp"-->
<!--#include virtual="DS/shared/rss.asp"-->
<div align="center"><center>
<%
set myDoc = new mainDocument
With myDoc
.BuildTop
rssFeedUrl = "http://" & Request("url")
If rssFeedUrl = "http://" Then
Response.End
End If
' 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("<tbody>")
Dim arrLinks
arrLinks = chn.Items
Dim lnk
DisplayedItems = UBound(chn.Items)
If Request("top") <> "" And IsNumeric(Request("top")) And CInt(Request("top")) <= DisplayedItems Then
DisplayedItems = CInt(Request("top"))
End If
For i = 0 To DisplayedItems -1
Response.Write("<tr>")
Response.Write("<td class='norm'>")
Response.Write("<BIG>" & FormatDateTime((arrLinks(i).Date), 2) & " - " & FormatDateTime((arrLinks(i).Date), 4) & "</BIG><br>")
Response.Write("<span class='norm'>" & Mid(arrLinks(i).Title, (instr(arrLinks(i).Title, ":")+2),180) & "</span>")
Response.Write("</tr>")
Next
Response.Write("</tbody>")
Response.Write("</table>")
' release used resources
Set rss = Nothing
Else
Response.Write("Nyhedsstrømmen er ikke tilgængelig i øjeblikket")
End If
.BuildBottom
End With
Set myDoc = Nothing
%>