JMail Problem med Cliche

Gogmorgen ekperter, jeg kan simpelthen ikke se hvor fejlen ligger i det her JMail script, det fungerer, men ingen modtager mails af de tilmeldte.

Jeg bruger server adressen som smtp.cliche.dk, nogen der har cliche som ved hvor fejlen kan ligge, så ville jeg blive lykkelig..

<%
Response.Buffer = True

strMode = Request.QueryString("mode")

If Request.Form("Send") <> "" Then
  '// Her putter vi værdien af de indtastede felter i en variabel
  strSender = Request.Form("Afsender")
  strSubject = Request.Form("Emne")
  strMessage = Request.Form("Besked")
  strMailServer = Request.Form("Mailserver")

  '// Her åbner vi databasen, og trækker alle email adresse ud i et array
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mailliste.mdb")

  strSQL = "SELECT Email FROM Mailliste"
  Set rs = myConn.Execute(strSQL)
  arrEmail = rs.GetRows()
  myConn.Close
  Set myConn = Nothing

  '// Her laver vi et loop igennem vore e-mail array og sender beskeden til alle de tilmeldte
  Select Case Request.Form("MailKomponent")
  Case "JMail"
    Response.Write "<p><font face=arial size=2><b>Udsender med JMail</b><br><br>"

    Set objMail = Server.CreateObject("JMail.SMTPMail")
    objMail.Silent = True
    objMail.ServerAddress = strMailserver
    objMail.Sender = sender
    objMail.Subject = strSubject
    objMail.Body = strMessage
    For num = 0 to Ubound(arrEmail,2)
      objMail.AddRecipient arrEmail(0, num)
      If objMail.Execute Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
      objMail.ClearRecipients
    Next
    Set objMail = Nothing
  Case "ASPMail"
    Response.Write "<p><font face=arial size=2><b>Udsender med ASPMail</b><br><br>"
    Set objMail = Server.CreateObject("SMTPsvg.Mailer")
    objMail.FromAddress = strSender
    objMail.RemoteHost = strMailserver
    objMail.Subject = strSubject
    objMail.BodyText = strMessage
    For num = 0 to Ubound(arrEmail,2)
      objMail.AddRecipient "Nyhedsmodtager", arrEmail(0, num)
      If objMail.SendMail Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
      objMail.ClearRecipients
    Next
    Set objMail = Nothing
  Case "OCXMail"
    Response.Write "<p><font face=arial size=2><b>Udsender med OCXMail</b><br><br>"
    Set objMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
    For num = 0 to Ubound(arrEmail,2)
      strResult = objMail.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
      If strResult = "" Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
    Next
    Set objMail = Nothing
  End Select
  Response.Write "<br><font color=blue><b>Nyhedsbrevet er nu udsendt!</b></font></font></p>"
  Response.End
End If
%>