Skumt Jmail problem

Jag får alltid dubbletter av mail meddelandet jag skickar varför?
Blir inte riktigt klok på detta.

 Set Con = Server.CreateObject("ADODB.Connection")   
 Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/databas.mdb")   
 Set objKolla = Con.Execute("SELECT \* FROM Gastbok Where fornamn='"&Replace(Request.Form("fornamn"),"'","''")&"' AND efternamn='"&Replace(Request.Form("efternamn"),"'","''")&"'") 
 If objKolla.EOF = False Then  
 Bokningsnummer = objKolla("id") 
 End If
 objKolla.Close 
 Set objKolla = Nothing    
 Con.Close 
 Set Con = Nothing 
 
 Set jmail = Server.CreateObject("JMail.Message")    
    
 jmail.AddRecipient mail   
 jmail.From = "xxxx@xxx.se"   
 jmail.Subject = "Kopia av anmälan"
 jmail.Body = "Meddelande via hemsidan skickades " & Now & ""   
 jmail.appendHTML "\<font face=verdana size=2\>"   
 jmail.appendHTML "\<br\>"   
 jmail.appendHTML "Du kommer om några dagar få en bekräftelse på att vi mottagit din anmälan."
 jmail.appendHTML "\<br\>"
 jmail.appendHTML "------------------------------------------\<br\>"
 jmail.appendHTML "Skickades:  " & Now & "\<br\>"    
 jmail.appendHTML "Deltaga:  " & deltaga & "\<br\>"
 jmail.appendHTML "Semenarie förstahands(nr):  " & semenarieforsta & "\<br\>"
 jmail.appendHTML "Semenarie andrahands(nr):  " & semenarieandra & "\<br\>"	   
 jmail.appendHTML "Bokningsnummer: " & Bokningsnummer & "\<br\>"   
 jmail.appendHTML "Förnamn: " & Fornamn & "\<br\>"   
 jmail.appendHTML "Efternamn: " & Efternamn & "\<br\>"   
 jmail.appendHTML "Yrkes titel: " & yrke & "\<br\>"   
 jmail.appendHTML "Medlemi: " & Medlemi & "\<br\>"   
 jmail.appendHTML "Arbetsplats/Företag: " & ArbetsplatsForetag & "\<br\>"
 jmail.appendHTML "Arbetsplatsadress: " & Adress & "\<br\>"    
 jmail.appendHTML "Postnummer: " & Postnr & "\<br\>"   
 jmail.appendHTML "Postort: " & Postort & "\<br\>"   
 jmail.appendHTML "Land: " & Land & "\<br\>"   
 jmail.appendHTML "Telefon: " & Telefon1 &  "\<br\>"   
 jmail.appendHTML "Faxnummer: " & Faxnummer & "\<br\>"   
 jmail.appendHTML "Fakturadress: " & Fakturadress & "\<br\>"
 jmail.appendHTML "Fakturapostnummer: " & Fakturapostnummer & "\<br\>"
 jmail.appendHTML "Fakturapostort: " & Fakturapostort & "\<br\>"
 jmail.appendHTML "Telefon: " & Telefon2 &  "\<br\>"   
 jmail.appendHTML "Mail: " & Mail & "\<br\>"  
 jmail.appendHTML "Övrig Info:  " & ovrigt & "\<br\>" 
 jmail.appendHTML "------------------------------------------\<br\>"   
 jmail.appendHTML "\<br\>"   
 jmail.appendHTML "\</font\>"   
 jmail.Send ("smtp.xxxxxxxxxx.org")   
    
 If JMail.Send("") Then   
 Response.Write ("Uppgifterna har skickats in, Du kommer snart få ett mail.")
 Else   
 Response.Write ("Någonting gick snett. Försök igen.")   
 End If   
 Set jmail = Nothing   
 End If   
 %\>

har du mer kod....tänkte på att i fall jmailkoden "loopas" på något konstigt sätt, så att det skickas två ggr.

jo det finns en hel del kod ovanför. hehe tror inte ni vill se all kod men jag hittade en loop bland all kod

       \<% Set Con = Server.CreateObject("ADODB.Connection")   
   Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/databas.mdb")   
   SQLStmt = "SELECT \* FROM Gastbok ORDER BY ID DESC"   
   Set RecSET = Server.CreateObject("ADODB.Recordset")   
   RecSet.Open SQLStmt, Con, adLockOptimistic    
   Do Until RecSet.EOF   
   %\>   
         \<%   
   RecSet.MoveNext    
   Loop   
   RecSet.Close   
   Con.Close   
   %\> 

Kan det vara den som ställer tilldet?

Du kör ju JMail.Send två gånger. Prova att ersätta:

jmail.Send ("smtp.xxxxxxxxxx.org") 

If JMail.Send("") Then

Med:

If JMail.Send("smtp.xxxxxxxxxx.org") Then

Mvh

ok jag ska testa

Jajjemen det funkade :-*

Vad bra att det funkade! :)

Två saker, nykomling som du är (välkommen förresten!):

1. Använd [kod]-taggar när du postar kod, så blir koden lättare att läsa i forumet.
2. Använd funktionen "Acceptera som slutgiltigt svar" i det inlägg som löste problemet, för att andra lättare ska hitta lösning på liknande problem. Läs om funktionen här.

Mvh

Ok tack för tipsen jag ska skärpa mig flåt. Me noob you know hihi
Men rackans va kul det är med ny kunskap på äldre dar hehe ;-)

Jag gillar inte att repetera mig, men...

@nders skrev:

2. Använd funktionen "Acceptera som slutgiltigt svar" i det inlägg som löste problemet, för att andra lättare ska hitta lösning på liknande problem. Läs om funktionen här.