Ya he hecho todas esas correcciones. Ahora me aparece una serie pero siempre con el mismo elemento y todavía no identifico el problema. El código ha quedado así:
<html>
<head>
<title>TWITTER</title>
</head>
<body>
<%
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
xml.load ("friends_timeline.xml")
Dim profile_image_url, name1, text, created_at
created_at = xml.documentElement.childNodes(0).childNodes(0).te xt
name1 = xml.documentElement.childNodes(0).childNodes(9).ch ildNodes(1).text
profile_image_url = xml.documentElement.childNodes(0).childNodes(9).ch ildNodes(5).text
text = xml.documentElement.childNodes(0).childNodes(2).te xt
Set xml = Nothing
%>
<table width="300" border="0" cellspacing="0" cellpadding="2">
<%
Dim i
for i = 0 to 6
%>
<tr>
<td><img src="<%= profile_image_url %>" ALIGN="LEFT"> <font face="Arial, Helvetica, sans-serif" size="2"> <strong> <%= name1 %> </strong><br>
<%= text %><br>
<font color="#666666" size="1"><%= created_at %>
</font></font></td>
</tr>
<% next %>
</table>
<p> </p>
</body>
</html>