Äntligen kommit igång med att koda lite igen, känns som man har glömt det mesta.

Jag håller på med ett script som ska läsa en feed (rss 2).
Att läsa feeden är inga problem men när jag lägger in det hela i en sub tar det stopp.

Felmess:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
... line 48.

<code>
<%
Sub read_rss(strRSS_file)

'// Declaration of variables
Dim RSSfile
Dim objXML, objLst, objHdl
Dim intNoOfHeadlines, i
Dim arrTemp(), strRef, strLink, strText

'// Select RSS file
RSSfile = Server.MapPath(strRSS_file)

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.Load(RSSfile)

If objXML.parseError.errorCode <> 0 Then
Response.Write("Oops, n&aring;tt blev fel...")
End If
Set objLst = objXML.getElementsByTagName("item")
intNoOfHeadlines = objLst.length -1

'// Create array
ReDim arrTemp(2,intNoOfHeadlines)
For i = 0 To (intNoOfHeadlines)
Set objHdl = objLst.item(i)
arrTemp(0,i) = objHdl.childNodes(0).text '// xml:title
arrTemp(1,i) = objHdl.childNodes(1).childNodes(0).text '// xml:link
arrTemp(2,i) = objHdl.childNodes(2).childNodes(0).text '// xml:descripion
Next

With Response
.Write(""& arrTemp(0,0) &"<br />")
.Write(arrTemp(2,0) &"<br /><br />")
End With

End Sub

'// Print Sub read_rss
Call read_rss(news.xml) '<-- line 48
%>
</code>