Loopar du igenom samlingen med mail? Det är ett ganska stort krav om du skall lista alla mailen (vilket jag antar att det är du skall göra).
uppe
Set pop3 = Server.CreateObject("JMail.POP3")
pop3.Connect "user", "passw", "mail.foretag.se"
lite längre ner
<%
Do Until i = pop3.count
i = i + 1
Set msg = pop3.Messages.item(i)
%>
<tr>
<td><%=msg.FromName%></td>
<td><a href="read.asp?id=<%=i%>"><%=msg.Subject%></a></td>
<td><%=msg.From%></td>
<td><%=msg.Date%></td>
</tr>
<%
Loop
End If %>
typ
------------------
Jag är skum