jmail - webmail

Hej

Hvad er der galt med denne kode ?

<% @LANGUAGE=VBSCRIPT %>
<%

Set pop3 = Server.CreateObject( \"JMail.POP3\" )

pop3.Connect \"mail@domæne.dk\", \"kode\", \"mail.domæne.dk\"

Response.Write( \"You have \" & pop3.count & \" emails in your mailbox!<br><br>\" )

if pop3.count > 0 then
Set msg = pop3.Messages.item(1)

\' Note the first element of this array is 1
\' since the POP3 server starts counting at 1
ReTo = \"\"
ReCC = \"\"

Set Recipients = msg.Recipients
separator = \", \"

\' We now need to get all the recipients,
\' both normal and Carbon Copy (CC) recipients
\' and store them in a variabel

For i = 0 To Recipients.Count - 1
  If i = Recipients.Count - 1 Then
    separator = \"\"
  End If

  Set re = Recipients.item(i)
  If re.ReType = 0 Then
    ReTo = ReTo & re.Name & \"&nbsp;(\" & re.EMail & \")\" & separator
  else
    ReCC = ReTo & re.Name & \"&nbsp;(\" & re.EMail & \")\" & separator
  End If
Next

\' This function iterates through the Attachments object,
\' and saves the attachment to the server\'s disk.
\' It also returns a nicely formatted string with a
\' link to the attachment.
Function getAttachments()
  Set Attachments = msg.Attachments
  separator = \", \"

  For i = 0 To Attachments.Count - 1
    If i = Attachments.Count - 1 Then
      separator = \"\"
    End If

  Set at = Attachments(i)
  at.SaveToFile( \"F:\\domæne.dk\\attachments\\\" & at.Name )
  getAttachments = getAttachments & \"<a href=\"\"/attachments/\" &_
  at.Name &\"\"\">\" & at.Name & \"(\" & at.Size & \" bytes)\" &_
  \"</a>\" & separator
  Next
End Function

%>
<html>
<body>
<TABLE>
<tr>
  <td>Subject</td>
  <td><%= msg.Subject %></td>
</tr>
<tr>
  <td>From</td>
  <td><%= msg.FromName %></td>
</tr>
<tr>
  <td>Recipients To</td>
  <td><%= ReTO %></td>
</tr>
<tr>
  <td>Recipients CC</td>
  <td><%= ReCC %></td>
</tr>
<tr>
  <td>Attachments</td>
  <td><%= getAttachments %></td>
</tr>
<tr>
  <td>Body</td>
  <td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%

end if

pop3.Disconnect

%>