AspPOP3 vis attachment

Hej - er der en der gider tjekke nedenstående kode. Problemet er som flg.: Den henter fint eks. 4 emails fra serveren og viser dem - men billederne + billednavnet (fra attachmentet, altså) er det samme gennem loopet - den viser altså 4 ENS billeder og angiver SAMME billede/attachment-navn i alle 4 mails. Den gemmer i øvrigt også kun det første billede på serveren.

Please help :-)

Den er tricky så jeg smider 100 point til den hjælpsomme :-)

--- KODE ---
<%
'--- TJEK OG HENT POP3
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail.domain.dk"
Mailer.UserName  = "test@domain.dk"
Mailer.Password  = "test"
Mailer.MailDirectory = "d:\WEB\domain.dk\www\"
Mailer.OpenPop3
  Dim iMessages
  iMessages = Mailer.MessageCount

strMsgNo = 0

    for i=1 to iMessages
    Mailer.RetrieveToMemory(i)

    'strMsgNo = strMsgNo+1

    Mailer.GetAttachmentInfo(i)
    Mailer.SaveAttachmentToFile i, Mailer.AttFileName

    hentbesked = Mailer.BodyText
    besked = Replace(hentbesked, vbCRLF, "")
    Dato = Mailer.Date

    response.write "" & besked & "<br>"
    response.write "" & Dato & "<br>"
      Response.Write "ContentType=" & Mailer.AttContentType & "<br>"
    response.write "<img src='" & Mailer.AttFileName & "'><br>(" & Mailer.AttFileName & ")<br>"
    Mailer.Retrieve intMsgNumber
    Response.Write "This message has " & Mailer.AttachmentCount & " attachments<br>"
    Response.Write "Mail no.: " & i & "<br><br>"
   
    'Mailer.Delete strMsgNo
    next

    Response.Write "Total number of messages:  " & iMessages & ""

    Mailer.ClosePop3
%>