---
title: "Skumt Jmail problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120653-skumt-jmail-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tony Kjeldsen"
published: "2005-01-20T21:52:40.000Z"
updated: "2005-01-22T08:33:32.000Z"
replies: 8
views: 402
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/120653-skumt-jmail-problem"
---

# Skumt Jmail problem

## #1 — Tony Kjeldsen, 2005-01-20T21:52Z

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   
	 %\>

Permalänk: https://www.webforum.nu/p/120653

## #2 — joel_joel88, 2005-01-20T22:25Z

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

Permalänk: https://www.webforum.nu/p/1533769

## #3 — Tony Kjeldsen, 2005-01-20T22:33Z

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?

Permalänk: https://www.webforum.nu/p/1533776

## #4 — @nders, 2005-01-21T06:23Z

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

Permalänk: https://www.webforum.nu/p/1533850

## #5 — Tony Kjeldsen, 2005-01-21T17:01Z

ok jag ska testa

Permalänk: https://www.webforum.nu/p/1534094

## #6 — Tony Kjeldsen, 2005-01-21T17:19Z

Jajjemen det funkade :-\*

Permalänk: https://www.webforum.nu/p/1534102

## #7 — @nders, 2005-01-21T18:15Z

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](http://www.webforum.nu/misc.php?s=&action=faq&page=2#status).

Mvh

Permalänk: https://www.webforum.nu/p/1534157

## #8 — Tony Kjeldsen, 2005-01-21T18:18Z

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 ;-)

Permalänk: https://www.webforum.nu/p/1534162

## #9 — @nders, 2005-01-22T08:33Z

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](http://www.webforum.nu/misc.php?s=&action=faq&page=2#status).

Permalänk: https://www.webforum.nu/p/1534412

---

Tråden på webben: https://www.webforum.nu/amne/asp/120653-skumt-jmail-problem