JMail-problemer

Hej :-)

Er jeg den eneste der i den seneste tid har haft en del problemer med at anvende JMail? Senest har jeg ikke kunne sende mails via JMail.Execute, og har derefter skiftet til JMail.Send("smtp.udbyder.dk"). Kan det skyldes at JMail er blevet opgraderet?

Nu kan jeg dog sende mails, men har det problem at alle mails bliver sendt to gange 8-|

Her er den kode jeg anvender:

<%
        strSMTP = "smtp.udbyder.dk"

    ' # KONFIGURERER MAILKOMPONENT
        Set JMail = Server.CreateObject("JMail.Message")

        JMail.Logging = True
        JMail.Silent = True
        JMail.From = strAfsEmail
        JMail.FromName = strAfsNavn
        JMail.AddRecipient "post@mitsite.dk"
        JMail.Subject = "Mail via kontaktformular"
        JMail.ContentType = "text/plain"
        JMail.Charset = "iso-8859-1"

        Dim strProxyIP, strNormalIP, strIP

        strProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        strNormalIP = Request.ServerVariables("REMOTE_ADDR")

        If strProxyIP = DoubleQuote Then
      ' # HVIS AFSENDEREN IKKE ER BAG EN PROXY
          strIP = strNormalIP
        Else
      ' # HVIS AFSENDEREN ER BAG EN PROXY
          strIP = strProxyIP
        End If

        JMail.AddHeader "Originating-IP", strIP

    ' # ORGANISERER MAILINDHOLDET
        strBeskedOps = strBeskedOps & "MAIL VIA KONTAKTFORMULAR" & vbCrLf
        strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
        strBeskedOps = strBeskedOps & "Afsender: " & strAfsNavn & vbCrLf
        strBeskedOps = strBeskedOps & "E-mail: " & strAfsEmail & vbCrLf
        strBeskedOps = strBeskedOps & "IP-adresse: " & strIP & vbCrLf & vbCrLf
        strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
        strBeskedOps = strBeskedOps & "Emne/Overskrift: " & strAfsEmne & vbCrLf & vbCrLf
        strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
        strBeskedOps = strBeskedOps & "Besked:" & vbCrLf
        strBeskedOps = strBeskedOps & strAfsBesked & vbCrLf & vbCrLf
        strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
        strBeskedOps = strBeskedOps & "Find afsenderens udbyder via IP-adressen: http://www.ripe.net/perl/whois?query=" & strIP

        JMail.Body = strBeskedOps

    ' # PRIORITET: 1) HØJ PRIORITET (VIGTIGT), 3) NORMAL, 5) LAV PRIORITET
        JMail.Priority = 3

    ' # SENDER MAILEN
        JMail.Send(strSMTP)

    ' # VIDERESTILLER TIL RESULTATSIDE
        If Not JMail.Send(strSMTP) Then
          Response.write "<pre>" & JMail.log & "</pre>"
        Else
          Set JMail= Nothing
          Response.Clear
          Response.Redirect "Kontakt.asp?Handling=Afsendt"
        End If
%>

Nogen der kan finde en fejl?

Apo