Skumt Jmail problem

8 svar · 387 visningar · startad av Tony Kjeldsen 20 jan. 2005

Tony KjeldsenMedlem sedan jan. 200515 inlägg

Frågan20 jan. 2005 21:52#1

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

joel_joel88Medlem sedan nov. 20021 222 inlägg

20 jan. 2005 22:25#2

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

Tony KjeldsenMedlem sedan jan. 200515 inlägg

20 jan. 2005 22:33#3

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?

@ndersMedlem sedan juni 200032 969 inlägg

21 jan. 2005 06:23#4

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

Tony KjeldsenMedlem sedan jan. 200515 inlägg

21 jan. 2005 17:01#5

ok jag ska testa

Tony KjeldsenMedlem sedan jan. 200515 inlägg

21 jan. 2005 17:19#6

Jajjemen det funkade :-*

@ndersMedlem sedan juni 200032 969 inlägg

21 jan. 2005 18:15#7

Vad bra att det funkade! :)

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

Använd [kod]-taggar när du postar kod, så blir koden lättare att läsa i forumet.
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

Tony KjeldsenMedlem sedan jan. 200515 inlägg

21 jan. 2005 18:18#8

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

@ndersMedlem sedan juni 200032 969 inlägg

22 jan. 2005 08:33#9

Jag gillar inte att repetera mig, men...

@nders skrev:

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.